Хочу выгрузить данные из файла dbf в 1с, написал обработку, но она почему-то не работает... При нажатии кнопки "Выполнить" выдает сообщение "Не смогли открыть базу". В чем причина?

Процедура КнопкаВыполнитьНажатие(Кнопка)
   База = Новый XBase;
   База.Кодировка=КодировкаXBase.OEM;
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\1C_Отчеты, обработки, запросы\09-01CH.dbf");
   
   Если База.Открыта() тогда
       Предупреждение("База Открыта",2);
       База.Первая();
       
       Счетчик = 1;
       Пока Не База.ВКонце() Цикл
           Чеки = Справочники.Чеки.СоздатьОбъект();
           СтрокиЧеков = Справочники.СтрокиЧеков.СоздатьЭлемент();
           
           Чеки.Дата = СокрЛП(База.ПолучитьЗначениеПоля("TIME_CH"));
           Чеки.СуммаСкидки = СокрЛП(База.ПолучитьЗначениеПоля("SKIDKA"));
           Чеки.СуммаНал = СокрЛП(База.ПолучитьЗначениеПоля("NAL"));
           Чеки.Сумма = СокрЛП(База.ПолучитьЗначениеПоля("SUMMA"));
           
           Чеки.Записать();
           База.Следующая();
           счетчик = счетчик + 1;            
       КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу!!!",2);
   КонецЕсли;
   
   База.ЗакрытьФайл();
КонецПроцедуры

(43) Такой код можешь выполнить, и посмотреть на результат?
Процедура КнопкаВыполнитьНажатие(Кнопка)
   База = Новый XBase;
   База.Кодировка=КодировкаXBase.OEM;
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   
   Если База.Открыта() тогда
        База.Первая();
Сообщить(СокрЛП(База.ПолучитьЗначениеПоля("TIME_CH")));
КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу!!!",2);
   КонецЕсли;
   
   База.ЗакрытьФайл();
КонецПроцедуры

(45) Точка останова пролетает...

(49) отсутствует начало цикла

Я лепил обмен через ДБФ и пример из СП очень даже работает.


// Максимальное значение поля COST
xB.Первая();
МаксСтоимость = 0 ;
Пока Не xB.ВКонце() Цикл
   Если xB.COST > МаксСтоимость Тогда
       МаксСтоимость = xB.COST;
   КонецЕсли;
   xB.Следующая();
КонецЦикла;

(49) Всё правильно? Конец цикла внутри Если???

   Если База.Открыта() тогда
   ...     Сообщить(СокрЛП(База.ПолучитьЗначениеПоля("TIME_CH")));
   КонецЦикла;
   Иначе
   ...
   КонецЕсли;

+(49) Ух и написал :)
Правильно так:

Процедура КнопкаВыполнитьНажатие(Кнопка)
   База = Новый XBase;
   База.Кодировка=КодировкаXBase.OEM;
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   
   Если База.Открыта() тогда
        База.Первая();
Пока Не База.ВКонце() Цикл  // <== пропустил 1 :)

Сообщить(СокрЛП(База.ПолучитьЗначениеПоля("TIME_CH")));
База.Следующая(); / <== пропустил 2 :)

КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу!!!",2);
   КонецЕсли;
   
   База.ЗакрытьФайл();
КонецПроцедуры

(40) КоличествоЗаписей()=3 и одновременно ВКонце()=Истина? ползут по пустыне три черепашки
(53) ну лишнего скопипастил человек

(47) +(0) Ага. И русские буквы. Я лечил заключением пути к файлу в кавычки - если вдруг при выборе файла попадет длинная строка или пробел, xBase на нём спотыкается.

(46) насчет кода чужого я неверующий :))))

(54) Выводит данные из столбца время

(58) Ну наконец то :)

Если не решишь, я вечерком тебе скину свою обработку - тупая выгрузка и загрузка справочника в ДБФ.

Интерфейс, кстати, тоже такой, как и на скрине ;)

(58) так что ж ты нам мозх любишь, что в цикл не заходит?

+(61) Я уже не раз замечал что нормальный способ для многих не через отладчик, а через Сообщить() что б развеять все неясности :)))

куда катится мир... Сообщить() вместо точки останова

(61) так а почему он точки останова в нем не видит? Хоть все строки отметь...
И вопрос остается в том, почему данные не записываются в справочник?

ИМХО, конструкция База.ПолучитьЗначениеПоля("TIME_CH") громоздкая.
Удобнее так: База.Cod_CH, База.Time_Ch, База.Vozvrat и т.д.

(64) А сеанс Предприятия подключен к Отладчику? Меню отладка - Подключение

а я уж думала там мистика какая-то... записи, но сразу ВКонце()...

*3 записи

а какого типа реквизиты у справочника? строка?

(64) ну сделай
Попытка
 Чек.Записать();
 Сообщить("Чек "+Чек+" записан");
Исключение
 Соощить(ОписаниеОшибки());
 Сообщить("Чек "+Чек+" не записан");

(66) всё подключено, раньше же пользовался.. Ещё раз перепроверил

(69) имхо пофих. ругнулся бы на ошибку преобразования, ТС бы заметил. А если преобразование проходит, то и записываться должно несмотря на возможную ересь в данных

(70) без попытки ругнулось бы страшно...

(69) тип число

(74) все число?! и дата? :)

(73) я больше для ОписаниеОшибки() предложил

(74) красавец! СокрЛП в числовой реквизит

все-таки проверь на наличие элементов с незаполненными реквизитами

(77) в любом случае ошибку бы выдавал

(79) если работает, это не говорит о ясности в голове. что по поводу (70)?

(70)(80) чек записан

(81) тогда почему у тя возник вопрос, раз чек записан?

(82) обновляю справочник, его там нет

странно, не 86й...
(82) автор его просто не видит. отборы там всякие, иерархические просмотры...

(83) в списке справочника никаких отборов не стоит?

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

Всё дело в отборах, Спасибо!
(60) Жду обработку на [email protected]

(87) Ок.

B еще такой вопрос: Как загрузить 2 файла дбф сразу?

(89) Сначала один, потом другой :-0

Сделал так
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH_.dbf");

Пишет перед выполнением операции нужно закрыть базу

(91) а что по этому поводу думат Капитан Очевидность?

(92) Наверное то, что я у базы забыл единичку приписать ))

(90) :))
(91) Сначала выпей что есть в старом стакане "База", а потом доливай :)

Следущий вопрос: Две базы дбф "Чеки" и "СтрокиЧеков" с общими полями "KOD_CH" и "CHECK_ID". Как мне сделать, чтобы строки чеков присваивались нужному чеку?

загрузить в ТЗ и соединить запросом? хотя правильный ответ: юзать ТЧ

(96)А конкретнее? Может есть где кусок кода?

твоя структура метаданных уникальна. ещё никто и никогда под такое не писал

(98) О да ) Сам офигеваю )
Ну так что по делу?

100

(99) пилять, это как раз по-делу и есть!
выбрось нафик свою конфу и пойди уже наконец почитай книжки

(101) В любом случае книжки без практики ничто... Кстати книги под рукой..

(102) у тебя что, конфа на  одних справочниках?

(103) Конфа - обычная УТ, просто добавлено пару справочников, документов, ...
Так как мне соединить Чеки со строками чеков?

или тупо: читаешь чек из 1го файла, ищешь по (ид_чека?) во втором файле

+(105) индексировать, конечно, надо будет

(106) Опять же хотелось бы увидеть кусок подходящего кода или ссылку на то, как работает индексирование

(107) в СП. я когда-то делал, но искать лениво. могу и не найти ещё

(104) че, в обычной УТ нет документа ЧекККМ? ...не верю!
я вот не пойму, тебе такая конфа досталась или ты сам допиливал? и еще - ты там кто по должности?

(109) Да вот буквально вчера принесли конфу... эти справочники в ней были...
По должности - человек, который не хочет зря терять время и решил поднатаскать себя решая небольшие задачки...

(110) вон оно че михалыч, вон оно че :)
...ну посмотри, там наверняка СтрокиЧеков подчинен справочнику "Чеки"

(111) если некто придумал делать из чеков справочник, не факт, что он знает о подчинённости справочников

это ж додуматься надо было - ТЧ хранить в отдельном справочнике!

(112) та да, там видать случай запущенный :)

(111) Да, владелец Справочник.Чеки

(115) у него Владелец есть - твой чек

(115) ну стало-быть нужно искать по владельцу - и если не нашел - создавать, а если нашел - думать что с ним делать
кста, а это точно 8-ка? что за фигня:
Чеки = Справочники.Чеки.СоздатьОбъект();

(117) судя по картинке 8.1
в (10) уже нет СоздатьОбъект(), ошибся товарищ

Изменил немного на

Процедура КнопкаВыполнитьНажатие(Кнопка)
   База = Новый XBase;
   База.Кодировка=КодировкаXBase.OEM;
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   
   База1 = Новый XBase;
   База1.Кодировка=КодировкаXBase.OEM;
   База1.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH_.dbf");

               
   Если База.Открыта() тогда
       Предупреждение("База открыта");
       База.Первая();
       
       Пока Не База.ВКонце() Цикл
           
           Чеки = Справочники.Чеки.СоздатьЭлемент();
             СтрокиЧеков = Справочники.СтрокиЧеков.СоздатьЭлемент();
           СтрокиЧеков.Владелец = Чеки;        
           
           Чеки.Дата = Дата(ТекущаяДата());
           Чеки.СуммаСкидки = СокрЛП(База.ПолучитьЗначениеПоля("SKIDKA"));
           Чеки.СуммаНал = СокрЛП(База.ПолучитьЗначениеПоля("NAL"));
           Чеки.Сумма = СокрЛП(База.ПолучитьЗначениеПоля("SUMMA"));
           Чеки.НомерЧекаККМ = СокрЛП(База.ПолучитьЗначениеПоля("CHECK_N"));
           
             СтрокиЧеков.Количество = СокрЛП(База.ПолучитьЗначениеПоля("KOL"));
           СтрокиЧеков.Цена = СокрЛП(База.ПолучитьЗначениеПоля("CENA"));
           СтрокиЧеков.Сумма = СокрЛП(База.ПолучитьЗначениеПоля("SUMMA"));
           
           СтрокиЧеков.Записать();
           Чеки.Записать();
           База.Перейти();
           
       КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу!!!",2);
   КонецЕсли;
   База.ЗакрытьФайл();
   
   
   Если База1.Открыта() тогда
       Предупреждение("База1 открыта");
       База1.Первая();
       
       Пока Не База1.ВКонце() Цикл
           
           Чеки = Справочники.Чеки.СоздатьЭлемент();
             СтрокиЧеков = Справочники.СтрокиЧеков.СоздатьЭлемент();
           СтрокиЧеков.Владелец = Чеки;        
           
           СтрокиЧеков.Количество = База.ПолучитьЗначениеПоля("KOL");
           СтрокиЧеков.Цена = СокрЛП(База.ПолучитьЗначениеПоля("CENA"));
           СтрокиЧеков.Сумма = СокрЛП(База.ПолучитьЗначениеПоля("SUMMA"));
           
           СтрокиЧеков.Записать();
           База.Перейти();
           
       КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу1!!!",2);
   КонецЕсли;
   База1.ЗакрытьФайл();

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

теперь пишет "Ошибка при вызове метода контекста (ПолучитьЗначениеПоля): Перед выполнением операции установите объект на запись
             СтрокиЧеков.Количество = СокрЛП(База.ПолучитьЗначениеПоля("KOL"));"

Нападайте )))

База1 сделай во второй половине как минимум

(120) Сделал, ошибка та же

(121) опять начинается...

(122) что?

Из СП
xB.Первая();
Пока Истина Цикл
   xB.Очистить();
   xB.Записать();
   Если Не xB.Следующая() Тогда
       Прервать;
   КонецЕсли;
КонецЦикла;

вывод - используй следующая()

Заменил, подредактировал.... Пишет "Перед выполнением операции нужно открыть базу", хотя до этого выдает сообщение "База открыта"

Процедура КнопкаВыполнитьНажатие(Кнопка)
   База = Новый XBase;
   База.Кодировка=КодировкаXBase.OEM;
   База.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   
   Если База.Открыта() тогда
       Предупреждение("База открыта");
       База.Первая();
       
       Пока Не База.ВКонце() Цикл
           
           Чеки = Справочники.Чеки.СоздатьЭлемент();
                       
           Чеки.Дата = Дата(ТекущаяДата());
           Чеки.СуммаСкидки = СокрЛП(База.ПолучитьЗначениеПоля("SKIDKA"));
           Чеки.СуммаНал = СокрЛП(База.ПолучитьЗначениеПоля("NAL"));
           Чеки.Сумма = СокрЛП(База.ПолучитьЗначениеПоля("SUMMA"));
           Чеки.НомерЧекаККМ = СокрЛП(База.ПолучитьЗначениеПоля("CHECK_N"));

           Чеки.Записать();
           База.Следующая();
           
       КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу!!!",2);
   КонецЕсли;
   База.ЗакрытьФайл();
   
   
   База1 = Новый XBase;
   База1.Кодировка=КодировкаXBase.OEM;
   База1.ОткрытьФайл("C:\Users\Владимир\Desktop\DBF\09-01CH_.dbf");
   
   Если База1.Открыта() тогда
       Предупреждение("База1 открыта");
       База1.Первая();
       
       Пока Не База1.ВКонце() Цикл
           
           Чеки = Справочники.Чеки.СоздатьЭлемент();
           СтрокиЧеков = Справочники.СтрокиЧеков.СоздатьЭлемент();
//            СтрокиЧеков.Владелец = Чеки;        
           
           СтрокиЧеков.Количество = База1.ПолучитьЗначениеПоля("KOL");
           СтрокиЧеков.Цена = СокрЛП(База1.ПолучитьЗначениеПоля("CENA"));
           СтрокиЧеков.Сумма = СокрЛП(База1.ПолучитьЗначениеПоля("SUMMA"));
           
           СтрокиЧеков.Записать();
           База1.Следующая();
           
       КонецЦикла;
   Иначе
       Предупреждение("Не смогли открыть базу1!!!",2);
   КонецЕсли;
   База1.ЗакрытьФайл();
   
КонецПроцедуры

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

(125) А может стоит то все впихнуть в ф-ю, что б не дублировать код, ООП все таки ;)
ИмпортЧеков(ИмяФайла)

(127) у него в одном файле шапки, в другом ТЧ. поля разные

(126) Буду думать как соединить Чеки со СтрокамиЧеков...
В коде выдает строку
СтрокиЧеков.Количество = База1.ПолучитьЗначениеПоля("KOL");
Расположение базы проверил... всё нормально, но тем не менее ошибка присутствует

(129) вот, набросал мадлехо
   ТЗ_Чек = Новый("ТаблицаЗначений");
   ТЗ_Чек.Колонки.Добавить("KOD_CH");
   ТЗ_Чек.Колонки.Добавить("CHECK_ID");
   ТЗ_Чек.Колонки.Добавить("SUMMA");
   // остальные поля
   База = Новый XBase("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   База.Кодировка=КодировкаXBase.OEM;
   База.Первая();
   Пока Не База.ВКонце() Цикл
       НоваяСтрока = ТЗ_Чек.Добавить();
       НоваяСтрока.KOD_CH = База.KOD_CH;
       НоваяСтрока.CHECK_ID = База.CHECK_ID;
       НоваяСтрока.SUMMA = База.SUMMA;
       // остальные поля
       База.Следующая();
   КонецЦикла;
   База.ЗакрытьФайл();
   
   ТЗ_Строки = Новый("ТаблицаЗначений");
   ТЗ_Строки.Колонки.Добавить("KOD_CH");
   ТЗ_Строки.Колонки.Добавить("CHECK_ID");
   ТЗ_Строки.Колонки.Добавить("SUMMA");
   // остальные поля
   База1 = Новый XBase("C:\Users\Владимир\Desktop\DBF\09-01CH_.dbf");
   База1.Кодировка=КодировкаXBase.OEM;
   База1.Первая();
   Пока Не База1.ВКонце() Цикл
       НоваяСтрока = ТЗ_Строки.Добавить();
       НоваяСтрока.KOD_CH = База1.KOD_CH;
       НоваяСтрока.CHECK_ID = База1.CHECK_ID;
       НоваяСтрока.SUMMA = База1.SUMMA;
       // остальные поля
       База1.Следующая();
   КонецЦикла;
   База1.ЗакрытьФайл();
   
   СпрЧеков = Справочники.Чеки;
   СпрСтрокиЧеков = Справочники.СтрокиЧеков;
   
   Для инд=0 по ТЗ_Чек.Количество()-1 Цикл
       ТекСтрокаЧек  = ТЗ_Чек.Получить(инд);
       НайденнаяСсылка = СпрЧеков.НайтиПоРеквизиту("КодЧека", ТекСтрока.KOD_CH);  // реквизит КодЧека может называться по другому, смотри сам
       Если НЕ НайденнаяСсылка = СпрНоменклатура.ПустаяСсылка() Тогда  
           Сообщить("Чек с кодом " + ТекСтрока.KOD_CH + "уже есть в базе, пропускаю");
           Продолжить;
       КонецЕсли;
       НовыйОбъектЧек = Справочники["Чеки"].СоздатьЭлемент();
       НовыйОбъектЧек.КодЧека = ТекСтрокаЧек.KOD_CH;
       НовыйОбъектЧек.ЧекИД = ТекСтрокаЧек.CHECK_ID;
       НовыйОбъектЧек.Сумма = ТекСтрокаЧек.SUMMA;
       // остальные поля
       НовыйОбъектЧек.Записать();
       Сообщить("Создан чек " + НовыйОбъектЧек);
       
       Отбор = Новый Структура();
       Отбор.Вставить("KOD_CH",ТекСтрока.KOD_CH);
       Отбор.Вставить("CHECK_ID",ТекСтрока.CHECK_ID);
       Строки = ТЗ_Строки.НайтиСтроки(Отбор);
       КвоСтрок = Строки.Количество()-1;
       Для инд1=0 по КвоСтрок Цикл
           ТекСтрока  = Строки.Получить(инд1);
           НайденныеСтрокиЧеков = СпрСтрокиЧеков.НайтиПоРеквизиту("КодЧека", Строки.KOD_CH, , НовыйОбъектЧек.Ссылка);
           Если НайденныеСтроки = СпрСтрокиЧеков.ПустаяСсылка() Тогда
               НовыйОбъектСтрокиЧеков = Справочники["СтрокиЧеков"].СоздатьЭлемент();
               НовыйОбъектСтрокиЧеков.Владалец = НовыйОбъектЧек.Ссылка;
               НовыйОбъектСтрокиЧеков.КодЧека = ТекСтрока.KOD_CH;
               НовыйОбъектСтрокиЧеков.ЧекИД = ТекСтрока.CHECK_ID;
               НовыйОбъектСтрокиЧеков.Сумма = ТекСтрока.SUMMA;
               // остальные поля
               НовыйОбъектСтрокиЧеков.Записать();
               Сообщить("Созданы строки чеков " + НовыйОбъектСтрокиЧеков);
           Иначе
               // обновить, ничего не делать ... думай сам
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

я требую пива для palpetrovich

(130) Спасибо, но содержит ряд неопределенных переменных, чтобы самому не насочинять, спрошу здесь: Что под ними подразумевал автор?

{Форма.Форма(66,64)}: Переменная не определена (ТекСтрока)
       НайденнаяСсылка = СпрЧеков.НайтиПоРеквизиту("КодЧека", <<?>>ТекСтрока.KOD_CH);  // реквизит КодЧека может называться по другому, смотри сам
{Форма.Форма(69,39)}: Переменная не определена (ТекСтрока)
           Сообщить("Чек с кодом " + <<?>>ТекСтрока.KOD_CH + "уже есть в базе, пропускаю");
{Форма.Форма(82,33)}: Переменная не определена (ТекСтрока)
       Отбор.Вставить("KOD_CH",<<?>>ТекСтрока.KOD_CH);
{Форма.Форма(83,35)}: Переменная не определена (ТекСтрока)
       Отбор.Вставить("CHECK_ID",<<?>>ТекСтрока.CHECK_ID);
{Форма.Форма(68,35)}: Переменная не определена (СпрНоменклатура)
       Если НЕ НайденнаяСсылка = <<?>>СпрНоменклатура.ПустаяСсылка() Тогда  
{Форма.Форма(89,18)}: Переменная не определена (НайденныеСтроки)
           Если <<?>>НайденныеСтроки = СпрСтрокиЧеков.ПустаяСсылка() Тогда

(132) не проверял, замени где ругается на ТекСтрокаЧек, а СпрНоменклатура на СпрЧеков

..у меня-то нет таких справочников как у тебя :)

ТЗ_Чек = Новый("ТаблицаЗначений");
   ТЗ_Чек.Колонки.Добавить("KOD_CH");
   ТЗ_Чек.Колонки.Добавить("CHECK_ID");
   ТЗ_Чек.Колонки.Добавить("SUMMA");
   // остальные поля

   База = Новый XBase("C:\Users\Владимир\Desktop\DBF\09-01CH.dbf");
   База.Кодировка=КодировкаXBase.OEM;
   База.Первая();
   Пока Не База.ВКонце() Цикл
       НоваяСтрока = ТЗ_Чек.Добавить();
       НоваяСтрока.KOD_CH = База.KOD_CH;
       НоваяСтрока.CHECK_ID = База.CHECK_ID;
       НоваяСтрока.SUMMA = База.SUMMA;
       // остальные поля

       База.Следующая();
   КонецЦикла;
   База.ЗакрытьФайл();
   
   ТЗ_Строки = Новый("ТаблицаЗначений");
   ТЗ_Строки.Колонки.Добавить("KOD_CH");
   ТЗ_Строки.Колонки.Добавить("CHECK_ID");
   ТЗ_Строки.Колонки.Добавить("SUMMA");
   // остальные поля

   База1 = Новый XBase("C:\Users\Владимир\Desktop\DBF\09-01CH_.dbf");
   База1.Кодировка=КодировкаXBase.OEM;
   База1.Первая();
   Пока Не База1.ВКонце() Цикл
       НоваяСтрока = ТЗ_Строки.Добавить();
       НоваяСтрока.KOD_CH = База1.KOD_CH;
       НоваяСтрока.CHECK_ID = База1.CHECK_ID;
       НоваяСтрока.SUMMA = База1.SUMMA;
       // остальные поля

       База1.Следующая();
   КонецЦикла;
   База1.ЗакрытьФайл();
   
   СпрЧеков = Справочники.Чеки;
   СпрСтрокиЧеков = Справочники.СтрокиЧеков;
   
   Для инд=0 по ТЗ_Чек.Количество()-1 Цикл
       ТекСтрокаЧек  = ТЗ_Чек.Получить(инд);
       НайденнаяСсылка = СпрЧеков.НайтиПоРеквизиту("КодЧека", ТекСтрокаЧек.KOD_CH);  // реквизит КодЧека может называться по другому, смотри сам

       Если НЕ НайденнаяСсылка = СпрЧеков.ПустаяСсылка() Тогда  
           Сообщить("Чек с кодом " + ТекСтрока.KOD_CH + "уже есть в базе, пропускаю");
           Продолжить;
       КонецЕсли;
       НовыйОбъектЧек = Справочники["Чеки"].СоздатьЭлемент();
       НовыйОбъектЧек.КодЧека = ТекСтрокаЧек.KOD_CH;
       НовыйОбъектЧек.ЧекИД = ТекСтрокаЧек.CHECK_ID;
       НовыйОбъектЧек.Сумма = ТекСтрокаЧек.SUMMA;
       // остальные поля

       НовыйОбъектЧек.Записать();
       Сообщить("Создан чек " + НовыйОбъектЧек);
       
       Отбор = Новый Структура();
       Отбор.Вставить("KOD_CH",ТекСтрокаЧек.KOD_CH);
       Отбор.Вставить("CHECK_ID",ТекСтрокаЧек.CHECK_ID);
       Строки = ТЗ_Строки.НайтиСтроки(Отбор);
       КвоСтрок = Строки.Количество()-1;
       Для инд1=0 по КвоСтрок Цикл
           ТекСтрока  = Строки.Получить(инд1);
           НайденныеСтрокиЧеков = СпрСтрокиЧеков.НайтиПоРеквизиту("КодЧека", Строки.KOD_CH, , НовыйОбъектЧек.Ссылка);
           Если НайденныеСтрокиЧеков = СпрСтрокиЧеков.ПустаяСсылка() Тогда
               НовыйОбъектСтрокиЧеков = Справочники["СтрокиЧеков"].СоздатьЭлемент();
               НовыйОбъектСтрокиЧеков.Владалец = НовыйОбъектЧек.Ссылка;
               НовыйОбъектСтрокиЧеков.КодЧека = ТекСтрока.KOD_CH;
               НовыйОбъектСтрокиЧеков.ЧекИД = ТекСтрока.CHECK_ID;
               НовыйОбъектСтрокиЧеков.Сумма = ТекСтрока.SUMMA;
               // остальные поля

               НовыйОбъектСтрокиЧеков.Записать();
               Сообщить("Созданы строки чеков " + НовыйОбъектСтрокиЧеков);
           Иначе
               // обновить, ничего не делать ... думай сам

           КонецЕсли;
       КонецЦикла;
   КонецЦикла;

млин, замени
Сообщить("Чек с кодом " + ТекСтрока.KOD_CH + "уже есть в базе, пропускаю");
на
Сообщить("Чек с кодом " + ТекСтрокаЧек.KOD_CH + "уже есть в базе, пропускаю");

Уже заменил

{Форма.Форма(55)}: Поле объекта не обнаружено (KOD_CH)
       НоваяСтрока.KOD_CH = База1.KOD_CH;

(137) ты-же сам говорил что в обоих файлах присутствуют KOD_CH и CHECK_ID

(138) так и есть http://s001.radikal.ru/i196/1108/bb/77443f4667c0.jpg

(139) ты хоть сам смотри немного, там KOD_CH_ вообще-то
надеюсь сам код поправишь :)

Ребята помогите. Загружаю данные из файла dbf в 1с. Грузиться нормально, но только с 3 строки, а нужно со второй. В чем причина?

а через ADO, не лучще сделать? Запросом?

(141) А как грузишь? И почему "со второй", а не с первой?

на первой строчке наименование полей, поэтому нужно со второй

(144) строчки у тебя в экселе, а в ДБФ - заголовок

и вторая "строчка" поэтому равна первой записи

(141) newman379 =   pv94384 ? :)

спасибо за помощь