Имя: Пароль:
1C
1С v8
Значение не является значением объектного типа (Документ)
0 GreenDay1986
 
19.11.11
12:52
Для СчФизЛиц = 0 По СписФизЛиц.Количество() -1 Цикл
       //Кепка Лицевой стороны
       Область        = Макет.ПолучитьОбласть("КепкаЛицевойСтороны");
       Работник    = СписФизЛиц[СчФизЛиц];
       КадрДанные    = ПолучитьКадровыеДанные(Работник);
       
       ДатаПеремещения = "";    ДолжностьПеремещения = "";    ПодразделениеПеремещения = "";
       ДатаПриема = "";        ДолжностьПриема = "";        ПодразделениеПриема = "";
       
       Пока КадрДанные.Следующий() Цикл
           СтрокаРаботникиОрганизации                = КадрДанные.Документ.РаботникиОрганизации.Найти(Работник,"ФизЛицо");
           Если КадрДанные.ВидДокумента = "ПриемНаРаботуВОрганизацию" Тогда
               ДатаПриема                            = Формат(КадрДанные.Документ.Дата,"ДФ=dd.MM.yyyy; ДЛФ=DD; ДП='Пустая дата'");
               ДолжностьПриема                        = СтрокаРаботникиОрганизации.Должность.Наименование;
               ПодразделениеПриема                    = СтрокаРаботникиОрганизации.ПодразделениеОрганизации.Наименование;
           КонецЕсли;    
           Если КадрДанные.ВидДокумента = "КадровоеПеремещениеОрганизаций" Тогда
               ДатаПеремещения                        = Формат(КадрДанные.Документ.Дата,"ДФ=dd.MM.yyyy; ДЛФ=DD; ДП='Пустая дата'");
               ДолжностьПеремещения                = СтрокаРаботникиОрганизации.Должность.Наименование;
               ПодразделениеПеремещения            = СтрокаРаботникиОрганизации.ПодразделениеОрганизации.Наименование;
           КонецЕсли;    
           п =1;
1 Пришел в тапках
 
19.11.11
12:54
посмотри в отладчике
2 Любопытная
 
19.11.11
12:55
Не вижу, как ошибка в заголовке относится к тексту в сообщении.
На каком месте ошибка хоть?
3 GreenDay1986
 
19.11.11
12:55
{Форма.ЛичнаяКарточкаВыдачиСредствИндивидуальнойЗащиты.Форма(370)}: Значение не является значением объектного типа (Документ)
           СтрокаРаботникиОрганизации                = КадрДанные.Документ.РаботникиОрганизации.Найти(Работник,"ФизЛицо");
4 Любопытная
 
19.11.11
12:58
Ну так посмотри, что у тебя в КадрДанные
5 GreenDay1986
 
19.11.11
13:06
адрДанные    = ПолучитьКадровыеДанные(Работник);

Функция ПолучитьКадровыеДанные(Физлицо)
   
   Перем СвойствоИнфоПоОрганизации;
   
   МестаРаботыИСостоянияФизлица = ПолучитьМестаРаботыИСостоянияРаботника(Физлицо);
   
   КадровыеДанные = Новый Соответствие;
   КадровыеДанныеПриемНаРаботу = Новый Соответствие;
   КадровыеДанные.Очистить();
   КадровыеДанныеПриемНаРаботу.Очистить();
   // Формирование КадровыДанных по местам работы работника
   Для Каждого МестоРаботы Из МестаРаботыИСостоянияФизлица Цикл
       
       Если МестоРаботы.ВидРегистра = "РаботникиОрганизаций" Тогда
           
           ИнфоПоКадрамОрганизации = Новый Структура(
           "Наименование,
           |ПриемНаРаботуВОрганизацию,
           |КадровоеПеремещениеОрганизаций,
           |ОтпускаОрганизаций,
           |КомандировкиОрганизаций,
           |УвольнениеИзОрганизаций,
           |АнкетаЗастрахованногоЛица,
           |ЗаявлениеОбОбменеДубликатеСтраховогоСвидетельства",
           МестоРаботы.ОбособленноеПодразделениеНаименование,
           Новый Массив,
           Новый Массив,
           Новый Массив,
           Новый Массив,
           Новый Массив,
           Новый Массив,
           Новый Массив);
           КадровыеДанные[МестоРаботы.ОбособленноеПодразделение] = ИнфоПоКадрамОрганизации;
           
       КонецЕсли;
       
   КонецЦикла;
6 GreenDay1986
 
21.11.11
08:47
У кого - нить есть соображения?
7 Смешной 1С
 
21.11.11
08:50
В КадрДанные нет Документ