Добрый день!
Проблема с циклом, не доходит до конца, и на одной позиции выдает ошибку "Значение не является значением объектного типа (ДляБольничных)
"

ДБФ = Новый XBase;
   ДБФ.Кодировка = КодировкаXBase.ANSI;
   ДБФ.ОткрытьФайл(КаталогДанных+"zp_2011.dbf");    
   
   ДБФ.Первая();
   Пока НЕ ДБФ.ВКонце() Цикл
       
       ДатаДень=Лев(ДБФ.N6, 2);
       ДатаМес=Сред(ДБФ.N6, 4, 2);
       ДатаГод= "20" + Прав(ДБФ.N6, 2);
       
       Дата = ДатаГод + ДатаМес + ДатаДень;    
       
       
       Если Число(ДатаГод) < 2012 Тогда
           ДБФ.Следующая();
           Продолжить;
       КонецЕсли;

       Если СокрЛП(ДБФ.N2) <> ИДСотрудника Тогда    
           ДБФ.Следующая();
           Продолжить;
       КонецЕсли;
               
       ИскомаяДата = НачалоДня(КонецМесяца(Дата));
       
       Если СокрЛП(ДБФ.N7) <> "Повременно" Тогда    
           
           СтрокаТаблицы = тзЗаработок.Найти  (ИскомаяДата, "ДатаПериода");            СтрокаТаблицы.ДляБольничных = (ДБФ.N9);                  
Сообщить(""+ИскомаяДата+" "+ДБФ.N7+", "+ДБФ.N8+", "+ДБФ.N9);
                               
           ДБФ.Следующая();
           Продолжить;
       КонецЕсли;
       
                   
       СтрокаТаблицы = тзЗаработок.Найти(ИскомаяДата, "ДатаПериода");
       
       Если СтрокаТаблицы <> Неопределено Тогда
                       СтрокаТаблицы.Начислено = СтрокаТаблицы.Начислено + ДБФ.N10;
           
       КонецЕсли;
       
       ДБФ.Следующая();
                           
   КонецЦикла;
   ОткрытьЗначение(тзЗаработок);

   Возврат тзЗаработок;

видать не нашел строку

Ошибку выдает вот на этой строке:

СтрокаТаблицы.ДляБольничных = (ДБФ.N9);

А не доходит вот до этого:

СтрокаТаблицы = тзЗаработок.Найти(ИскомаяДата, "ДатаПериода");
       
       Если СтрокаТаблицы <> Неопределено Тогда
                       СтрокаТаблицы.Начислено = СтрокаТаблицы.Начислено + ДБФ.N10;
           
       КонецЕсли;
       
       ДБФ.Следующая();

Синтаксис:

Найти(<Значение>, <Колонки>)
Возвращаемое значение:

Тип: СтрокаТаблицыЗначений, Неопределено.
Строка, в которой содержится искомое значение. Если значение не найдено, то возвращается значение Неопределено.

так вроде.

Находит, он не сразу на ней стопорится. Несколько вариантов прогоняет...

(4) смешно

Пробовал.
Получается он на пустом прерывается?

попробуй так:
СтрокаТаблицы = тзЗаработок.Найти  (ИскомаяДата,"ДатаПериода");
Если НЕ СтрокаТаблицы = Неопределено Тогда
СтрокаТаблицы.ДляБольничных = (ДБФ.N9);
Сообщить(""+ИскомаяДата+" "+ДБФ.N7+", "+ДБФ.N8+", "+ДБФ.N9);
КонецЕсли;

Теперь ошибки по типу нет.
Но дальше все равно идти не хочет...

И данная строчка почему-то не всеми цифрами заполняется.

(8) Там где не заполняется-в тзЗаработок нету подходящих строк. Ставь остановку по ошибке и смотри значения.

т.е остановку по ошибке? просто Остановку или с условием?

и дальше то почему цикл не идет?

А дальше куда? "Продолжить" само написалось?=)

Хм.Странно...
Давно вроде с этим работало...

Спасибо!

В таблице получается несколько строк с одинаковой датой, как нужно написать чтоб

СтрокаТаблицы.Начислено

Если она в первой строке с датой пустая, то бралась из следующей?

(0) Это для каждого сотрудника каждый раз открывается dbf-ка?!

Т.е? Для каждого?
Точнее надо даже не одно значение, а сумму значений из колонки.

Или если еще и группировку по дате сделать, то вообще идеал.

(16) Ну из кода:
Если СокрЛП(ДБФ.N2) <> ИДСотрудника Тогда    
           ДБФ.Следующая();
           Продолжить;
       КонецЕсли;

Значит, либо сей кусок в цикле, либо код в (0)...
{Оставляет желать лучшего}

(16) Легко, используя ADO DB получить желаемое

Почему она открывается? Он же просто следующую строчку проверяет.

У меня сейчас вопрос в другом... До красоты кода мне еще расти и расти...

(19) Толку оптимизировать изначально кривой код?

Чем кривой? Идет перебор строк. ДБФ как открылась, и до последней строки не закрывается.

(21) Зачем? Если надо отобрать только записи, с  ДБФ=ИДСотрудника и ДБФ.N7<> "Повременно".

Почему только эти? Там еще куча значений...

(23) Врешь :))))
Если СокрЛП(ДБФ.N2) <> ИДСотрудника Тогда    
        ДБФ.Следующая(); // ЗАПИСЬ ПРОПУСКАЕТСЯ
        Продолжить;
КонецЕсли;

Так если N2 совпадает, то там еще куча.
Все равно не понимаю :-(, чем не подходит такой перебор строк

(25) Тем, что мееееедддддллллееееенннноооо

А как быстро?

(27) см (18) там запросом можно получить сразу то, что нужно.

Можно еще ДБФ сразу прочитать в ТЗ, а потом уже работать с ней. Ежли конечно она не слишком велика.

Можно сделать индекс по интересующим полям, будет легко и просто искать