Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / ошибка значения / 6 сообщений из 6, страница 1 из 1
29.12.2010, 14:07
    #37040820
apelsinka
apelsinka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка значения
День добрый всем!
Первый раз в жизни столкнулась с 1С. Семерка. Пытаюсь экспортировать в Excel

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
Процедура пЭкспорт()
     //документ
     Д=СоздатьОбъект("Документ");
     //приложение
     Оле=СоздатьОбъект("Excel.Application");
     Оле.Visible= 1 ; 
     Книга=Оле.Workbooks().Add();
     Книга.Windows( 1 ).Caption=Д.ПредставлениеВида()+" "+СокрЛП(Д.НомерДок);
     Лист=Книга.Activesheet;
     //шапка
...
    //данные
	 i =  2 ;
	 Спр.ВыбратьЭлементы();
	 
	 Пока спр.ПолучитьЭлемент()= 1  Цикл 
	 	Ячейка=Лист.Cells(i, 1 ); 	
   		Ячейка.Value = "Киренск";

	 	поз = найти(Спр.Дом.Наименование, " д.");
	 	
   		Если поз >  0  Тогда
	 		улица = Сред(Спр.Дом.Наименование,  1 , поз -  1 );
			поз_к	= найти (Спр.Дом.Наименование, "-");
		    Если поз_к >  0  Тогда
				дом = Сред(Спр.Дом.Наименование, поз +  3 , поз_к - (поз +  3 ));
				копр = Сред (Спр.Дом.Наименование, поз_к +  1 ,  1 );   
			Иначе
				дом = Сред(Спр.Дом.Наименование, поз +  3 ,  5 );
			конецЕсли;
		
	 	Иначе
	 		улица = Спр.Дом.Наименование;    
	 	КонецЕсли;
	 	
	 		 	
   		Ячейка=Лист.Cells(i, 2 ); 
   		Ячейка.Value = улица;
   		
	 	Ячейка=Лист.Cells(i, 3 ); 
	 	Ячейка.Value = дом;

	 	Ячейка=Лист.Cells(i, 4 ); 
	 	Ячейка.Value = корп;

   		Ячейка=Лист.Cells(i, 5 ); 
	 	Ячейка.Value = Спр.Кв; 

   		Ячейка=Лист.Cells(i, 8 ); 
	 	Ячейка.Value = Спр.Код; 

   		Ячейка=Лист.Cells(i, 9 ); 
	 	Ячейка.Value = Спр.Наименование; 
	 	
   		Ячейка=Лист.Cells(i, 10 ); 
	 	Ячейка.Value = "?";
                      	 	
	 	Ячейка=Лист.Cells(i, 12 ); 
	 	Ячейка.Value = Спр.НаимТипСобств; 

	 	Ячейка=Лист.Cells(i, 13 );
        		Ячейка.Value = Спр.КолПроп;
	
	 	
	 	Ячейка=Лист.Cells(i, 14 ); 
	// 	Ячейка.Value = Спр.КолПроп.;
	 	
	 	Ячейка=Лист.Cells(i, 15 ); 
	 //	Ячейка.Value = Спр.КолКомн;
	 	
	 	Ячейка=Лист.Cells(i, 16 ); 
	 //	Ячейка.Value = Спр.ОбщПл;

	 	Ячейка=Лист.Cells(i, 17 ); 
	 //	Ячейка.Value = Спр.ЖилПл;
	 	                            
	
	 	
	 	i = i +  1 ;
	 КонецЦикла;
   	
   		
     //авто подбор ширины
     Лист.Cells.EntireColumn.AutoFit();
     //закрепление области
     Лист.Range("A2").Select();
     Оле.ActiveWindow.FreezePanes= 1 ;
     Оле.Visible= 1 ;	 
КонецПроцедуры

На строчке Ячейка.Value = Спр.КолПроп; - ошибка Плохой тип переменной
Если пробую Ячейка.Value = Спр.КолПроп.ПолучитьЗначение(); - ошибка Поле агрегатного объекта не обнаружено (Значение).

Как подскажите быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2010, 14:51
    #37040944
apelsinka
apelsinka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка значения
Попробовала писать
Код: plaintext
1.
2.
Период = СоздатьОбъект("Периодический");	
Период.ИспользоватьОбъект("КолПроп", Спр.ТекущийЭлемент());
Период.ВыбратьЗначения();

Тогда ошибка - КолПроп не является константой или периодическим параметром!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2010, 15:10
    #37041012
Dinamo
Dinamo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка значения
apelsinkaНа строчке Ячейка.Value = Спр.КолПроп; - ошибка Плохой тип переменной

1. Какой тип у реквизита? Является ли он периодическим?
2. В отладчике какое значение показывает для данного реквизита?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2010, 15:18
    #37041044
Dinamo
Dinamo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка значения
Dinamo,
Если выяснится что реквизит периодический используйте ЗначениеНаДату();

Ячейка = Спр.КолПроп.ЗначениеНаДату(ДатаНаКоторуюНужноПолучитьЗначение);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.12.2010, 15:21
    #37041052
Dinamo
Dinamo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка значения
Извините, неправильно написал
ЗначениеНаДату здесь нельзя использовать.
Для получения значения периодического реквизита используйте Получить()

Ячейка = Спр.КолПроп.Получить(ДатаНаКоторуюНужноПолучитьЗначение);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.12.2010, 06:18
    #37041909
apelsinka
apelsinka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка значения
Dinamo, огромное спасибо! Получилось )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / ошибка значения / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 419ms
Закрыть
start [/forum/topic.php?fid=28&mobile=1&tid=1521700]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 146ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 207ms
total:  419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]