новыйномер » Поиск

Результаты по ключевому слову: новыйномер

Значение поля "Код" не уникально или Значение поля "Номер" не уникально

При работе в 1С, особенно когда много документов или номера редактируются ручками, можно получить ошибки вида:

Значение поля "Код" не уникально или Значение поля "Номер" не уникально

Что делать? Перенумеровывать

Нужно восстановить нумерацию документов или элементов справочника:

Пользователю

Посмотрите: Перенумерация документов, справочников, и сама Обработка Универсальные подбор и обработка объектов

Сбилась автонумерация у документа или справочника с текстовым кодом, что делать?

Программисту:

Посмотрите примеры выше и дополнительно: Как сбросить счётчик нумерации документов или справочников

В модуле ПередЗаписью() дописать функционал проверки:

Код 1C v 8.х

 …

//Проверим текущий номер документа и установим новый если он занят

Если НомерЗанят(Номер) Тогда

УстановитьНовыйНомер();

КонецЕсли;



//функция НомерЗанят() по функционалу очень проста

// в вашей ситуации возможно ее придется изменить

Функция НомерЗанят(НомерДока)

Результат = Ложь;

Попытка

Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ

| Документ_.Номер

|ИЗ

| Документ.Документ КАК Документ_

|ГДЕ

| Документ_.Номер =НомерДока

| И Не Документ_.Ссылка =ТекДок»;

Запрос.УстановитьПараметр(«НомерДока», НомерДока);

Запрос.УстановитьПараметр(«ТекДок», Ссылка);

Результат = не Запрос.Выполнить().Пустой();

Исключение

КонецПопытки;

возврат Результат;

КонецФункции //НомерЗанят()

Категория: Системные Ошибки

Сбилась нумерация после обновления Бухгалтерии на версию 3.0

После обновления бухгалтерии 2.0 на 3.0 нумерация документов начинается заново, что делать и как исправить?

В бухгалтерии редакции 3.0 изменен способ нумерации документов по сравнению с редакцией 2.0.

Для правильной нумерации документов необходимо изменить номер первого создаваемого документа каждого вида так, чтобы он продолжал нумерацию из старой версии.

При этом номера документов, перенесенных из редакции 2.0, в печатных формах будут отображаться правильно.

Например, последний номер документа «Реализация товаров и услуг» был 00000000131.

После обновления на редакцию 3.0 первый введенный документ будет иметь номер 0000-000001.

Чтобы сохранить правильную нумерацию, необходимо в этом документе изменить номер на 0000-000132.

В дальнейшем всем введенным документам «Реализация товаров, услуг» будет присваиваться правильный номер.

Если по каким-то причинам первый способ Вам не помогает, то обратитесь к программисту 1С для настройки нумерации документов.

Ниже приведен код осуществляющий свою нумерацию документов

Код 1C v 8.2 УП

 // Mortal - не претендую на красоту решения, сделал так: //добавил общий модуль mortalАвтонумерация, в котором 1 функция  Функция ПолучитьНомер(Ссылка) Экспорт     ДокИмя = Ссылка.Метаданные().Имя;     Запрос = Новый Запрос;     Запрос.Текст =       "ВЫБРАТЬ ПЕРВЫЕ 1    |    " + ДокИмя + ".Ссылка,    |    " + ДокИмя + ".Дата,    |    " + ДокИмя + ".Номер КАК Номер    |ИЗ    |    Документ." + ДокИмя + " КАК " + ДокИмя + "    |ГДЕ    |    " + ДокИмя + ".Дата МЕЖДУ &ДатаНачала И &ДатаКонца	|    И " + ДокИмя + ".Ссылка <> &ЭтотОбъект    |    И ПОДСТРОКА(" + ДокИмя + ".Номер, 1, 5) <> ""-""    |    И ПОДСТРОКА(" + ДокИмя + ".Номер, 1, 1) = ""0""    |    |УПОРЯДОЧИТЬ ПО    |    Номер УБЫВ";         Запрос.УстановитьПараметр("ДатаНачала", '20130101000000');       	  Запрос.УстановитьПараметр("ДатаКонца",  '20131231235959');        	  Запрос.УстановитьПараметр("ЭтотОбъект", Ссылка);    Результат = Запрос.Выполнить();    Выборка = Результат.Выбрать();    Выборка.Следующий();                                       НомерЧислом = Число(Прав(Выборка.Номер,6));    НовыйНомерСтрокой = Формат((НомерЧислом + 1),"ЧГ=0");    Если СтрДлина(НовыйНомерСтрокой) = 1 Тогда        НовыйНомерСтрокой = ("0000000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 2 Тогда        НовыйНомерСтрокой = ("000000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 3 Тогда        НовыйНомерСтрокой = ("00000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 4 Тогда        НовыйНомерСтрокой = ("0000000" + НовыйНомерСтрокой);    ИначеЕсли СтрДлина(НовыйНомерСтрокой) = 5 Тогда        НовыйНомерСтрокой = ("000000" + НовыйНомерСтрокой);    КонецЕсли;        Возврат(НовыйНомерСтрокой);        КонецФункции// в модуле объекта нужных документов (для которых обязательна сквозная нумерация до конца года) добавил //mortal temp+Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)        Если ЭтотОбъект.ЭтоНовый() Тогда        Если ЭтотОбъект.Дата <= '20140101000000' И ТекущаяДата() <= '20140101000000' Тогда            ЭтотОбъект.Номер = mortalАвтонумерация.ПолучитьНомер(ЭтотОбъект.Ссылка);            КонецЕсли;    КонецЕсли;КонецПроцедуры//mortal temp-

Категория: Системные Ошибки

Загрузка данных в 1С из PDF

В данной статье описан пример реализации загрузки данных накладных из PDF файлов для одного крупного Ритейла...

И так у Нас есть несколько файлов в формате pdf, которые нам необходимо загрузить в 1С.

Чтение PDF файлов из 1С

Первым дело я стал искать, как напрямую можно прочитать данные из 1С в PDF файлах - было найдено много информации и вариантов решений, но к сожалению большинство из них не правильно работали с кодировкой В результате банальный текст вида Красный стул превращался в страшную кракозябру.

Далее после долгих поисков был найден конвертер PDF в TXT - pdf2txt

Поддержка командной строки:

PDF2TXT <input PDF file> [output TXT file] [-logfile] [-open] [-space] [-html] [-format] [-silent] [-blankline] [-summary] [-zoom <num>] [-?] [-h]

<input PDF file> : Open an existing PDF file to convert.

[output TXT file] : Write to TEXT file, the default is same filename of input PDF file.

[-first <page number>]: Specify the first page number.

[-last <page number>]: Specify the last page number.

[-logfile] : Write log to "C:\pdf2txt.log" file.

[-open] : Auto open the text file after it be created.

[-space] : Auto insert spaces into text file.

[-html] : Output to a HTML file, not a text file.

[-format] : Keep the page layout in the generated TXT file.

[-silent] : Disable error and warning messages.

[-blankline] : Auto delete blank line in the generated TXT file.

[-summary] : Get PDF document summary.

[-zoom <num>] : Set zoom ratio, the range is from 50 to 200.

[-unicode] : Create UTF-8 encoding text file.

Примеры:

Код Batch File (DOS, CMD, BAT)

 C:\>PDF2TXT C:\input.pdf

C:\>PDF2TXT C:\input.pdf -unicode

C:\>PDF2TXT C:\input.pdf -first 10 -last 12

C:\>PDF2TXT C:\input.pdf C:\output.txt

C:\>PDF2TXT C:\input.pdf -open -silent -logfile -zoom 150

C:\>PDF2TXT C:\input.pdf C:\output.txt -open -silent

C:\>PDF2TXT C:\*.pdf

C:\>PDF2TXT C:\*.pdf C:\*.txt

C:\>PDF2TXT C:\test\*.pdf C:\test\*.txt

В архиве (Скачать Вы можете из статьи по ссылке) заготовка 1С обработки для частного случая, если она Вам подойдет - Хорошо

Если же нет, то Мы можем для Вас быстро доработать загрузку PDF в 1С!

Код на 1С для конфигурации УТ 10.3:

Код 1C v 8.х

 Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт

	МассивСтрок = Новый Массив();

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				МассивСтрок.Добавить(Стр);

				Возврат МассивСтрок;

			КонецЕсли;

			МассивСтрок.Добавить(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				МассивСтрок.Добавить(Стр);

				Возврат МассивСтрок;

			КонецЕсли;

			ТекЗнч = СокрЛП(Лев(Стр,Поз-1));

			Если ЗначениеЗаполнено(ТекЗнч) Тогда

				МассивСтрок.Добавить(ТекЗнч);

			КонецЕсли;

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;	

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









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

	//Ищем Файлы

	тч.Очистить();

	НайденныеФайлы = НайтиФайлы(ПутьКPDF,"*.pdf",ложь);

	Для каждого стр Из НайденныеФайлы Цикл

		Нстр = ТЧ.Добавить();

		Нстр.ФайлPDF = стр.Имя;

	КонецЦикла;

	ЭтаФорма.Обновить();

	//Преобразуем PDF в TXT

	Для каждого стр Из ТЧ Цикл

		Попытка

			pdf = СокрЛП(ПутьКPDF+"\"+стр.ФайлPDF);

			txt = СтрЗаменить(pdf,"pdf","txt");

			Команд = ПутьКPDF2TXT+"\pdf2txt.exe "+pdf+" "+txt; 

			ЗапуститьПриложение(Команд,ПутьКPDF,Истина);	         

			стр.ФайлTXT = txt;

		Исключение

			стр.ФайлTXT = "!!!_ОШИБКА";

		КонецПопытки;

		ЭлементыФормы.ТЧ.ТекущаяСтрока = стр;

		ЭлементыФормы.ТЧ.ОбновитьСтроки(стр);

	КонецЦикла;	

	

	мТекущийПользователь = глЗначениеПеременной("глТекущийПользователь");

	мСкладПоУмолчанию = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОсновнойСклад");

	мОсновноеПодразделение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОсновноеПодразделение");

	мОсновнаяВалютаВзаиморасчетов = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОсновнаяВалютаВзаиморасчетов");

	мОсновноеВедениеВзаиморасчетовПоДоговорам = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОсновноеВедениеВзаиморасчетовПоДоговорам");

	мВидНоменклатурыПоУмолчанию = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОсновнойВидНоменклатуры");

	

	мОтражатьВРеглУчете = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОтражатьДокументыВУправленческомУчете");

	мОтражатьВБухУчета = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОтражатьДокументыВБухгалтерскомУчете");

	мОтражатьВНалУчете = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(мТекущийПользователь, "ОтражатьДокументыВНалоговомУчете");



	//Создаем Документ

	Для каждого стр Из ТЧ Цикл

		Состояние("Загружаю: "+стр.ФайлTXT);

		текдок=Новый ТекстовыйДокумент;

		текдок.Прочитать(стр.ФайлTXT,"UTF-8");

		ЗагрузкаТЧ=Ложь;

		

		ДокВозвратТоваровОтПокупателя = Документы.ВозвратТоваровОтПокупателя.СоздатьДокумент();	

		ДокВозвратТоваровОтПокупателя.Ответственный = мТекущийПользователь;   	

		ДокВозвратТоваровОтПокупателя.Дата  = ОбщегоНазначения.ПолучитьРабочуюДату();

		ДокВозвратТоваровОтПокупателя.УстановитьНовыйНомер();

		

		ДокВозвратТоваровОтПокупателя.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;

		ДокВозвратТоваровОтПокупателя.СкладОрдер = Склад;

		ДокВозвратТоваровОтПокупателя.Подразделение = мОсновноеПодразделение;

		ДокВозвратТоваровОтПокупателя.ВалютаДокумента  = Справочники.Валюты.НайтиПоКоду("643");

		ДокВозвратТоваровОтПокупателя.УчитыватьНДС     = ИСТИНА;

		ДокВозвратТоваровОтПокупателя.СуммаВключаетНДС = ИСТИНА;



		Для Ном=1 по текдок.КоличествоСтрок() цикл

			ТСтр = текдок.ПолучитьСтроку(Ном);

			ТекСтр = СокрЛП(ТСтр);

			

			Если Найти(ТекСтр, "Всего по накладной")>0 Тогда

				ЗагрузкаТЧ=Ложь;

				

				//делаем пересчеты сумм, количества мест и НДС по строкам

				Для Каждого СтрокаТабличнойЧасти Из ДокВозвратТоваровОтПокупателя.Товары Цикл

					ОбработкаТабличныхЧастей.РассчитатьКоличествоМестТабЧасти(СтрокаТабличнойЧасти, ДокВозвратТоваровОтПокупателя);

					ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(СтрокаТабличнойЧасти, ДокВозвратТоваровОтПокупателя);

					ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(СтрокаТабличнойЧасти, ДокВозвратТоваровОтПокупателя);

				КонецЦикла;

				Попытка  

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

				Исключение

					ДокВозвратТоваровОтПокупателя.Записать(РежимЗаписиДокумента.Запись);  

				КонецПопытки;

				стр.Документ = ДокВозвратТоваровОтПокупателя.Ссылка;

				стр.Инфо = "Все ОК";

				ЭлементыФормы.ТЧ.ТекущаяСтрока = стр;

				ЭлементыФормы.ТЧ.ОбновитьСтроки(стр);

				

				//ВСЕ

				Прервать;

			КонецЕсли;	

				

			Если ЗагрузкаТЧ  Тогда

				ТекСтр = СтрЗаменить(ТекСтр, "подложке  ","подложке");

				ТекСтр = СтрЗаменить(ТекСтр, "   ","|");

				

				СтрМ=РазложитьСтрокуВМассивПодстрок(ТекСтр,"|");

				Если СтрМ.Количество()>2 Тогда

					//Сообщить(СтрМ);

					Попытка

						НоваяСтрока                            = ДокВозвратТоваровОтПокупателя.Товары.Добавить();

						НоваяСтрока.Номенклатура               = Справочники.Номенклатура.НайтиПоКоду(СтрМ[2]);

						//НоваяСтрока.ХарактеристикаНоменклатуры = СтрокаТаблицы.ХарактеристикаНоменклатуры;		

						//УстановитьСтавкуНДСВТабЧасти(НоваяСтрока, СтрокаТаблицы);

						//ПроверитьНаличиеСерииНоменклатуры(НоваяСтрока, СтрокаТаблицы);

						//УстановитьПризнакВеденияПоСериямНоменклатуры(НоваяСтрока); 		

						НоваяСтрока.ЕдиницаИзмерения           = НоваяСтрока.Номенклатура.БазоваяЕдиницаИзмерения;

						НоваяСтрока.Коэффициент                = 1;

						НоваяСтрока.Количество                 = Число(СтрМ[6]);

						НоваяСтрока.Цена                       = Число(СтрМ[7]);

						НоваяСтрока.Сумма         = Число(СтрМ[8]);

						НоваяСтрока.СуммаНДС     = Число(СтрМ[11]);

						НоваяСтрока.Качество = Справочники.Качество.Новый;

						Попытка

							НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС["НДС"+Лев(СокрЛП(СтрМ[9]),2)];

						Исключение

							НоваяСтрока.СтавкаНДС = НоваяСтрока.Номенклатура.СтавкаНДС;

						КонецПопытки;

					Исключение

						Сообщить("Не загружено: "+ТекСтр);

					КонецПопытки;

				Иначе

					Продолжить;

				КонецЕсли;				

			Иначе

				// Возможно что-то будет			

			КонецЕсли;

			//Сообщить(ТекСтр);

			Если Найти(ТекСтр, "Товарная накладная")>0 Тогда

				ТекСтр = СтрЗаменить(ТекСтр, "   ","|");

				СтрМ=РазложитьСтрокуВМассивПодстрок(ТекСтр,"|");

				Если СтрМ.Количество()>1 Тогда

					//Сообщить(СтрМ);

					ДокВозвратТоваровОтПокупателя.НомерВходящегоДокументаЭлектронногоОбмена = СтрМ[1];

					ТекДата = СтрМ[2];

					ДокВозвратТоваровОтПокупателя.ДатаВходящегоДокументаЭлектронногоОбмена = Дата(Прав(ТекДата,4)+Сред(ТекДата,4,2)+Лев(ТекДата,2));

				КонецЕсли;			

			КонецЕсли;

			

			Если Найти(ТекСтр, "Грузополучатель:")>0 Тогда

				//Сообщить(ТекСтр);

				//Получим ИНН

				ГдеИНН = Найти(ТекСтр, "ИНН");

				Если ГдеИНН>0 Тогда

					ГдеИННвр= лев(ТекСтр,ГдеИНН+15);

					текИНН = Прав(гдеИННвр, СтрДлина(ГдеИННвр)-(ГдеИНН+3));

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

					ТекОрганизация = Справочники.Организации.НайтиПоРеквизиту("ИНН",текИНН);

					Если ТекОрганизация=Справочники.Организации.ПустаяСсылка() Тогда

						ДокВозвратТоваровОтПокупателя.Организация = Организация;	

					Иначе

						ДокВозвратТоваровОтПокупателя.Организация = ТекОрганизация;			

					КонецЕсли;

					

				КонецЕсли;	

			КонецЕсли;

			

			Если Найти(ТекСтр, "Поставщик:")>0 Тогда

				//Сообщить(ТекСтр);

				//Получим ИНН

				ГдеИНН = Найти(ТекСтр, "ИНН");

				Если ГдеИНН>0 Тогда

					ГдеИННвр= лев(ТекСтр,ГдеИНН+15);

					текИНН = Прав(гдеИННвр, СтрДлина(ГдеИННвр)-(ГдеИНН+3));

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

					ТекПоставщик = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",текИНН);

					ДокВозвратТоваровОтПокупателя.Контрагент = ТекПоставщик;

					ДокВозвратТоваровОтПокупателя.ДоговорКонтрагента = ТекПоставщик.ОсновнойДоговорКонтрагента;

				КонецЕсли;

			КонецЕсли;

			

			Если Найти(ТекСтр, "Плательщик:")>0 Тогда

				//Сообщить(ТекСтр);

				//Получим ИНН

				ГдеИНН = Найти(ТекСтр, "ИНН");

				Если ГдеИНН>0 Тогда

					ГдеИННвр= лев(ТекСтр,ГдеИНН+15);

					текИНН = Прав(гдеИННвр, СтрДлина(ГдеИННвр)-(ГдеИНН+3));

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

					ТекПлательщик = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",текИНН);

				КонецЕсли;

			КонецЕсли;

			

			Если текстр="1                                   2                                       3            4        5      6       7            8             9      10               11                      12                  13               14                            15" Тогда

				ЗагрузкаТЧ=Истина;				

			КонецЕсли;

		КонецЦикла;	

		

	КонецЦикла;

	

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



Процедура ПутьКPDF2TXTОткрытие(Элемент, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;

	Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 

	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 

	ДиалогОткрытия.Каталог = ""; 

	ДиалогОткрытия.МножественныйВыбор = Ложь; 

	ДиалогОткрытия.Заголовок = "Выберите каталог с PDF2TXT"; 

	Если ДиалогОткрытия.Выбрать() Тогда 

		ПутьКPDF2TXT = ДиалогОткрытия.Каталог; 

		ПутьКPDF = ДиалогОткрытия.Каталог; 

	КонецЕсли; 

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



Процедура ПутьКPDFОткрытие(Элемент, СтандартнаяОбработка)

	СтандартнаяОбработка = Ложь;

	Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 

	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 

	ДиалогОткрытия.Каталог = ""; 

	ДиалогОткрытия.МножественныйВыбор = Ложь; 

	ДиалогОткрытия.Заголовок = "Выберите каталог с PDF2TXT"; 

	Если ДиалогОткрытия.Выбрать() Тогда 

		ПутьКPDF = ДиалогОткрытия.Каталог; 

	КонецЕсли; 

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

Категория: Загрузка данных в 1С

Система оповещений Пользователей (универсальная) Категория: Полезные, Универсальные Функции

Как изменить запись регистра сведений?

Код 1C v 8.х

 НаборЗаписей = РегистрыСведений.НумерацияДоговоров.СоздатьНаборЗаписей();  			

			НаборЗаписей.Отбор.Период.Установить(НачалоГода(Дата));

			НаборЗаписей.Отбор.Организация.Установить(Организация);

			НаборЗаписей.Прочитать();

			Если НаборЗаписей.Количество() = 0 Тогда

				НовыйНомер = НаборЗаписей.Добавить();

				НовыйНомер.Организация = Организация;

				НовыйНомер.Период = НачалоГода(Дата);

				НовыйНомер.Номер = 2; ном=1;

			ИначеЕсли НаборЗаписей.Количество() = 1 Тогда

				НовыйНомер = НаборЗаписей[0];

				ном = НовыйНомер.Номер;

				НовыйНомер.Номер = ном+1;

			КонецЕсли;

			НаборЗаписей.Записать();

			Номер = Организация.Префикс +  "-" + Ном + "/" + Строка(Прав(Год(ТекущаяДата()),2));

Код 1C v 8.х

 //Установить курс Валюты USD

КурсыВалют = РегистрыСведений.КурсыВалют;

НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();

Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");

НаборКурсов.Отбор.Валюта.Установить(Доллар);

НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));

НаборКурсов.Прочитать();

Если НаборКурсов.Количество() = 0 Тогда

    НовыйКурс = НаборКурсов.Добавить();

    НовыйКурс.Валюта = Доллар;

    НовыйКурс.Период = ТекущаяДата();

ИначеЕсли НаборКурсов.Количество() = 1 Тогда

    НовыйКурс = НаборКурсов[0];

Иначе

    Предупреждение("Курс валюты задается один раз в день.", 60);

    Возврат;

КонецЕсли;

НовыйКурс.Курс = 31.44;

НовыйКурс.Кратность = 1;

НаборКурсов.Записать();

Код 1C v 8.х

  //В регистр были ошибочно записаны штрихкоды. 

// Нужно по заданным Номенклатуре (Товар) и Характеристике (ХарактеристикаТовара) найти эту запись и заменить там штрихкод.

  Запрос = Новый Запрос;

    Запрос.Текст = 

    "ВЫБРАТЬ

    |    ШтрихкодыНоменклатуры.Штрихкод КАК Штрихкод

    |ИЗ

    |    РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры

    |ГДЕ

    |    ШтрихкодыНоменклатуры.Номенклатура = &Номенклатура И

    |    ШтрихкодыНоменклатуры.Характеристика = &Характеристика";

    

    Запрос.УстановитьПараметр("Номенклатура", Товар);

    Запрос.УстановитьПараметр("Характеристика", ХарактеристикаТовара);



    Выборка = Запрос.Выполнить().Выбрать();

        Если НЕ Выборка.Следующий() Тогда

        ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();

        ТекЗапись.Номенклатура = Товар;

        Если ЗначениеЗаполнено(ХарактеристикаТовара) Тогда

             ТекЗапись.Характеристика = ХарактеристикаТовара;

        Иначе    

             ТекЗапись.Характеристика = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();

        КонецЕсли;

        ТекЗапись.Штрихкод  = ?(ПустаяСтрока(ШтрихКод),РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13(), Штрихкод);

        Попытка

            ТекЗапись.Записать();

        Исключение

        КонецПопытки;

    Иначе

        НайденныйШтрихкод = Выборка.Штрихкод;

         ТекЗапись = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();

        ТекЗапись.Штрихкод = НайденныйШтрихкод;

        ТекЗапись.Прочитать();

        

        ТекЗапись.Штрихкод  = Штрихкод;

        Попытка

            ТекЗапись.Записать();

        Исключение

        КонецПопытки;



    КонецЕсли;

Категория: Регистры сведений

Как установить префикс документа? Категория: Документы

Как организовать обмен данными между произвольными конфигурациями?

Код 1C v 8.х

 Процедура Выгрузка(Элемент) 



	Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы 



	ЗаписьXML = Новый ЗаписьXML(); 

	ЗаписьXML.ОткрытьФайл(Путь + "выгрузка.xml"); 

	Узел = ПланыОбмена.Поставка.НайтиПоКоду("Маг1"); 



	ЗапСообщения = ПланыОбмена.СоздатьЗаписьСообщения(); 

	ЗапСообщения.НачатьЗапись(ЗаписьXML, Узел); 



	Выборка = ПланыОбмена.ВыбратьИзменения(Узел, ЗапСообщения.НомерСообщения); 



	Пока Выборка.Следующий() Цикл 

		Данные = Выборка.Получить(); 



		Если ТипЗнч(Данные) = Тип("ДокументОбъект.РеализацияТоваров") Тогда 

			ВыгрузкаРеализации(ЗаписьXML, Данные); 

	

		Иначе // все остальные объекты 

			ЗаписатьXML(ЗаписьXML, Данные); 

		КонецЕсли; 

	КонецЦикла; 



	ЗапСообщения.ЗакончитьЗапись(); 

	ЗаписьXML.Закрыть(); 



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





Процедура ВыгрузкаРеализации(ЗаписьXML, Документ) 



	ЗаписьXML.ЗаписатьНачалоЭлемента("DocumentObject.ПередачаТовара"); 



	ЗаписатьXML(ЗаписьXML, Документ.Ссылка.УникальныйИдентификатор(), "Ref", НазначениеТипаXML.Явное); 

	ЗаписатьXML(ЗаписьXML, Документ.ПометкаУдаления, "DeletionMark", НазначениеТипаXML.Явное); 

	ЗаписатьXML(ЗаписьXML, Документ.ВалютаДокумента, "ВалютаДокумента", НазначениеТипаXML.Явное); 



	// Остальные свойства документа. 



	// Табличная часть. 

	ЗаписьXML.ЗаписатьНачалоЭлемента("Товары"); 



	Для Каждого ТекСтрока Из Документ.Товары Цикл

		ЗаписьXML.ЗаписатьНачалоЭлемента("Row"); 



		ЗаписатьXML(ЗаписьXML, ТекСтрока.Номенклатура, "Номенклатура", НазначениеТипаXML.Явное); 

		ЗаписатьXML(ЗаписьXML, ТекСтрока.Количество, "Количество", НазначениеТипаXML.Явное); 



		// Остальные реквизиты табличной части. 



		ЗаписьXML.ЗаписатьКонецЭлемента(); 

	КонецЦикла; 



	ЗаписьXML.ЗаписатьКонецЭлемента(); 

	ЗаписьXML.ЗаписатьКонецЭлемента(); 



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





Процедура Загрузка(Элемент) 



	Путь = "c:\"; //реальный путь к каталогу, в котором создаются файлы 



	ЧтениеXML = Новый ЧтениеXML(); 

	ЧтениеXML.ОткрытьФайл(Путь + "выгрузка.xml"); 

	

	ЧтСообщения = ПланыОбмена.СоздатьЧтениеСообщения(); 

	ЧтСообщения.НачатьЧтение(ЧтениеXML); 



	ПланыОбмена.УдалитьРегистрациюИзменений(ЧтСообщения.Отправитель, ЧтСообщения.НомерСообщения); 



	Пока ВозможностьЧтенияДанных(ЧтениеXML) Цикл 

		Данные = ПрочитатьДанные(ЧтениеXML); 

		

		Если РазрешениеКоллизий(Данные) Тогда 

			Данные.ОбменДанными.Отправитель = ЧтСообщения.Отправитель; 

			Данные.ОбменДанными.Загрузка = Истина; 

			Данные.Записать(); 

		КонецЕсли; 

	КонецЦикла; 



	ЧтСообщения.ЗакончитьЧтение(); 

	ЧтениеXML.Закрыть(); 



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





Функция ВозможностьЧтенияДанных(ЧтениеXML) 



	ТипXML = ПолучитьXMLТип(ЧтениеXML); 



	Если ТипXML = Неопределено Тогда 

		Возврат Ложь; 

	КонецЕсли; 



	Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда 

		Возврат Истина; 

	КонецЕсли; 



	Возврат ВозможностьЧтенияXML(ЧтениеXML); 



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





Функция ПрочитатьДанные(ЧтениеXML) 



	ТипXML = ПолучитьXMLТип(ЧтениеXML); 

	

	Если ТипXML.ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда 

		Возврат ЧтениеРеализации(ЧтениеXML); 

	КонецЕсли; 



	Возврат ПрочитатьXML(ЧтениеXML); 



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





Функция ЧтениеРеализации(ЧтениеXML) 



	ЧтениеXML.Прочитать(); 



	// Работа со ссылкой документа. 

	ПолученнаяСсылка = ПрочитатьXML(ЧтениеXML); 

	Док = Документы.ПоступлениеТоваров.ПолучитьСсылку(Новый УникальныйИдентификатор(ПолученнаяСсылка)); 



	Документ = Док.ПолучитьОбъект(); 



	Если Документ = Неопределено Тогда 

		Документ = Документы.ПоступлениеТоваров.СоздатьДокумент(); 

		Документ.УстановитьСсылкуНового(Док);

		Документ.Дата = ТекущаяДата; 

		Документ.УстановитьНовыйНомер(); 

	КонецЕсли; 



	Документ.ПометкаУдаления = ПрочитатьXML(ЧтениеXML); 

	Документ.ВалютаДокумента = ПрочитатьXML(ЧтениеXML); 



	// Табличная часть "Товары. 

	// Построчное чтение. 

	ЧтениеXML.Прочитать(); 

	Документ.Товары.Очистить(); 



	Пока ЧтениеXML.Имя = "Row" Цикл 



		// Позиционируемся на узле с номенклатурой. 

		ЧтениеXML.Прочитать(); 

		НоваяСтрока = Документ.Товары.Добавить(); 

		НоваяСтрока.Номенклатура = ПрочитатьXML(ЧтениеXML); 

		НоваяСтрока.Количество = ПрочитатьXML(ЧтениеXML); 



		// Читаем конец узла Row. 

		ЧтениеXML.Прочитать(); 

	КонецЦикла; 



	// Читаем конец табличной части. 

	ЧтениеXML.Прочитать(); 



	// Читаем конец документа. 

	ЧтениеXML.Прочитать(); 



	Возврат(Документ); 



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





Функция РазрешениеКоллизий(Данные) 



	Если ТипЗнч(Данные) = Тип("ДокументОбъект.ПоступлениеТоваров") Тогда 



		Если Не Данные.ЭтоНовый() Тогда 

			СсылкаНаУзел = ПланыОбмена.Поставка.НайтиПоКоду("Опт"); 



			Если ПланыОбмена.ИзменениеЗарегистрировано(СсылкаНаУзел, Данные) Тогда 

				Возврат(Ложь); 

			КонецЕсли; 

		КонецЕсли; 

	КонецЕсли; 



	Возврат(Истина); 



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

Категория: Конвертация данных, Обмен, Перенос

Создание нового документа

Для 8.2:
Открыть форму нового документа и предоставить пользователю самому интерактивно записать данные объекта в базу данных:
проще всего использовать метод глобального контекста ОткрытьФорму(). Это можно сделать на клиенте.

Код 1C v 8.2 УП

 ОткрытьФорму("Документ.ПриходнаяНакладная.ФормаОбъекта");

При этом создается новый документ и открывается для редактирования основная форма этого документа.

Если нужно какое-то предварительное заполнение документа начальными данными, то это можно сделать либо с помощью свойств реквизитов документа ЗначениеЗаполнения, ЗаполнятьИзДанныхЗаполнения либо в обработчике события документа ОбработкаЗаполнения.

Создать новый документ программно, программно заполнить его данными и программно записать. Затем, если нужно, показать его пользователю:
можно программно создать документ на сервере, заполнить данными, если это нужно в обработчике события ОбработкаЗаполнения, записать, и передать ссылку на новый документ в метод глобального контекста ОткрытьЗначение(), который откроет форму этого документа. Например:

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПриходнаяНакладная(Команда)



    СсылкаНаДокумент = СоздатьНовыйДокумент();

    ОткрытьЗначение(СсылкаНаДокумент);



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



&НаСервере

Функция СоздатьНовыйДокумент()



   НовыйДокумент = Документы.ПриходнаяНакладная.СоздатьДокумент();

   НовыйДокумент.Номер = "111";

   НовыйДокумент.Дата = ТекущаяДата();

   НовыйДокумент.Записать();



   Возврат НовыйДокумент.Ссылка;



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

Подробнее об использовании методов ОткрытьЗначение() и ОткрытьФорму() можно прочитать в синтакс-помощнике: Глобальный контекст - Процедуры и функции для интерактивной работы

Код 1C v 8.2 УП

 // ЕЩЕ ПРИМЕР:

&НаКлиенте

Процедура СоздатьНовыйДокумент(Команда)

   

        // Вставить содержимое обработчика.

        Если СоздатьНовыйДокументНаСервере() = 0 Тогда

                Сообщить("Не удалось создать новый документ");

        КонецЕсли;



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



&НаСервере

Функция СоздатьНовыйДокументНаСервере()

   

        Перем НоваяРасходнаяНакладная;

        Перем СтрокаТЧ;

   

        НоваяРасходнаяНакладная=ДокРасходнаяНакладная.СоздатьДокумент();

   

        //Заполняем реквизиты шапки

        НоваяРасходнаяНакладная.Дата=  ТекущаяДата();

        НоваяРасходнаяНакладная.Фирма =Справочники.Фирмы.ОсновнаяФирма;

        НоваяРасходнаяНакладная.Контрагент=Справочники.Контрагенты.НайтиПоКоду("000000001");

        НоваяРасходнаяНакладная.Склад=Справочники.Склады.ОсновнойСклад;

   

        //Заполняем табличную часть

        СтрокаТЧ=НоваяРасходнаяНакладная.ТЧТовары.Добавить();

        СтрокаТЧ.Товар=Справочники.Номенклатура.НайтиПоКоду("000000002");

        СтрокаТЧ.Цена=СтрокаТЧ.Товар.РозничнаяЦена;

        СтрокаТЧ.Количество= 2;

        СтрокаТЧ.Сумма=СтрокаТЧ.Цена*СтрокаТЧ.Количество;

   

        Попытка

                НоваяРасходнаяНакладная.Записать();

                Возврат 1;

        Исключение

                Возврат 0;

        КонецПопытки;

                                          

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

Для 8.1:

Код 1C v 8.х

 

//Создаем документ Выплата, Документ будет создан и показан пользователю, Но НЕ ЗАПИСАН

НовДок = Документы.ЗарплатаКВыплатеОрганизаций.ПолучитьФормуНовогоДокумента(); 

НовДок.Дата=ТекущаяДата();

НовДок.Организация=Организация;

НовДок.ПериодРегистрации=ПериодРегистрации;

НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");

НовДок.Комментарий="Выплата за "+МесяцСтрока;

НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 

Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений

НС=НовДок.зарплата.добавить();	

нс.Авторасчет=истина;

нс.Физлицо = ТекущаяСтрока.Физлицо;

нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;

нс.сумма=ТекущаяСтрока.Результат; 

КонецЦикла;

НовДок.Открыть(); 



//Для создания и записи документа используется следующий код:

НовДок = Документы.РасходнаяНакладная.СоздатьДокумент();

НовДок.Дата=ТекущаяДата();

НовыйДок.УстановитьНовыйНомер();

НовДок.Организация=Организация;

НовДок.ПериодРегистрации=ПериодРегистрации;

НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");

НовДок.Комментарий="Выплата за "+МесяцСтрока;

НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 

Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений

НС=НовДок.зарплата.добавить();	

нс.Авторасчет=истина;

нс.Физлицо = ТекущаяСтрока.Физлицо;

нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;

нс.сумма=ТекущаяСтрока.Результат; 

КонецЦикла;

НовДок.Записать();



//Или так:

НовыйДок = Документы.ПеремещениеТоваров.СоздатьДокумент();

НовыйДок.Дата = ПолеВводаДаты;

НовыйДок.УстановитьВремя();

НовыйДок.УстановитьНовыйНомер();

// Формирование табличной части

Для Н=1 По N Цикл

    НоваяСтрока = НовыйДок.Товары.Добавить();

    НоваяСтрока.Номенклатура = СтрокаДанных.Номенклатура;

    // формируются другие реквизиты табличной части

КонецЦикла;

НовыйДок.Записать();

СписокДокументов.Добавить(НовыйДок.Ссылка);

Категория: Документы