найтипореквизиту » Поиск

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

Некоторые особенности работы с настройками прав доступа пользователей в типовых конфигурациях на УФ

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

Будут перечислены все те грабли, которые собрал автор, чтобы вы о них знали.

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

Как было раньше( в обычном приложении):

Есть документ. Есть Роли - ПолныеПрава, ДокументНетДоступа, ДокументТолькоЧтение, ДокументЧтениеИРедактирование. В конфигураторе(аналогичный механизм в реж предприятия) вы выставляете пользователям эти роли и у них появляются соответствующие права доступа на документ. Все просто и скучно и даже зевать хочется.

С введением управляемого приложения разработчики решили усложнить(читается как расширить) настройки прав доступа.

Теперь:

Вводная та же. Чтобы дать пользователю какие-то права на документ - сначала вам необходимо создать элемент справочника Профили групп доступа. Это некий агрегирующий(суммирующий значения) объект, который объединяет роли в группы ролей. Теоритически таких профилей можно создать сколько угодно много с различным набором ролей( N*(n-1), где N - количество ролей), но на практике количество профилей определяется количеством должностных обязанностей пользователей в организации и их гораздо меньше, чем ролей.

Создаем профили Бесправный(с ролью ДокументНетДоступа), Аудитор(с ролью ДокументТолькоЧтение), Бухгалтер(с ролью ДокументЧтениеИРедактирование).

Чтобы "привязать" эти профили к пользователям - нужно создать элементы справочника ГруппыДоступа. В типовых они создаются автоматически, когда вы отмечаете галочками профили для пользователя. Этот справочник соединяет профиль и пользователя(или нескольких пользователей).

При записи этого элемента справочника система автоматически добавляет роли (из профиля) в роли пользователя. Поэтому не стоит напрямую редактировать роли в конфигураторе, как раньше - при редактировании прав в Предприятии все роли в конфигураторе будут обновлены на роли из профилей пользователя. Кроме того, будет наблюдаться явное противоречение между набором профилей с ролями и ролями, установленными в конфигураторе.

Как хранятся роли в Профиле групп доступа, спросите вы. Ведь роли - это объекты МД, это не ссылочные типы. Отвечаю - для этого(и не только) разработчики создали служебный справочник ИдентификаторыОбъектовМетаданных, в котором хранится( в иерархии!) имена, синонимы, значения пустых ссылок всех объектов МД. Если вы хотите создать Профиль программно и добавить в него роль, то код примерно будет таким:

Код 1C v 8.2 УП

 РодительРоли = Справочники.ИдентификаторыОбъектовМетаданных.НайтиПоНаименованию("Роли");//ничего страшного искать по наименованию,



//справочник - служебный и непосредственного редактрования в нем нет

ИдентификаторМоейРоли = Справочники.ИдентификаторыОбъектовМетаданных.НайтиПоРеквизиту("Имя","МояРоль",РодительРоли);

Если ЗначениеЗаполнено(ИдентификаторМоейРоли) Тогда

НайденныйИдентификаторМоейРоли = МойПрофиль.Роли.Найти(ИдентификаторМоейРоли );

Если НайденныйИдентификаторМоейРоли= неопределено тогда

НовСтрока = МойПрофиль.Роли.Добавить();

НовСтрока.Роль = ИдентификаторМоейРоли;

КонецЕсли;

КонецЕсли;

Но если мы добавили новую роль в конфигурации, то как она попадет в справочник? Хороший вопрос. У справочника ИдентификаторыОбъектовМетаданных есть метод, позволяющий обновлять его данные. это:

Код 1C v 8.2 УП

 Справочники.ИдентификаторыОбъектовМетаданных.ОбновитьДанныеСправочника(ИСТИНА,ЛОЖЬ,ЛОЖЬ);//ЕстьИзменения, ЕстьУдаленные, ТолькоПроверка

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

Отлично. Роль добавили, идентификаторы обновили.

Но обратная связь не работает - вы в режиме предприятия назначили пользователю профиль( с созданием группы доступа), а роль у пользователя в конфигураторе не добавилась! Что делать?

За синхронизацию ролей/профилей отвечает константа ПараметрыРаботыПользователей. Если роли не обновляются в конфигураторе, следует обновить её значение:

Код 1C v 8.2 УП

 Константы.ПараметрыРаботыПользователей.СоздатьМенеджерЗначения().ОбновитьОбщиеПараметры();

Хорошо, скажите вы. А как быть, если я хочу создать группы доступа программно? Да не вопрос. Единственное ограничение - не допускаются дубли связок Профиль-Пользоваль в группах доступа. Примерный код будет таким:

Код 1C v 8.2 УП

 //МойПрофиль - профиль, который мы хотим добавить пользователю МойПользователь



Если МойПрофиль = Справочники.ПрофилиГруппДоступа.Администратор Тогда // если мы хотим пользователю дать роль Администратора, 

//то нельзя создавать новую группу доступа, надо редактировать предопределенную Администраторы

ГруппаДоступаАдм = Справочники.ГруппыДоступа.Администраторы;

Если ГруппаДоступаАдм.Пользователи.Найти(МойПользователь) = неопределено Тогда

ГруппаДоступаАдмОб= ГруппаДоступаАдм.ПолучитьОбъект();

НовСтрока = ГруппаДоступаАдмОб.Пользователи.Добавить();

НовСтрока.Пользователь = МойПользователь;

ГруппаДоступаАдмОб.Записать();

КонецЕсли;

Иначе // все прочие профили, кроме Администратора

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

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

|ГруппыДоступа.Ссылка

|ИЗ

|Справочник.ГруппыДоступа КАК ГруппыДоступа

|ГДЕ

|ГруппыДоступа.Профиль = &Профиль

|И (ГруппыДоступа.Пользователь = &Пользователь

|ИЛИ ГруппыДоступа.Пользователи.Пользователь = &Пользователь)

|И НЕ ГруппыДоступа.ПометкаУдаления ";

Запрос.УстановитьПараметр("Профиль",МойПрофиль);   

Запрос.УстановитьПараметр("Пользователь",МойПользователь);

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

Если НЕ Выборка.Следующий() тогда //нет такого профиля, надо создать

МояГруппаДоступаОб = справочники.ГруппыДоступа.СоздатьЭлемент();

МояГруппаДоступаОб.Наименование = Строка(МойПрофиль);

МояГруппаДоступаОб.Пользователь = мойПользователь;

Нов = МояГруппаДоступаОб.Пользователи.Добавить();

Нов.Пользователь = МойПользователь;

МояГруппаДоступаОб.Профиль = МойПрофиль;

МояГруппаДоступаОб.Записать();

КонецЕсли; //Нет такого профиля

КонецЕсли;//профиль Администратор

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

Раз уж пошли по программному пути, вот код, который добавляет пользователя в справочник Пользователи и ПользователяИБ в ПользователиИнформационнойБазы:

Код 1C v 8.2 УП

 ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();

ПользовательИБ.имя = "Иванов";

ПользовательИБ.ПолноеИмя = "Иванов Иван Иванович";

ПользовательИБ.АутентификацияСтандартная = ИСТИНА;

ПользовательИБ.Пароль = "";

ПользовательИБ.записать();

Пользователь = Справочники.Пользователи.НайтиПоРеквизиту("ИдентификаторПользователяИБ",ПользовательИБ.УникальныйИдентификатор));

если Пользователь.Наименование = "" Тогда

//создаем пользователя 

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

ОписаниеПользователяИБ = Пользователи.НовоеОписаниеПользователяИБ();

ЗаполнитьЗначенияСвойств(ОписаниеПользователяИБ,ПользовательИБ);

ОписаниеПользователяИБ.УникальныйИдентификатор =  Соединение.NewObject("УникальныйИдентификатор",ПользовательИБ.УникальныйИдентификатор);

ПользовательОб.Наименование = ОписаниеПользователяИБ.ПолноеИмя; 

ОписаниеПользователяИБ.Вставить("Действие","Записать");

ПользовательОб.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ",ОписаниеПользователяИБ);

ПользовательОб.записать();

КонецЕсли;

Если вы добавляете не программно, то добавлять нужно из режима Предприятия - тогда пользовательИБ у вас сам создатся.

И если раньше, в обычном приложении, достаточно будет добавить польз в конфигураторе - и при заходе в Предприятие, этот польз сам создавался в спр Пользователи, то с управляемым приложением такой фокус не прокатит - система не даст зайти под пользователемИБ, которого нет в справочнике Пользователи.

Автор: Stim - Источник

Категория: Управляемое приложение, Тонкий клиент

Загрузка данных в 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С

Использование Web-сервисов для синхронизации баз данных в режиме online 1с 8.х Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Загрузка данных из таблицы OpenOffice Calc v.3

Код 1C v 8.х

 Процедура ЗагрузитьПрайс(Кнопка)

   

   Попытка

      ServiceManager = Новый ComОбъект("com.sun.star.ServiceManager");

      МетодЗагрузки = "ОО";

   Исключение

      Сообщить("Отсутствует приложение для загрузки файла");

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

   

   

   Если МетодЗагрузки = "ОО" Тогда

      

      scr             = Новый ComОбъект("MSScriptControl.ScriptControl");    

      scr.language    = "javascript";

      scr.eval("MassivParametrov = new Array()");

      MassivParametrov = scr.eval("MassivParametrov");

      scr.AddObject("OpenOffice", ServiceManager);

      scr.eval("MassivParametrov[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");

      scr.eval("MassivParametrov[0].Name='Hidden'");

      scr.eval("MassivParametrov[0].Value=true");





      

      Desktop = ServiceManager.CreateInstance("com.sun.star.frame.Desktop");

      URL = ConvertToURL(ПутьКПрайсу); 

      Doc = Desktop.LoadComponentFromURL(URL, "_blank", 0, MassivParametrov);

      

      Doc.lockControllers();

      Doc.addActionLock();

      

      Sheets = Doc.GetSheets();;

      Документ = Sheets.GetByIndex(0);

      //Документ = Sheets.GetByName("Лист1");

      

      ТЗ = Новый ТаблицаЗначений;

      ТЗ.Колонки.Добавить("Артикул");

      ТЗ.Колонки.Добавить(   "Цена");

      

      Дальше = 1;

      ТекСтрокаДок = НачальнаяСтрока; 

      Пока Дальше = 1 Цикл

         

         Проверка = СокрЛП(""+Документ.getCellByPosition(0, ТекСтрокаДок).getString()); 

         Если ПустаяСтрока(Проверка) Тогда

            Прервать;

         КонецЕсли;   

         Артикул = СокрЛП(""+Документ.getCellByPosition(КолонкаАртикула-1, ТекСтрокаДок).getString());

         Попытка

            Цена    = Число(СокрЛП(""+Документ.getCellByPosition(КолонкаЦены-1    , ТекСтрокаДок).getString()));

         Исключение

            Цена = 0;

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

         

         

         Если (НЕ ПустаяСтрока(СокрЛП(Артикул))) и (НЕ Цена = 0) Тогда  

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

            НоваяСтрока.Артикул = Артикул; 

            НоваяСтрока.Цена    = Цена;

         КонецЕсли;

         

         Состояние("Обрабатываем - "+ТекСтрокаДок);



         ТекСтрокаДок = ТекСтрокаДок+1;

                        

      КонецЦикла;

      

      Если ТЗ.Количество() > 0 Тогда

         

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

         Док.Дата = ДатаУстановкиЦен;

         ДобавитьТипЦен = Док.ТипыЦен.Добавить();

         ДобавитьТипЦен.ТипЦен = ТипЦены;

         

         Для Каждого ТекСтрока из ТЗ Цикл

            Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТекСтрока.Артикул); 

            Если НЕ Номенклатура.Пустая() Тогда

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

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

               НоваяСтрока.ТипЦен       = ТипЦены;

               НоваяСтрока.Цена         = ТекСтрока.Цена;

               НоваяСтрока.Валюта       = Валюта;

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

            КонецЕсли;   

         КонецЦикла;

         

         Если Док.Товары.Количество() > 0 Тогда

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

         КонецЕсли;   

         

      КонецЕсли;   

      

   КонецЕсли;

   

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



функция ConvertToURL(FileName)

    ИмяФайла =  СтрЗаменить(FileName," ","%20" );

    ИмяФайла =  СтрЗаменить(ИмяФайла,"\","/");

    Возврат "file:/" + "/localhost/" + ИмяФайла;

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

Категория: Работа с Microsoft Office и OpenOffice

Как в форме списка журнала расчетов Зарплата вывести только записи, с отбор по графе Образование Категория: Журналы расчетов

Как получить последнее значение регистра сведений? Категория: Регистры сведений

Проверка контрагентов на задвоение по ИНН при вводе

В 7.7 Откройте Справочник Контрагенты - Форма Элемента, двойным щелчком по полю ИНН, на закладке Дополнительно в поле формула введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()

Код 1C v 7.x

 Процедура ПроверкаИНН() 

	СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");

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

		Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));

	КонецЕсли;

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

В 8- ой версии, откройте Справочник Контрагенты - Форму Элемента, двойным щелчком по полю ИНН, в событиях ПриИзменении введите ПроверкаИНН()
И в Модуль добавьте процедуру ПроверкаИНН()

Код 1C v 8.х

 Процедура ПроверкаИНН() 

	СпрКонтрагенты = Справочники.Контрагенты;

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

		Предупреждение("Найден контрагент с таким же ИНН :"+РазделительСтрок+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));

	КонецЕсли;

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

Теперь при вводе ИНН происходит проверка, если Контрагент с таким ИНН уже есть в базе, то выдается Предупреждение!

Код 1C v 8.2 УП

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

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

		Предупреждение("Найден контрагент с таким же ИНН : "+Строка(СпрКонтрагенты.Код)+" - "+Строка(СпрКонтрагенты));

	КонецЕсли;

Категория: Полезные, Универсальные Функции

Поиск элемента, найти элемент справочника

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПоКнопкеНайти(Команда)

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

   

    Сообщить(НайтиКонтрагента("000000001"));

   

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



&НаСервере

Функция НайтиКонтрагента(КодКонтрагента)

   

    Перем КонрагентДляПоиска, СсылкаНайденногоКонрагента;

    КонрагентДляПоиска = Справочники.Контрагенты;

    СсылкаНайденногоКонрагента = КонрагентДляПоиска.НайтиПоКоду(КодКонтрагента);

    Если СсылкаНайденногоКонрагента = КонрагентДляПоиска.ПустаяСсылка() Тогда

        Возврат "Контрагент не найден";

   Иначе

        Возврат СсылкаНайденногоКонрагента.Наименование;

    КонецЕсли;

   

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

Код 1C v 8.х

 // Ниже перечислены несколько способов поиска,если элемент найден, то он возвращается,

// иначе возвращается Неопределено

СпрСотр = Справочники.Сотрудники;

НайденныйСотр = СпрСотр.НайтиПоКоду(123);

НайденныйСотр = СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович");

НайденныйСотр СпрСотр.НайтиПоРеквизиту("Оклад", 5000);



//далее нужно проверить найденное значение так:

РезультатПоиска = Справочники.Номенклатура.НайтиПоКоду("00030"); 

Если РезультатПоиска.Пустая() Тогда 

	// Выполнить действия, предусмотренные в случае, когда элемент не найден.  

КонецЕсли; 

// или так:

НайденныйСотр = СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович");

Если НайденныйСотр = Неопределено Тогда

.....//элемент не найден

КонецЕсли;

Код 1C v 7.x

  СпрСотр = СоздатьОбъект("Справочник.Сотрудники");



СпрСотр.НайтиЭлемент(Сотрудник);

СпрСотр.НайтиПоКоду(123);

СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович");

СпрСотр.НайтиПоРеквизиту("Оклад", 5000);



//если элемент найден, он становится текущим и его можно прочитать так:

Если СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович")=1 Тогда

........НайденныйСотр = СпрСотр.ТекущийЭлемент();

КонецЕсли; 



//еще пример

спр=СоздатьОбъект("Справочник.Материалы");

Если спр.НайтиПоНаименованию("Пряжа шерстяная")=1 Тогда

    Предупреждение("Найденный элемент справочника имеет код "+спр.ТекущийЭлемент().Код);

Иначе

    Предупреждение("Элемент с заданным наименованием не найден");

КонецЕсли;

Категория: Справочники