ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / ошибка значения
6 сообщений из 6, страница 1 из 1
ошибка значения
    #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:07
| Ответить | Цитировать | Написать  
ошибка значения
    #37040944
apelsinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
apelsinka
Гость
Попробовала писать
Код: plaintext
1.
2.
Период = СоздатьОбъект("Периодический");	
Период.ИспользоватьОбъект("КолПроп", Спр.ТекущийЭлемент());
Период.ВыбратьЗначения();

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

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

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

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


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