Ошибка при вызове метода контекста записать значение поля дата не может быть пустой датой

Подскажите что не так?
Существует справочник Групповые, в справочнике есть реквизит наименование, район и табличная часть Улицы (Реквизиты — Улица и Дом). Есть файл excel с колонками Район, Улица, Дом. Пытаюсь закачать файл с проверкой по, загрузить в табличную часть улицы и дома с одинаковым районом.Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	
	//проверим что файл существует

	ФайлНаДиске = Новый Файл(Файл);

	Если Не ФайлНаДиске.Существует() Тогда

		Предупреждение("Файл не найден!");

		Возврат;

	КонецЕсли;	

	
	Ex = ПолучитьТаблицуExcel(Файл);

	
	
	Спр = Справочники.Групповые;



	
	НС = 1;

	Пока Истина Цикл

		Если Спр.НайтиПоРеквизиту("Район", ) = СокрЛП(Ex.Cells(НС,1).Value) Тогда  

		Об=Спр.СоздатьЭлемент();

		К=Об.Улицы.Добавить();

		К.Улица = СокрЛП(Ex.Cells(НС,2).Value);

		К.Дом = СокрЛП(Ex.Cells(НС,3).Value);


		Об.Записать();

		Сообщить("-Создан элемент: "+Об.Наименование);

		КонецЕсли;

				
		#Если Клиент Тогда

		Состояние("Номер обработанной строки: " + НС);	

		#КонецЕсли

		НС = НС + 1;

	КонецЦикла;

	Ex.Quit();



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

а что Вас не устраивает?
код ни о чём.
сравниваете несравнимые типы, это для начала
потом цикл по ИСТИНА где прерывается?

Изменено 31.10.12 17:24:10

Код 1C v 8.х

 

Если СокрЛП(Ex.Cells(НС,1).Value) = "" Тогда Прервать КонецЕсли; //это выход из цикла

ЗначениеРУ = СокрЛП(Ex.Cells(НС,1).Value); //считываем значение

Если НЕ Спр.НайтиПоРеквизиту("Район", ЗначениеРУ).Пустая() Тогда //ищем по реквизиту

.....

КонецЕсли;

   

че та не добавляет а создает новые пустые документыКод 1C v 8.х

 //проверим что файл существует

	ФайлНаДиске = Новый Файл(Файл);

	Если Не ФайлНаДиске.Существует() Тогда

		Предупреждение("Файл не найден!");

		Возврат;

	КонецЕсли;	

	
	Ex = ПолучитьТаблицуExcel(Файл);

	
	
	Спр = Справочники.Групповые;

	
	НС = 1;

	Пока Истина Цикл

		Если СокрЛП(Ex.Cells(НС,1).Value) = "" Тогда 

			Прервать 

		КонецЕсли; //это выход из цикла

		
    ЗначениеРУ = СокрЛП(Ex.Cells(НС,1).Value); //считываем значение

	
    Если НЕ Спр.НайтиПоРеквизиту("РУ", ЗначениеРУ).Пустая() Тогда //ищем по реквизиту  

		Об=Спр.СоздатьЭлемент();

		К=Об.Улицы.Добавить();

		К.Улица = СокрЛП(Ex.Cells(НС,2).Value);

		К.Дом = СокрЛП(Ex.Cells(НС,3).Value);


		Об.Записать();

		Сообщить("-Создан элемент: "+Об.Наименование);

		КонецЕсли;

				
		#Если Клиент Тогда

		Состояние("Номер обработанной строки: " + НС);	

		#КонецЕсли

		НС = НС + 1;

	КонецЦикла;

	Ex.Quit();

Изменено 31.10.12 18:43:56

(7) Ermak, давайте определимся, что Вы хотите получить. В вышеприведённом коде написано, что если нашли элемент с искомым значением, то добавляем новый элемент справочника (создаём) и заполняем его ТЧ.Улицы. Естесственно, что элемент как бы пустой (нет наименования). Я так подозреваю, что Вы хотите отредактировать найденный элемент, тогда надо получить найденный объект, код будет примерно таким:
Код 1C v 8.х

 

ЗначениеРУ = СокрЛП(Ex.Cells(НС,1).Value); //считываем значение	

НайденныйЭлемент = Спр.НайтиПоРеквизиту("РУ", ЗначениеРУ); //ищем по реквизиту

Если НЕ НайденныйЭлемент.Пустая() Тогда //проверка, нашли - не нашли

	Об=НайденныйЭлемент.ПолучитьОбъект();

Иначе

	Об=Спр.СоздатьЭлемент();

	Об.РУ=ЗначениеРУ;

КонецЕсли;

//здесь заполняем ТЧ.Улицы объекта

...

   

Изменено 01.11.12 10:05:06

Вы правильно подозреваете
Я проверил, сначала стала заполнять и создавать еще пустые новые документы, но теперь опять выдает ошибку
{Форма.Форма.Форма(35)}: Значение не является значением объектного типа (Улицы)
ТЧ = Об.Улицы.Добавить();Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	
 //проверим что файл существует

	ФайлНаДиске = Новый Файл(Файл);

	Если Не ФайлНаДиске.Существует() Тогда

		Предупреждение("Файл не найден!");

		Возврат;

	КонецЕсли;	

	
	Ex = ПолучитьТаблицуExcel(Файл);

	
	Спр = Справочники.Групповые;

	
	НС = 1;

	Пока Истина Цикл

		Если СокрЛП(Ex.Cells(НС,1).Value) = "" Тогда 

			Прервать 

		КонецЕсли; //это выход из цикла

		
  ЗначениеРУ = СокрЛП(Ex.Cells(НС,1).Value); //считываем значение

  ЗначениеРУ2 = СокрЛП(Ex.Cells(НС,2).Value);

  ЗначениеРУ3 = СокрЛП(Ex.Cells(НС,3).Value);

  ЗначениеРУ4 = СокрЛП(Ex.Cells(НС,4).Value);


  
НайденныйЭлемент = Спр.НайтиПоРеквизиту("РУ", ЗначениеРУ); //ищем по реквизиту


Если НЕ НайденныйЭлемент.Пустая() Тогда //проверка, нашли - не нашли

	Об=НайденныйЭлемент.ПолучитьОбъект();

Иначе

Сообщить ("Все!!!")

КонецЕсли; 

     ТЧ = Об.Улицы.Добавить();

	 ТЧ.Улица = ЗначениеРУ2;

	 ТЧ.Дом = ЗначениеРУ3 ;

	 ТЧ.Кв = ЗначениеРУ4 ;


     Об.Записать();

	Сообщить("-Создан элемент: "+Об.Наименование);


				
		#Если Клиент Тогда

		Состояние("Номер обработанной строки: " + НС);	

		#КонецЕсли

		НС = НС + 1;

	КонецЦикла;

	Ex.Quit();		

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

Ничего вроде не делал, а почему ошибка не пойму. И еще вот ТЧ.Улица имеет тип Строка, а мне надо Тип Справочники , если ставлю тип справочники тогда не заполняет.

Ошибку выдаёт потому, что вываливается в ИНАЧЕ, объекта в этом случае нет, допишите тогда выход из процедуры или продолжить цикл.
Код 1C v 8.х

 

Если НЕ НайденныйЭлемент.Пустая() Тогда //проверка, нашли - не нашли

	Об=НайденныйЭлемент.ПолучитьОбъект();

Иначе

Сообщить ("Все!!!");

Прервать; // или Продолжить;


КонецЕсли; 

Все разобрался с ошибкой, подскажите по этому вопросу как быть

И еще вот ТЧ.Улица имеет тип Строка, а мне надо Тип Справочники , если ставлю тип справочники тогда не заполняет.

С типом Справочник — да, записывать не будет, потому что надо искать ссылку в справочнике и записывать найденную ссылку.
Код 1C v 8.х

 

УлицаСсылка = Справочники.Улицы.НайтиПоНаименованию(ЗначениеРУ2); //например, я не знаю, как Ваш справочник с улицами называется

ТЧ.Улица = УлицаСсылка;

   

Спасибо получилось.

В форме списка справочника у меня добавлена Табличное поле с колонками Улица, Дом, Квартира , я пытаюсь загрузить данные с формы документа ТЧ.

Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| ГрупповыеУлицы.НомерСтроки КАК Колонка4,
| ГрупповыеУлицы.Улица КАК Колонка1,
| ГрупповыеУлицы.Дом КАК Колонка2,
| ГрупповыеУлицы.Кв КАК Колонка3
|ИЗ
| Справочник.Групповые.Улицы КАК ГрупповыеУлицы»;
Результат = Запрос.Выполнить().Выгрузить();
ЭлементыФормы.ТабличноеПоле1.Значение = Результат;

Смысл в чем, в форме списка, когда нажимаешь на строчку в ТП показываются улицы которые принадлежат данной улице из списка.
Я в какое событие поставить?

При этом событии не работает!

Постараюсь еще раз объяснить:
В Форме списка Табличного поля СправочникСписок добавил еще Табличное поле ТабличноеПоле1 в которой будет выводиться информация с Табличной части Формы Элемента. Т.е нажатии на строчку в СправочникСписок выводится информация ТабличноеПоле1

(15) Mokey,

Процедура СправочникСписокПриАктивацииСтроки()
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| ГрупповыеУлицы.НомерСтроки КАК Колонка4,
| ГрупповыеУлицы.Улица КАК Колонка1,
| ГрупповыеУлицы.Дом КАК Колонка2,
| ГрупповыеУлицы.Кв КАК Колонка3
|ИЗ
| Справочник.Групповые.Улицы КАК ГрупповыеУлицы
|ГДЕ //тут условие надо поставить на данные из текущей строки»;
Результат = Запрос.Выполнить().Выгрузить();
ЭлементыФормы.ТабличноеПоле1.Значение = Результат;
ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();
КонецПроцедуры

Изменено 01.11.12 13:49:07

а вообще, подумал сейчас, зачем огород городить? это же ТЧ элемента, поэтому надо в значение ТабличноеПоле1 выставить ТЧ.Улицы и связать два поля поля Ссылке.
Всё делается без единой строчки кода.

Изменено 01.11.12 13:53:13

Спасибо разобрался!

Я пытаюсь с Excel загрузить документ там есть колонка с датой, я пытаюсь загрузить в реквиз дата и он выдает ошибку

{Форма.Форма.Форма(22)}: Ошибка при вызове метода контекста (Записать)
Об.Записать();
по причине:
Значение поля «Дата» не может быть пустой датой

Процедура КнопкаВыполнитьНажатие(Кнопка)

Что не так?

А что за переменная Дата ?

У меня строчка такая

Код 1C v 8.х

 Об.Дата = СокрЛП(Ex.Cells(НС,1).NumberFormat="ДД.ММ.ГГГГ");   

Выдает ошибку

{Форма.Форма.Форма(17)}: Преобразование значения к типу Дата не может быть выполнено
Об.Дата=Дата(СокрЛП(Ex.Cells(НС,1).NumberFormat=»ГГГГММДД»));

Выложил обработку и файл Скачивать файлы может только зарегистрированный пользователь!

Изменено 01.11.12 16:53:54

Вы мне по-порядку напишите значения выражений:
1. Ex.Cells(НС,1)
2. СокрЛП(Ex.Cells(НС,1).NumberFormat=»ДД.ММ.ГГГГ»)

Изменено 01.11.12 17:40:02

Тогда Вам надо просто написать:
Об.Дата=Ex.Cells(НС,1);

Пы.Сы. Архив всё равно битый))

Ошибку выдает

{Форма.Форма.Форма(27)}: Ошибка при вызове метода контекста (Записать)
Об.Записать();
по причине:
Значение поля «Дата» не может быть пустой датой

Перезалил на обменник http://zalil.ru/33917826

я Вас столько раз просил прислать мне то-то и то-то….
1. Ex.Cells(НС,1) — это комобъект
2.Ex.Cells(НС,1).NumberFormat=»ДД.ММ.ГГГГ» — это сравнение, соответственно возвращает булево

3. Ex.Cells(НС,1).Value — строка с Вашей датой, именно строка, и чтобы преобразовать её в дату надо функцию написать, например, я такую написал:

Код 1C v 8.х

 

Функция ПреобразоватьВДату(ДатаСтрокой)

	Если  (ДатаСтрокой="00000000") или (ДатаСтрокой="") тогда

		Возврат  Дата(0001,01,01);

	Иначе

		Если СтрДлина(Сред(ДатаСтрокой,7)) > 2 Тогда

			ГодСтрокой = Сред(ДатаСтрокой,7);

		Иначе

			ГодСтрокой = "20"+Сред(ДатаСтрокой,7);

		КонецЕсли;

		Возврат  Дата(Число(ГодСтрокой),Число(Сред(ДатаСтрокой,4,2)),Число(Сред(ДатаСтрокой,1,2)));

	КонецЕсли;	

КонецФункции // 

   

Тогда применительно в Вашей задаче:
Об.Дата = ПреобразоватьВДату(СтрЗаменить(СокрЛП(Ex.Cells(НС,1).Value),».»,»»));

А что может быть такое, загрузка пошла, дошла до 700 строки и выдала ошибку

{Форма.Форма.Форма(83)}: Преобразование значения к типу Дата не может быть выполнено
Возврат Дата(Число(ГодСтрокой),Число(Сред(ДатаСтрокой,4,2)),Число(Сред(ДатаСтрокой,1,2)));

вычислил строка 654 последнюю загружает там значение Даты 31.01.2007 а вот на строка следующая 655 значение 01.02.2007 выдает ошибку

{Форма.Форма.Форма(83)}: Преобразование значения к типу Дата не может быть выполнено
Возврат Дата(Число(ГодСтрокой),Число(Сред(ДатаСтрокой,4,2)),Число(Сред(ДатаСтрокой,1,2)));

Загружаю данные для документа выдает ошибку

{Форма.Форма.Форма(82)}: Преобразование значения к типу Дата не может быть выполнено
Возврат Дата(Число(ГодСтрокой),Число(Сред(ДатаСтрокой,4,2)),Число(Сред(ДатаСтрокой,1,2)));

Почему опять?

Я переделал функцию Преобразовать в дату и все пошлоКод 1C v 8.х

  стрДата_ = СокрЛП(СтрЗаменить(стрДата,".",""));

    датДата = Сред(стрДата_,5)+Сред(стрДата_,3,2)+Лев(стрДата_,2);

    Если СтрДлина(стрДата_)=6 Тогда

        датДата = "20"+датДата;

    КонецЕсли;            

	 Возврат Дата(датДата);

   

Подскажите вот я закачиваю информацию в справочник, есть реквизит Тип Справочники.Имя я прописал

Код 1C v 8.х

 УлицаСсылка = Справочники.Адреса.НайтиПоНаименованию(ЗначениеРУ2);   

а если я закачиваю в документ с реквизитом типом Справочники.Имя, как тогда прописать?

У документа есть реквизит :
Район-Поле ввода Ти Значения — Справочник.Район

Когда загружаю данные то значение пустое

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	
	//проверим что файл существует

	ФайлНаДиске = Новый Файл(Файл);

	Если Не ФайлНаДиске.Существует() Тогда

		Предупреждение("Файл не найден!");

		Возврат;

	КонецЕсли;	

	
	Ex = ПолучитьТаблицуExcel(Файл);


	Док = Документы.Потери;

	НС = 1;

	
	 ЗначениеР1 = СокрЛП(Ex.Cells(НС,4).Value);

     ЗначениеР2 = СокрЛП(Ex.Cells(НС,4).Value);

	
	Пока Истина Цикл

			
		Об=Док.СоздатьДокумент();

		Об.Дата = ИзСтрокиВДату(СокрЛП(Ex.Cells(НС,1).Value2));

		Об.Район = ЗначениеР1;

		Об.Кол = СокрЛП(Ex.Cells(НС,3).Value);

		Об.Вид = ЗначениеР2;

		Об.Записать(РежимЗаписиДокумента.Проведение);

		
		Сообщить("-Создан элемент: "+Об.Дата + "---"+"№"+""+ НС);

		
						
		#Если Клиент Тогда

		Состояние("Номер обработанной строки: " + НС);	

		#КонецЕсли

		НС = НС + 1;

	КонецЦикла;

	
	
	Ex.Quit();


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

Спасибо разобрался, все загрузилось Код 1C v 8.х

 //проверим что файл существует

	ФайлНаДиске = Новый Файл(Файл);

	Если Не ФайлНаДиске.Существует() Тогда

		Предупреждение("Файл не найден!");

		Возврат;

	КонецЕсли;	

	
	Ex = ПолучитьТаблицуExcel(Файл);


	Док = Документы.Потери;

	НС = 1;

	
	 ЗначениеР1 = СокрЛП(Ex.Cells(НС,2).Value);

     ЗначениеР2 = СокрЛП(Ex.Cells(НС,4).Value);

	
	Пока Истина Цикл

		
		РайонСслка = Справочники.Район.НайтиПоНаименованию(ЗначениеР1);

		ВидСсылка = Справочники.ВидПотери.НайтиПоНаименованию(ЗначениеР2);

		
		Об=Док.СоздатьДокумент();

		Об.Дата = ИзСтрокиВДату(СокрЛП(Ex.Cells(НС,1).Value2));

		Об.Район = РайонСслка;

		Об.Кол = СокрЛП(Ex.Cells(НС,3).Value);

		Об.Вид = ВидСсылка;

		Об.Записать(РежимЗаписиДокумента.Проведение);

		
		Сообщить("-Создан элемент: "+Об.Дата + "---"+"№"+""+ НС);

		
						
		#Если Клиент Тогда

		Состояние("Номер обработанной строки: " + НС);	

		#КонецЕсли

		НС = НС + 1;

	КонецЦикла;

	
	
	Ex.Quit();

но с данными беда какая та, загрузились одинаковые данные, с одним районом, хотя в файле данные разные