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

 



Процедура ПриЗаписи(Отказ, РежимЗаписи)

      

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

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

        "ВЫБРАТЬ

        |	Хозрасчетный.Код КАК Код,

        |   Хозрасчетный.Родитель.Код КАК РодительКод

        |ИЗ

        |ПланСчетов.Хозрасчетный КАК Хозрасчетный

        |ГДЕ

	    |Хозрасчетный.Родитель В (&СчетДт,СчетКт)";

    

    СчетДт = ЭтотОбъект[0].СчетДт;

    СчетКт = ЭтотОбъект[0].СчетКт;

    

    Запрос.УстановитьПараметр("СчетДт", СчетДт);

    Запрос.УстановитьПараметр("СчетКт", СчетКт);

    

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

    

    Если НЕ РезультатЗапроса.Пустой() Тогда

        

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

        

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

            Если СтрНайти(ВыборкаДетальныеЗаписи.Код, ".") Тогда

                Отказ = Истина; 

                Сообщить("Некорретный номер счета - " + ВыборкаДетальныеЗаписи.РодительКод);   	

            КонецЕсли;		

        КонецЦикла;

    КонецЕсли;

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





   

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

 

RegExp = Новый COMОбъект("VBScript.RegExp");

RegExp.Global = Истина;

RegExp.Pattern = "^\d+$"; //шаблон поиска

Matches = RegExp.Execute(НашаСтрока);            

Результат = Matches.Count;

   

Если в строке только цифры, результат = 1, если нет - 0

Внезапно 1С перестала видеть программные лицензии выдавая ошибку:

Не найдена лицензия. Не обнаружен ключ защиты программы или полученная программная лицензия!по причине:

Поиск лицензии на клиенте:

локальный ключ недоступен: Status=-10, ORGL8 Локальный, не установлен

Ошибка программного лицензирования. Неверный формат файла программного лицензирования: file://C:/ProgramData/1C/licenses/file0.lic

Решение:

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

Файл лицензии на компьютере должен быть один.

Файл лицензии можно перемещать, но нельзя копировать.

Для решения проблемы следует на всех компьютерах, где ранее ставилась эта лицензия, найти и удалить все файлы 2*.lic и все файлы conn8211.pfl (или 1cv8conn.pfl, если версия 8.3)

Если используется клиент-серверный вариант работы, то перестартуйте службу агента сервера.

Затем на данном компьютере выполните обновление (восстановление) всех ранее установленных на нем лицензий по последнему использованному пин-коду.

Если при этом появится сообщение "Пинкод уже активирован. Повторная активация этого пинкода на другой компьютер запрещена", значит у компьютера изменились ключевые параметры. В таком случае произведите повторное получение лицензии, используя резервный пин-код. Не используйте резервный пин-код, если такого сообщения не получено.

Способ №1 На сервере: удалить conn8211.pfl или 1cv8conn.pfl

Способ №2 Перегенерация ключей в 1С удалить старые ключи: *.lic

И перегенируем ключи используя скан лицензии и те данные которые вводились изначально(на кого активировалась лицензия)

Если лицензия по прежнему не обнаруживается:

1. Убедитесь, что используется версия платформы не ниже 8.2.15. Если ниже - скачайте с пользовательского сайта.

2. В окне с перечнем информационных баз нажмите "Настройка" и поставьте галочку "Использовать аппаратную лицензию...", если она не стоит.

3. При появлении сообщения об отсутствии лицензии откажитесь получать лицензию и нажмите кнопку "Подробно" и прислать в 1С текст появившегося Журнала поиска ключа. 

в Windows файлы lic и pfl обычно находятся в:

\ProgramData\1С\conf\;

\Program Files (x86)\1cv8\conf;

%ИмяПользователя%\AppData\Local\1C.

в Linux файлы lic и pfl обычно находятся в:

/home/usr1cv82/.1cv82/1C/1Cv82/conf

/home/usr1cv8/.1cv8/1C/conf

и /opt/1C/v8.2/x86_64/conf/

Строка для удаления rm /home/usr1cv82/.1cv82/1C/1Cv82/conn8211.pfl& /etc/init.d/srv1cv82 restart

Любой отчет и обработку можно подключить пользователям как дополнительные отчеты или обработки, вот например пункт в БП - Банк:

Добавление происходит через

далее Дополнительные отчеты и обработки, в списке нажмите Создать и Выберите Файл отчета/обработки:

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

Для обработок код:

 Функция СведенияОВнешнейОбработке() Экспорт

	

	ПараметрыРегистрации = Новый Структура;

	

	//Вид

	//Строка, вид обработки, один из возможных: 

	//"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 

	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");

	

	//Массив строк имен объектов метаданных в формате: 

	//<ИмяКлассаОбъектаМетаданного>.[ * | <ИмяОбъектаМетаданных>]. 

	//Например, "Документ.СчетЗаказ" или "Справочник.*". 

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

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

	

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

	ПараметрыРегистрации.Вставить("Наименование", "Сравнение документов БУХ и УТ");

	

	//Версия обработки в формате “<старший номер>.<младший номер>” используется при загрузке обработок в информационную базу. Например “. 

	ПараметрыРегистрации.Вставить("Версия", "1.0");

	

	//Принимает значение Истина или Ложь, в зависимости от того, требуется ли устанавливать или отключать безопасный режим исполнения обработок. Если истина, обработка будет запущена в безопасном режиме. Более подбробно о безопасном режиме в справке к платформе 1С:Предприятие. 

	ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);

	

	//Краткая информация по обработке, описание обработки. 

	ПараметрыРегистрации.Вставить("Информация", "");

	

	//Команды, поставляемые обработкой. Таблица значений с колонками: 

	ПараметрыРегистрации.Вставить("Команды", Новый СписокЗначений);

		

	ТаблицаКоманд = ПолучитьТаблицу_Команд();





  	ДобавитьКоманду(ТаблицаКоманд,

          "Сравнение документов БУХ и УТ", 	//Представление

          "Сравнение документов БУХ и УТ",	//Идентификатор

          "ОткрытиеФормы", 				//Использование

          Ложь,					 		//ПоказыватьОповещение

          "");			 				//Модификатор





  	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

	

	Возврат ПараметрыРегистрации;

	

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





Функция ПолучитьТаблицу_Команд()





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

  

  //Представление – представление команды в пользовательском интерфейсе;

  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));

  

  //Идентификатор – идентификатор команды; 

  //любая строка, уникальная в пределах данной обработки (отчета). 

  //В случае с обработками печатных форм на основе макета табличного документа передается список макетов, 

  //на основе которых нужно получить печатную форму 

  //(см. описание параметра ИменаМакетов процедуры УправлениеПечатьюКлиент.ВыполнитьКомандуПечати в разделе Печать). 

  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));

  

  //"ОткрытиеФормы" – открыть форму обработки; 

  //"ВызовКлиентскогоМетода" – вызвать клиентскую экспортную процедуру из модуля формы обработки; 

  //"ВызовСерверногоМетода" – вызвать серверную экспортную процедуру из модуля объекта обработки.

  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));

 	

  //ПоказыватьОповещение – если Истина, требуется показать оповещение при начале и при завершении работы обработки. 

  //Имеет смысл только при запуске обработки без открытия формы. 

  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));

  

  //Модификатор – дополнительный модификатор команды. 

  //Используется для дополнительных обработок печатных форм на основе табличных макетов, 

  //для таких команд должен содержать строку ПечатьMXL (см. пример в демонстрационной конфигурации).

  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));

  

  Возврат Команды;

           

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





Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")





  НоваяКоманда = ТаблицаКоманд.Добавить();

  НоваяКоманда.Представление = Представление;

  НоваяКоманда.Идентификатор = Идентификатор;

  НоваяКоманда.Использование = Использование;

  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;

  НоваяКоманда.Модификатор = Модификатор;



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

Для отчетов и печатных форм меняйте параметр Вид:

 //"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 

	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");

   

Возможные значения этого поля приведу в виде таблицы

Расширение

файла

Это поле может принимать одно из значений, возвращаемых функциями в типовых конфигурациях:

 ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработки<Вид>(). Например, для вида "ПечатнаяФорма" есть функция ВидОбработкиПечатнаяФорма(). 

Один из самый простых сервисов для работы с смс.

1. Регистрируемся на сайта sms.ru
2. Добавляем отправителя, проходим все проверки и разрешения (очень просто и быстро)
3. Получаем API ключ и начинаем кодить в 1С.

Сама отправка смс, через http, выглядит вот так

https://sms.ru/sms/send?api_id=ВАШ_АПИ_КЛЮЧ&to=Номер1,Номер2&msg=hello+world&json=1 [/pre]
 
Для примера , у меня будет цикл по запросу, который отправляет заранее заданный текст из справочника, клиентам.
В нем у нас есть 2 объекта.
1) HTTP соединения
2) HTTP Запрос
В запрос кидаем сформированную строку, в которой есть 
1) API ключ - записан в константы
2) Текст, из справочника (с заменой)
3) номер телефона из заказа (у кого откуда )
4) конец строки JSON= 1 , означает получение ответа от сайта , о успешной или не успешной отправке смс с кодами авторизации/отправки в формате JSON (Разбор JSON отдельная тема)
В запросе, указываем адрес который идет после sms.ru, начиная со слэша! 
В соединении, если httpS , не указываем изначально , какой это протокол, указать порт и создать объект защищенного соединения. 
В остальном, все как в коде, в любом виде =)
Код 1C v 8.х
 



Соединение = Новый HTTPСоединение("sms.ru",443,,,,,Новый ЗащищенноеСоединениеOpenSSL);

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

			 

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

			

	ВремФайл 			 = ПолучитьИмяВременногоФайла("txt");

	текст				 = СтрЗаменить(Справочники.МДО_ТекстыСМС.НайтиПоКоду("000000001").Текст,"*номер*",ВыборкаДляСмс.НомерЗаказа);

	запрос.АдресРесурса = "/sms/send?api_id="+Константы.SMSru_ApiКлюч.Получить()+"&to="+СтрЗаменить(ВыборкаДляСмс.ТелефонИзЗаказа," ","")+"&from="+Константы.SMSru_Отправитель.Получить()+"&msg="+текст+"&json=1";

			 

	Соединение.ВызватьHTTPМетод("GET",Запрос,ВремФайл);

	ИзменитьСтатусСМС(ВремФайл,ВыборкаДляСмс.Заказ);

			 

КонецЦикла;

   

Циклы применяются для выполнения каких либо повторяющихся действий, возможные варианты перебора в цикле:

Перебираем строки с помощью цикла Для каждого

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

// код обработки

КонецЦикла;   

Перебираем строки с помощью цикла Пока

 Пока л < КолСтрок Цикл

	// код обработки, например л=л+1;

КонецЦикла;   

Перебираем строки с помощью цикла Для

 Для л=0 по КолСтрок Цикл

// код обработки, например л=л+1;

КонецЦикла   

Еще вариант, но советую его использовать только в без выходных ситуациях, Если

 ~НачалоЦикла:

Если л <> КоличествоИтераций Тогда 

// код обработки, например л=л+1;

	Перейти ~НачалоЦикла;

КонецЕсли;   

Примеры циклов

 &НаКлиенте

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

 

    /// Как организовать цикл в 1с 8.3, 8.2

 

    // Для Цикл

    Для Счетчик = 1 По 5 Цикл

        Сообщить(Счетчик); // 1 2 3 4 5

    КонецЦикла;

 

    // Для Каждого Цикл

 

    Дни = Новый Массив();

    Дни.Добавить("Понедельник");

    Дни.Добавить("Вторник");

    Дни.Добавить("Среда");

 

    Для Каждого Элемент Из Дни Цикл

        Сообщить(Элемент); // Понедельник Вторник Среда

    КонецЦикла;

 

    // Пока Цикл

    Счетчик = 0;

    Пока Счетчик < Дни.Количество() Цикл        

        Сообщить(Дни[Счетчик]); // Понедельник Вторник Среда

        Счетчик = Счетчик + 1;     

    КонецЦикла;     

 

    /// Как организовать обратный цикл в 1с 8.3, 8.2     

 

    Счетчик = Дни.Количество() - 1;     

    Пока Счетчик >= 0 Цикл

        Сообщить(Дни[Счетчик]); // Среда Вторник Понедельник

        Счетчик = Счетчик - 1;

    КонецЦикла;

 

    /// Как прервать цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик > 2 Тогда

            Прервать;

        КонецЕсли;

        Сообщить(Счетчик); // 1 2

    КонецЦикла;

 

    /// Как принудительно продолжить цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик <> 3 Тогда

            Продолжить;

        КонецЕсли;

 

        Сообщить(Счетчик); // 3

    КонецЦикла;   

 

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

   

А какой цикл работает быстрее?

Итак, я нашел пять способов, как можно организовать цикл средствами 1С.

Первый вид цикла, назовем его условно «Для По» выглядит так:

 Для н = 0 по КоличествоИтераций Цикл

КакиеТоДействия();

КонецЦикла;   

Второй вид «Для Каждого»:

 Для Каждого ЭлементКоллекции из Коллекция Цикл

КакиеТоДействия();

КонецЦикла;   

Третий «Пока»:

 Пока н <> КоличествоИтераций Цикл

КакиеТоДействия();

н = н + 1;

КонецЦикла;   

Далее вспомнил ассемблерную молодость & цикл «Если»:

 ~НачалоЦикла:

Если н <> КоличествоИтераций Тогда

КакиеТоДействия();

н = н + 1;

Перейти ~НачалоЦикла;

КонецЕсли;   

Ну и напоследок «Рекурсия»

 Процедура РекурсивныйЦикл(н, КоличествоИтераций)

КакиеТоДействия();

Если н <> КоличествоИтераций Тогда

РекурсивныйЦикл(н+1, КоличествоИтераций);

КонецЕсли;

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

Естественно, что относить рекурсию к циклам не совсем корректно, но тем ни менее с её помощью можно добиться похожих результатов. Сразу оговорюсь, что в дальнейшем тестировании рекурсия не участвовала. Во первых все тесты проводились при 1 000 000 итераций, а рекурсия выпадает уже при 2 000. Во вторых скорость рекурсии в десятки раз меньше, чем скорость остальных циклов.

Последнее отступление. Одним из условий было выполнение в цикле каких-либо действий. Во первых пустой цикл используется очень редко. Во вторых цикл «ДляКаждого» используется для какой-либо коллекции, а значит и остальные циклы должны работать с коллекцией, чтобы тестирование проходило в одинаковых условиях.

Ну что ж, поехали. В качестве тела цикла использовалось чтение из заранее заполненного массива.

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

или, при использовании цикла «Для Каждого»

 ПриемникТестовогоЗначения = Элем;   

Тестирование проводилось на платформе 8.3.5.1231 для трех видов интерфейса (Обычное приложение, Управляемое приложение и Такси).

Числа это время в миллисекундах полученное с помощью функции ТекущаяУниверсальнаяДатаВМиллисекундах(), которую я вызывал до цикла и после его завершения. Числа дробные, потому что я использовал среднее арифметическое пяти замеров. Почему я не использовал Замер производительности? У меня не было цели замерить скорость каждой строчки кода, только скорость циклов с одинаковым результатом работы.

Казалось бы и все, но & тестировать так тестировать!

В среднем платформа 8.2 на 25% быстрее, чем 8.3. Я немножко не ожидал такой разницы и решил провести тест на другой машине. Скажу только, что там 8.2 была быстрее процентов на 20.

Почему? Не знаю, дезасемблировать ядро в мои планы не входило, но в замер производительности я все же заглянул. Оказалось, что сами циклические операции в 8.3 проходят несколько быстрее, чем в 8.2. Но на строке

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

то есть при считывании элемента коллекции в переменную происходит значительное снижение производительность.

Для себя я сделал несколько выводов:

1. Если есть возможность использовать специализированный цикл & «Для Каждого», то лучше использовать его. Кстати, сам по себе он отрабатывает дольше чем другие циклы, но скорость доступа к элементу коллекции у него на много выше.

2. Если заранее знаешь количество итераций & используй «Для По». «Пока» отработает медленнее.

3. Если использовать цикл «Если» & другие программисты тебя явно не поймут.

В статье использованы материалы с хабра и хелпме

Заказали виртуальный сервер на FastVPS, купили мини сервер 1С и пришло время установки.

В сети нашлась хорошая статья, где все по порядку:

Итак, устанавливаем минимальный CentOS, настраиваем имена хостов, DNSы и сетевые подключения и приступаем собственно к установке серверных компонентов.

1. Установка Postgre SQL server

Обновление от 03-ноя-2016: в последних версиях CentOS (у меня сегодня был 7.2.1511) отсутствует поддержка libtermcap (и как-то "иначе" реализована libreadline), из-за чего сборки с сайта 1С не устанавливаются - решил поставить сборку от Postgres Professionals https://postgrespro.ru/products/1c_build - вроде работает, но о стабильности и производительности пока судить рано. Так что у кого проблемы с libtermcap.so.2() и/ли libreadline.so.5() при установке PostgreSQL с патчами 1С, можете попробовать этот альтернативный вариант.

Для установки использовался рекомендованный (адаптированный) 1С дистрибутив, для чего потребуется скачать его из раздела поддержки пользователей сайта 1С. В моём случае это был "Дистрибутив СУБД PostgreSQL для Linux x86 (64-bit) одним архивом (RPM)", который я сохранил в /root/temp. Распаковываем архив:

[root@vm-sql01 temp]# tar -vxf postgresql-9.2.1-1.1C_x86_64_rpm.tar.gz

postgresql92-9.2.1-1.1C.x86_64.rpm

postgresql92-libs-9.2.1-1.1C.x86_64.rpm

postgresql92-server-9.2.1-1.1C.x86_64.rpm

postgresql92-contrib-9.2.1-1.1C.x86_64.rpm

[root@vm-sql01 temp]#

Устанавливаем в следующей последовательности:

yum install postgresql92-libs-9.2.1-1.1C.x86_64.rpm

yum install postgresql92-9.2.1-1.1C.x86_64.rpm

yum install postgresql92-server-9.2.1-1.1C.x86_64.rpm

yum install postgresql92-contrib-9.2.1-1.1C.x86_64.rpm

Все недостающие зависимости (пакеты) будут установлены в процессе установки этих rpm, хотя на сайте 1С рекомендуют предварительно установить пакеты readline, libtermcap, krb5-libs и openssl, но в моём случае они либо уже были установлены, либо не были обнаружены в репозиториях.

2. Первый запуск Postgre SQL server

В отличии от сценариев установки большинства знакомых мне sql-серверов, postgres требует предварительной инициализации перед запуском, для чего существует два пути - первый, правильный:

[root@vm-sql01 pgsql]# su postgres -c '/usr/pgsql-9.2/bin/initdb -D /var/lib/pgsql/9.2/data --locale=ru_RU.UTF-8'

Файлы, относящиеся к этой СУБД, будут принадлежать пользователю "postgres".

От его имени также будет запускаться процесс сервера.

Кластер баз данных будет инициализирован с локалью "ru_RU.UTF-8".

Кодировка БД по умолчанию, выбранная в соответствии с настройками: "UTF8".

Выбрана конфигурация текстового поиска по умолчанию "russian".

исправление прав для существующего каталога /var/lib/pgsql/9.2/data... ок

создание подкаталогов... ок

выбирается значение max_connections... 100

выбирается значение shared_buffers... 32MB

создание конфигурационных файлов... ок

создание базы template1 в /var/lib/pgsql/9.2/data/base/1... ок

инициализация pg_authid... ок

инициализация зависимостей... ок

создание системных представлений... ок

загрузка описаний системных объектов... ок

создание правил сортировки... ок

создание преобразований... ок

создание словарей... ок

установка прав для встроенных объектов... ок

создание информационной схемы... ок

загрузка серверного языка PL/pgSQL... ок

очистка базы данных template1... ок

копирование template1 в template0... ок

копирование template1 в postgres... ок

ВНИМАНИЕ: используется проверка подлинности "trust" для локальных подключений.

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

--auth-local или --auth-host при следующем выполнении initdb.

Готово. Теперь вы можете запустить сервер баз данных:

/usr/pgsql-9.2/bin/postgres -D /var/lib/pgsql/9.2/data

или

/usr/pgsql-9.2/bin/pg_ctl -D /var/lib/pgsql/9.2/data -l logfile start

-bash-4.1$

Или тот же вывод на английском языке:

[root@vm-sql01 ~]# su postgres -c '/usr/pgsql-9.2/bin/initdb -D /var/lib/pgsql/9.2/data --locale=ru_RU.UTF-8'

could not change directory to "/root"

The files belonging to this database system will be owned by user "postgres".

This user must also own the server process.

The database cluster will be initialized with locale "ru_RU.UTF-8".

The default database encoding has accordingly been set to "UTF8".

The default text search configuration will be set to "russian".

fixing permissions on existing directory /var/lib/pgsql/9.2/data ... ok

creating subdirectories ... ok

selecting default max_connections ... 100

selecting default shared_buffers ... 32MB

creating configuration files ... ok

creating template1 database in /var/lib/pgsql/9.2/data/base/1 ... ok

initializing pg_authid ... ok

initializing dependencies ... ok

creating system views ... ok

loading system objects' descriptions ... ok

creating collations ... ok

creating conversions ... ok

creating dictionaries ... ok

setting privileges on built-in objects ... ok

creating information schema ... ok

loading PL/pgSQL server-side language ... ok

vacuuming database template1 ... ok

copying template1 to template0 ... ok

copying template1 to postgres ... ok

WARNING: enabling "trust" authentication for local connections

You can change this by editing pg_hba.conf or using the option -A, or

--auth-local and --auth-host, the next time you run initdb.

Success. You can now start the database server using:

/usr/pgsql-9.2/bin/postgres -D /var/lib/pgsql/9.2/data

or

/usr/pgsql-9.2/bin/pg_ctl -D /var/lib/pgsql/9.2/data -l logfile start

[root@vm-sql01 ~]#

Или второй, более простой, но не всегда дающий необходимый результат (зависит от региональных настроек сервера, но у меня иногда приводивший к установке базы данных без поддержки необходимого collation ru_RU.UTF-8):

[root@vm-sql01 pgsql]# service postgresql-9.2 initdb

Инициализируется база данных: [ OK ]

[root@vm-sql01 pgsql]#

В результате была создана структура базы данных (с настройками) в /var/lib/pgsql/9.2/data. Хочу обратить особое внимание на конструкцию --locale=ru_RU.UTF-8, которую необходимо указать при инициализации, иначе сервер может быть инициализирован с неверным набором языковых параметров, что в конечном итоге приведёт к сообщениям

Ошибка установки или изменения национальных настроек информационной базы

Порядок сортировки не поддерживается базой данных

по причине:

Порядок сортировки не поддерживается базой данных

при установке информационной базы. Теперь можно настраивать автоматический запуск sql-сервера и, собственно, запускать его:

[root@vm-sql01 temp]# chkconfig postgresql-9.2 on

[root@vm-sql01 temp]# service postgresql-9.2 start

Запускается служба postgresql-9.2: [ OK ]

[root@vm-sql01 temp]#

Всё. Для локальных подключений сервер настроен. В моём случае сервер 1С и сервер SQL находятся на разных машинах, поэтому потребуется настроить и удалённые подключения с авторизацией.

В случае каких-то проблем, читаем содержимое файлов:

/var/lib/pgsql/9.2/pgstartup.log

/var/lib/pgsql/9.2/data/postgresql-*.log

Для повышения быстродействия документация PostgreSQL рекомендует как минимум унести журнал /var/lib/pgsql/9.2/data/pg_xlog на отдельный физический том и создать симлинк на него в исходном месте; из личных наблюдений - надо ещё и значительно увеличить размер используемой памяти... но необъятное не охватить, поэтому за статьями по оптимизации работы PostgreSQL для 1С предлагаю обращаться в поисковые системы, а оттуда - на профильные форумы.

3. Настройка пользователей (ролей) Postgre SQL server

Для управления PostgreSQL на начальном этапе потребуется сменить текущего пользователя на postgres и создать нового пользователя из командной строки:

[root@vm-sql01 temp]# su - postgres

-bash-4.1$ cd /usr/pgsql-9.2/bin

-bash-4.1$ createuser --interactive -P

Введите имя новой роли:server1c

Введите пароль для новой роли:

Повторите его:

Должна ли новая роль иметь полномочия суперпользователя? (y - да/n - нет) n

Новая роль должна иметь право создавать базы данных? (y - да/n - нет) y

Новая роль должна иметь право создавать другие роли? (y - да/n - нет) n

-bash-4.1$ exit

logout

[root@vm-sql01 temp]#

В принципе, для обслуживания полезно иметь пользователя с правами суперпользователя - создавать его можно тем же путём.

Теперь осталось разрешить удалённое подключение с авторизацией - для этого в файле /var/lib/pgsql/9.2/data/pg_hba.conf потребуется заменить значение ident на md5 в строке "host all all 0.0.0.0/0 md5" и перезапустить сервис.

Не следует забывать и про настройки iptables - для работы Postgre SQL необходимо открыть как минимум порт tcp 5432, хотя привычнее (да и проще) объявить сетевой интерфейс "внутренним" (разрешить все подключения на интерфейсе).

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

4. Установка компонентов сервера 1С

Внимание!!! Для избежания проблем с зависимостями, желательно, чтобы разрядность сервера 1С совпадала с разрядностью используемого дистрибутива Linux! Иначе (если ставим 32-битный 1С на 64-битный Linux), при входе в базу, можно получить сообщение типа "Ошибка загрузки библиотеки libWand.so по причине:Библиотека не обнаружена. Часть функций будет недоступна." и клиенты не будут запускаться (хотя конфигуратор - будет). В принципе, я с этой проблемой справился на CentOS 7 (которой не выпускают больше в 32-битном исполнении) - просто поставил не только 'ImageMagick', но и 'ImageMagick.i686' (yum install ImageMagick.i686) - всё заработало (хоть и притянуло за собой гору зависимостей).

Первый шаг установки сервера 1С мало отличается от аналогичного этапа с SQL-сервером - распаковать скачанный дистрибутив сервера командой tar -vxf rpm64.tar.gz. В итоге получим файлы:

1C_Enterprise83-common-8.3.3-715.x86_64.rpm - основные файлы 1С (включая русский и английский интерфейсы)

1C_Enterprise83-common-nls-8.3.3-715.x86_64.rpm - дополнительные языковые модули

1C_Enterprise83-server-8.3.3-715.x86_64.rpm - сервер 1С

1C_Enterprise83-server-nls-8.3.3-715.x86_64.rpm - дополнительные языковые модули

1C_Enterprise83-ws-8.3.3-715.x86_64.rpm - компоненты вэб-сервера 1С

1C_Enterprise83-ws-nls-8.3.3-715.x86_64.rpm - дополнительные языковые модули

1C_Enterprise83-crs-8.3.3-715.i386.rpm - хранилище конфигураций (только в 32-битном комплекте)

Устанавливаем нужные пакеты командами:

yum install 1C_Enterprise83-common-8.3.3-715.x86_64.rpm

yum install 1C_Enterprise83-server-8.3.3-715.x86_64.rpm

Настраиваем автоматический запуск демона и стартуем его:

[root@vh-1c83 temp]# chkconfig srv1cv83 on

[root@vh-1c83 temp]# service srv1cv83 start

Starting 1C:Enterprise 8.3 server: Error: service failed to start!

FAILED

[root@vh-1c83 temp]# service srv1cv83 start

Starting 1C:Enterprise 8.3 server: OK

[root@vh-1c83 temp]#

Хочу обратить внимание - если сразу после установки сервис (как в приведённом примере) не стартовал, а при второй попытке старта он запустился, скорее всего не настроен DNS - об этом чуть ниже. Если верить информации с многочисленных форумов, то наш сервер уже готов обслуживать до 12 клиентов. Для работы большего числа пользователей, необходимо установить лицензию сервера - либо в виде USB HASP и драйвера, либо в виде электронной лицензии. Про установку аппаратных ключей я уже писал, а установка программных лицензий достаточно проста: запускаем конфигуратор (с клиентской машины; кластер уже должен быть настроен и должна быть информационная база), вызываем "Сервис" - "Получение лицензии", вводим номер комплекта (с коробки или "Регистрационный номер" с карточки из конверта "Пинкоды программной лицензии") и пин-код (с той самой карточки из конверта), ставим галочку "Установка на сервер", вводим имя сервера в соответствующем поле, нажимаем "Далее", говорим, что это - "Первый запуск", заполняем форму "Владелец лицензии" (к стати, я не понял что писать в полях "Фамилия", "Имя", "Отчество" - то ли ответственного за эксплуатацию, то ли генерального директора - оставил поля пустыми, и оно получило лицензию, не ругнувшись), "Далее", "Автоматически" - профит! в /var/1C/licenses на сервере появился файлик XXXXXXXXXXXXXX.lic и серверу "стало хорошо" (если это была многопользовательская лицензия, то клиентам тоже "станет хорошо", т.к. они будут получать лицензии на сервере).

Для работы с графическими объектами и экспорта в xls, могут потребоваться дополнительные пакеты: ImageMagick, freetype (входит в зависимости ImageMagick), libgsf (входит в зависимости ImageMagick), corefonts (отсутствует в репозитариях CentOS - см. раздел 6); для "ТАКСИ" и "Управляемого приложения" они необходимы, для классического толстого клиента вроде бы не особо нужны, но 1С всё равно ругается на их отсутствие, хоть и работает.

По умолчанию сервер 1С слушает порт tcp 1541(1540) и для соединений использует диапазон портов 1560-1691.

5. Настройка экземпляра (кластера) сервера 1С

Информации о наличии оснастки управления сервером 1С для Linux мне не попадалось, так что для управления сервером будем использовать традиционную оснастку mmc для Windows "Администрирование серверов 1С:Предприятия", которую следует поставить из дистрибутива технологической платформы для Windows.

В этом месте на тестовом сервере возникли трудности - кластер по умолчанию отсутствовал, а при попытке создания нового кластера, ragent аварийно завершал работу с сообщением Sep 3 21:29:04 vh-1c83 kernel: ragent[1879]: segfault at 8 ip 00007f56473c9fd4 sp 00007f563b7b14a0 error 4 in rserver.so[7f56472db000+70e000]... странно, но если верить форумам, на CentOS у многих сервер 1С 8.3 ставится некорректно - не создаётся начальная конфигурация, включающая "Кластер по умолчанию". Краткий анализ ситуации выявил, что настройки кластера по умолчанию не были сгенерированы полностью и не попали в /home/usr1cv8/.1cv8/1C/1cv8/.

При попытке подложить файлы с рабочего сервера на неудачный, сервис 1С не запускается абсолютно без каких-либо диагностических сообщений - подобное поведение я видел при проблемах (неверных контекстах) SELinux, но в данном случае никаких отказов в audit.log не обнаружилось.

В результате детального изучения проблемы с применением strace удалось выяснить, что агент сервера при запуске ищет настройки по пути ~/.1cv8/1C/1cv8/ (в домашнем каталоге запустившего пользователя) и если не находит, пытается создать настройки кластера по умолчанию, для чего ему нужно имя хоста (выяснено экспериментально), и если верить "Руководству администратора", нужен корректно работающий DNS; экспериментально же был установлен факт, что сначала ragent читает файл /etc/hosts, затем обращается к DNS-серверу, а затем вызывает uname и снова лезет в hosts и к DNS и если не находит сопоставления, аварийно завершается. Итак, для нормального запуска потребуется полноценная и правильно настроенная сетевая инфраструктура, ну а в отсутствии работающего DNS достаточно дописать строчку в /etc/hosts и привести его примерно к такому виду:

127.0.0.1 localhost

192.168.122.227 vh-1c83.test.lan vh-1c83

::1 localhost localhost.localdomain localhost6 localhost6.localdomain6

За дальнейшими инструкциями пока отсылаю к своей статье про 8.2 - принципиальных отличий пока нет. Единственное замечание - при создании новой информационной базы, если указывать пользователя подключения к базе данных не с правами суперпользователя (а с набором прав из пункта 3), информационная база не создавалась, а в /var/lib/pgsql/9.2/data/pg_log/postgresql-Xxx.log наблюдались сообщения:

ОШИБКА: нет прав для изменения параметра "lc_messages"

ОПЕРАТОР: SET lc_messages to 'en_US.UTF-8';

ОШИБКА: нет доступа к языку c

ОПЕРАТОР: CREATE OR REPLACE FUNCTION plpgsql_call_handler() RETURNS language_handler AS '$libdir/plpgsql' LANGUAGE C

ОШИБКА: нет прав для изменения параметра "lc_messages"

ОПЕРАТОР: SET lc_messages to 'en_US.UTF-8';

ОШИБКА: ошибка синтаксиса (примерное положение: "application") в символе 24

ОПЕРАТОР: lock table pg_class in application share mode

ПРЕДУПРЕЖДЕНИЕ: нет незавершённой транзакции

ОШИБКА: тип "mvarchar" не существует в символе 31

ОПЕРАТОР: create table Config (FileName mvarchar(128) not null, Creation timestamp not null, Modified timestamp not null, Attributes int not null, DataSize int8 not null, BinaryData bytea not null, PartNo int not null, PRIMARY KEY (FileName, PartNo))

ОШИБКА: нет прав для изменения параметра "lc_messages"

ОПЕРАТОР: SET lc_messages to 'en_US.UTF-8';

ОШИБКА: нет доступа к языку c

ОПЕРАТОР: CREATE OR REPLACE FUNCTION plpgsql_call_handler() RETURNS language_handler AS '$libdir/plpgsql' LANGUAGE C

После подключения с учётными данными суперпользователя БД, сообщения изменились на англоязычные и проблемы исчезли. Судя по всему, если на сервере установлен язык по умолчанию en_US, данного казуса не случится, но это - не проверенная информация, а лишь предположение, сделанное по прочтении чужой статьи про 8.1 и праздных раздумий =)

Ещё одна странность - если создать пустую SQL базу не из шаблона1 (см. официальную документацию по 1С), и попытаться ей указать на этапе создания ИБ, то всё равно получим сообщение "ОШИБКА: тип "mvarchar" не существует (символ 31)"/"ERROR: type "mvarchar" does not exist at character 31", но мне так и не удалось создать из требуемого шаблона БД - валились разные ошибки, но если пользователя sql, от которого создаётся ИБ временно повысить до суперпользователя с правом создания БД, и указать создание базы данных в случае её отсутствия, то всё получается в лучшем виде, так что на этапе первичной настройки, видимо, придётся повышать пользователя до супер...

Что порадовало - теперь в 1С можно работать непосредственно из Linux, что актуально для компаний, использующих его как основную ОС в корпоративной сети (я сейчас работаю как раз в такой компании); из неожиданностей - что при установке клиента 1С, он заявляет о зависимости от сервера и требует его установки, но потом ставится, прописывает значки запуска в "Офис" - "Финансы" и работает довольно сносно (по ощущениям - чуть менее комфортно, чем 8.2 под Windows, но заметно приятнее, чем тот же 8.2 через WINE от Ethersoft).

6. Установка недостающих зависимостей

При запуске клиента к настроенному по данной инструкции серверу, появится сообщение "На сервере отсутствуют шрифты из состава Microsoft Core Fonts. Внешний вид приложения может отличаться от ожидаемого. Процедура установки описана в справочной системе..." - данное сообщение появляется достаточно редко (периодичность не выявил, но появляется точно не единожды, но и не при каждом запуске), и на работе особо не сказывается, но "для красоты" я решил пройтись по всей цепочке и поставить рекомендуемые пакеты. Всё, кроме "corefonts" поставилось из репозиториев (хотя в той самой "справочной системе" безбожно перепутаны регистры в названиях пакетов, из-за чего их идентификация оказалась весьма развлекательна), ну а шрифты я решил пересобрать (в соответствии с рекомендациями из "справочной системы") и результат прикрепляю к статье - msttcorefonts-2.5-1.noarch.rpm, заодно и сами шрифты (уже переименованные в нижний регистр, как происходит при сборке rpm рекомендованным скриптом) - msttcorefonts.tar.gz - содержимое этого архива рекомендуют распаковать в /home/usr1cv8/.fonts (не забыв сменить владельца как на папку, так и на файлы!), если нет возможности установить предложенный .rpm

Кроме "ImageMagick" и шрифтов, для возможности сохранения в табличные файлы (кроме xls - его я пока не заставил формироваться, хотя xlsx формируется), на клиенте должны быть установлены пакеты "libMagickWand5", "libgomp1", "liblcms2-2" и "libbz2-1" - на ряде машин они отсутствовали. При чём той же разрядности, что и сервер 1С (см. п. 4).

7. Настройка аппаратного hasp для виртуализированного сервера 1С (работающего на виртуальной машине KVM)

Не планировал описывать эту процедуру, но раз уж столкнулся с такой ситуацией, опишу... Итак, на этот раз я использовал драйвер от "Alladin Knowledge Systems USB HASP", предоставляемый компанией Sentinel - мне попались две версии:

2878061 сен 11 2012 aksusbd-2.0-1.i386.rpm - с сайта aladdin-rd.ru

3009880 авг 6 16:35 aksusbd-2.2-1.i386.rpm - с сайта safenet-inc.com

Можно воспользоваться драйвером эзерсофт - окончательный выбор следует делать из опыта практической эксплуатации.

Наиболее правильная (на мой взгляд) последовательность действий:

а) убедиться, что на хост-машине драйвер HASP не установлен;

б) установить выбранный драйвер USB HASP4 на виртуальном сервере;

в) выяснить список подключенных USB-устройств к хост-машине

[root@vh01 files]# ls -R /dev/bus/usb

/dev/bus/usb:

001

002

003

004

/dev/bus/usb/001:

001

002

/dev/bus/usb/002:

001

/dev/bus/usb/003:

001

/dev/bus/usb/004:

001

[root@vh01 files]#

г) подключить USB-HASP к хост-машине и выяснить адрес ключа:

[root@vh01 files]# ls -R /dev/bus/usb

/dev/bus/usb:

001

002

003

004

/dev/bus/usb/001:

001

002

/dev/bus/usb/002:

001

/dev/bus/usb/003:

001

/dev/bus/usb/004:

001

002 <==== это наш ключ - раньше его не было

[root@vh01 files]#

д) используя любой из способов (я использовал Virtual Manager на удалённой машине) добавить "USB Host Device" с найденным адресом (в моём примере - 004:002) к виртуальной машине 1С - может потребоваться выключение и включение машины (я добавлял устройство на выключенную машину).

Собственно, всё - на CentOS 6.4 x64/i686 всё работает (были багрепорты про CentOS 6.0/6.1, но вроде всё починили). Если при запуске виртуалки выдаётся сообщение о занятости устройства, скорее всего подцепился драйвер на хост-машине (так писали на паре форумов, хотя мне эту ситуацию воспроизвести не получилось - даже с установленным драйвером на сервере устройство мапилось корректно). Естественно, если переставить ключ в другой порт USB, придётся перенацеливать и виртуальную машину!

И напоследок, коротко о том "что где лежит":

/etc/sysconfig/srv1cv83 - файл конфигурации сервера 1С

/home/usr1cv8/.1cv8/1C/1cv8/1cv8wsrv.lst - файл, в котором хранятся основные свойства сервера - например, учётные данные администратора сервера, зарегистрированые кластеры и т.п.

/home/usr1cv8/.1cv8/1C/1cv8/reg_1541/1CV8Clst.lst - файл, в котором хранятся свойства кластера по умолчанию

/opt/1C/v8.3/x86_64/ - (вместо "x86_64" может быть "i386" - в зависимости от архитектуры системы) исполняемые файлы и сопутствующие ресурсы сервера (и клиента) 1С

/var/1C/licenses - здесь лежат файлы электронных ключей лицензий

8. Настройка локального репозитория 1С для удобства обновления платформы 

В процессе эксплуатации 1С нередко приходится обновлять платформу. Если всё установлено по приведённой выше инструкции, это вызывает определённые неудобства - надо останавливать сервис, удалять старые пакеты, ставить новые... не знаю - мне это ещё в винде надоело смертельно. Linux предлагает очень удобный механизм пакетного обновления из локального репозитория - всё, что нужно - это выбрать место, где будут лежать обновки: для одиночного сервера, к которому все ходят только через web-интерфейс, это может быть /root/repo (всё равно обновление под рутом идёт), ну а в общем случае - хоть /var/www/1c-repo - главное, чтобы все, кому он нужен, его видели. Далее надо установить пакет 'createrepo' (yum install createrepo) - за собой он притащит немало зависимостей, но не смертельно. Теперь командой 'createrepo /root/repo' (где "/root/repo" - выбранный путь хранения репозитория) создаём его "описание" и можно пользоваться.

Затем создаём файл описания нашего репозитория и помещаем его в каталог описаний репозиториев (для CentOS это /etc/yum.repos.d). Пример конфига локального файлового репозитария:

[root@1c yum.repos.d]# cat local-1c.repo

[local-1c]

name=1C Enterprise

#baseurl=http://inhost.firm.lan/repo

baseurl=file:///root/repo

gpgcheck=0

enabled=1

По-моему, разъяснять что за что отвечает, особого смысла нет. Единственное, что важно - сразу yum его может не увидеть - в этой ситуации поможет очистка его кэшей (yum clean all).

Всё. Теперь если надо обновиться, то помещаем новые файлы дистрибутива 1С рядом со старыми, повторяем 'createrepo /root/repo' вызываем 'yum update' - и всё - платформа пошла обновляться! Естественно, за сохранностью и защищённостью своего репозитория надо следить, так как GPG у нас выключен, и это всё же дыра в безопасности, хоть и не особо толстая...

Выгрузить все дополнительные обработки и отчеты в каталог всего за пару кликов. Простейшая обработка в один реквизит и команду. 

Набросайте элементы на форму и вставьте код в модуль формы обработки. И без всякого скачивания.

Работоспособность проверена на БП 3.0, Документооборот 1.4-2.0, платформы 1С 8.3.7, 8.3.8

 #Область ВыборКаталогаДляВыгрузки





// процедура вешается на событие начало выбора у реквизита КаталогВыгрузки. 

// Чтобы при нажатии на кнопку выбора открылась форма выбора каталога файловой системы.

&НаКлиенте

Процедура КаталогВыгрузкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

	

	//открываем диалог выбора файла

	ДопПараметры = новый Структура;

	ДопПараметры.Вставить("ИмяЭлемента","КаталогВыгрузки");	

	ОписаниеОповещения = Новый ОписаниеОповещения("ОбработатьВыборКаталога", ЭтаФорма,ДопПараметры);

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

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

	Если ЗначениеЗаполнено(Объект.КаталогВыгрузки) Тогда

		ДиалогОткрытияФайла.Каталог = Объект.КаталогВыгрузки;

	КонецЕсли;

	ДиалогОткрытияФайла.Показать(ОписаниеОповещения);





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





// окончание выбора каталога

&НаКлиенте

Процедура ОбработатьВыборКаталога(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт

	

    Если ВыбранныеФайлы = Неопределено Тогда

        Возврат;

	КонецЕсли;

	Объект[ДополнительныеПараметры.ИмяЭлемента] = ВыбранныеФайлы[0];

	

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





#КонецОбласти





#Область НажатиеНаКнопку





// кнопка начала выгрузки

&НаКлиенте

Процедура Выгрузить(Команда)

	

	ОчиститьСообщения();

	// проверка на заполнение реквизита, существовавание каталога, на его "не пустоту"

	Если НЕ ЗначениеЗаполнено(Объект.КаталогВыгрузки) Тогда

		Сообщить("Укажите каталог для выгрузки");

		Возврат;

	КонецЕсли;

	Каталог = Новый Файл(Объект.КаталогВыгрузки);

	Если НЕ Каталог.Существует() Тогда

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

		Возврат;

	КонецЕсли;

	МассивФайлов = НайтиФайлы(Объект.КаталогВыгрузки,"*.*");

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

		ОписаниеОповещения = новый ОписаниеОповещения("ПодвержденияЗамещения",ЭтаФорма);

		ПоказатьВопрос(ОписаниеОповещения,"В каталоге есть файлы. При выгрузке будет выполнение замещение существующих."+Символы.ПС+"Начать выгрузку?",РежимДиалогаВопрос.ДаНет);

		Возврат;

	КонецЕсли;

	ВыгрузкаНачнись(); // проблем не обнаружили, давайте выгружать уже

	

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





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

&НаКлиенте

Процедура ПодвержденияЗамещения(ЧтоОтветилПользователь, Параметры) Экспорт

	

	Если ЧтоОтветилПользователь = КодВозвратаДиалога.Да Тогда

		ВыгрузкаНачнись();

	Иначе

		Возврат;

	КонецЕсли;

	

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





#КонецОбласти





#Область СамаВыгрузка





&НаКлиенте

Процедура ВыгрузкаНачнись()

	

	ПолучаемыеФайлы = ПодготовимФайлыНаСервере(ЭтаФорма.УникальныйИдентификатор);

	Обработчик = Новый ОписаниеОповещения("ОбработкаРезультатаВыгрузки", ЭтотОбъект);

	НачатьПолучениеФайлов(Обработчик, ПолучаемыеФайлы, Объект.КаталогВыгрузки, Ложь);





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





&НаСервере

Функция ПодготовимФайлыНаСервере(ИдентификаторФормы)

	

	Массив = Новый Массив;

	Выборка = Справочники.ДополнительныеОтчетыИОбработки.Выбрать(); // выберем все в справочнике.

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

		Если ТипЗнч(Выборка.ХранилищеОбработки) = Тип("ХранилищеЗначения") Тогда

			Адрес = ПоместитьВоВременноеХранилище(Выборка.ХранилищеОбработки.Получить(),ИдентификаторФормы);

			Массив.Добавить(Новый ОписаниеПередаваемогоФайла(Выборка.ИмяФайла, Адрес));

		КонецЕсли;

	КонецЦикла;

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

	

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





&НаКлиенте

Процедура ОбработкаРезультатаВыгрузки(ПолученныеФайлы, ДополнительныеПараметры) Экспорт

	

	ПоказатьПредупреждение(,"Выгрузка в каталог завершена",10); // все готово, шеф!

	

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





#КонецОбласти

   

Автор: Михали Задорнов (MZadornov)

Проблема: После обновления на 1С:Бухгалтерию предприятия 3-й версии, при нажатии на закладку командного интерфейса 1С:предприятие, выскакивает ошибка:

Aboutsecurity_1cv8c.exe или Aboutsecurity_1cv8.exe

«Содержимое указанного ниже веб-узла в этом приложении блокировано конфигурацией усиленной безопасности Internet Explorer».

Ошибка исчезает после многократного нажатия на «Закрыть», что несколько мешает работать, мягко говоря. Похожая ошибка бывает и в конфигураторе, при обновлении конфигурации или сравнении/объединении конфигураций. Чаще всего, мне попадалась эта проблема в серверных ОС, в частности Windows 2008 r2.

Решение: нужно добавить исключение в настройках безопасности Internet Explorer (далее & IE).

Это делается просто, если у вас один или несколько компьютеров & просто открываете IE/Свойства обозревателя/Безопасность/Надёжные узлы/Сайты, добавляете Aboutsecurity_1cv8c.exe и Aboutsecurity_1cv8.exe, нажимаете Ок, и наслаждаетесь результатом.

Но вот если у вас терминал-сервер и 40/60 пользователей, или еще хуже & пользователей 150 и они ходят в SQL версию 1С с локальных рабочих станций, то бегать по всем корпусам и добавлять эту настройку весьма накладно по времени, да и отвлекать пользователей лишний раз от работы не порядочно.

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

Вариант №1. Неудавшийся.

Первое решение & прописать настройки через Group Polices (Административные шаблоны/Компоненты Windows/Internet explorer/Вкладка «Безопасность»/Список назначений зоны для веб-сайтов) & не увенчалось успехом. Настройки пользователей, как и обещалось в статьях по данному методу, перестали работать, а вот зоны, описанные в этих настройках, работать не начали. При этом, я пробовал добавлять настройки и в локальные политики, и в доменные и в политики контроллера домена. Скорее всего из-за этих экспериментов с разными зонами действия групповых политик и появилась проблема.

И так, после этих манипуляций, в настройках безопасности IE появилась надпись «Некоторыми параметрами управляет системный администратор» и добавлять/удалять сайты узлов безопасности стало невозможно. От этой надписи, почему-то, оказалось не так просто избавиться. Удаление проделанных настроек GPO не разблокировали вкладку «Безопасность», а манипуляции с реестром привели к появлению ошибок «В параметрах зоны есть ошибка. Не удалось добавить сайт.» (IE 10) или «При установке параметров безопасности зоны произошла ошибка. Добавить узел не удается.» (IE 9) & все дальнейшие действия сходили на нет.

Исправить косяк удалось следующим путём:

Обновил Internet Explorer до версии 10 (был 9-й).

Предварительно экспортировав разделы реестра в файл, на случай восстановления, удалил из следующие ключи:

[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\InternetSettings

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings

[HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings]

Восстановил настройки Internet Explorer (Свойства обозревателя/Дополнительно/Сброс).

Проверить, что проблема не вернётся можно введя команду gpupdate /force в командной строке. После обновления политики запустите IE и проверьте, что настройки остались на месте. Если настройки опять слетели и добавление сайтов в узлы безопасности стало опять невозможно, то, скорее всего вы забыли отключить параметр «Список назначений зоны для веб-сайтов» в какой-то из зон групповой политики.

Чтобы определить в какой из зон групповых политик засела настройка (в локальных, доменных или контроллера домена), удобно пользоваться мастером отчётов «Результаты групповой политики», который находится в консоли «Диспетчер сервера», в разделе «Компоненты/Управление групповой политикой» (в Windows 2008 r2, по крайне мере он там).

Так что, здесь стоит быть осторожным, чтобы не создать себе дополнительной работы.

Вариант №2. Через GPO и реестр.

Этот метод делается через те же групповые политики, но через прямые записи в реестр, а не манипулирование стандартными настройками.

Что делать:

Удаляем узлы Aboutsecurity_1cv8 из настроек IE, если вы их туда уже добавили вручную & это нужно для чистоты эксперимента. Проверьте, что в 1С ошибка сохранилась.

Создаём файл 1csec.reg, с содержимым:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\security_1cv8c.exe]

«about»=dword:00000002

Небольшая ремарка: подраздел EscDomains используется в режиме расширенной настройки безопасности, если же этот режим отключен по какой-то причине, то нужно использовать раздел Domains вместо EscDomains (подробнее о записях реестра IE см. в базе знаний Microsoft).

И пробуем добавить его в реестр & если срабатывает, и в тонком клиенте 1С ошибка Aboutsecurity_1cv8c.exe исчезает, делаем дальше.

Снова открываем Default Domain Policy в диспетчере управления сервером, далее Конфигурация пользователя/Настройка/Конфигурация Windows/Реестр.

Добавляем туда две записи, где поле «Путь раздела»:

в первой записи это «Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\security_1cv8c.exe» (для тонкого клиента 1С),

во второй записи «Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\security_1cv8.exe» (для толстого клиента).

В остальном запись содержит те же данные, что и на картинке.

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

В моём случае, для надёжности избавления от проделанных в Варианте №2 настроек, были добавлены ещё три записи в реестр:

Обновить: HKCU\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings; параметр: ListBox_Support_ZoneMapKey; значение 0 (тип DWORD десятичный)

Удалить: HKCU\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap

Удалить: HKCU\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMapKey

Вариант №3. Интерфейсный.

Есть ещё вариант, который переключит работу программы в режим интерфейса «Такси» : Администрирование/Настройки программы/Интерфейс & здесь включаем «Интерфейс «Такси»" & в этом режиме данная ошибка не появляется, но пользователям может не понравиться работать с этим вариантом интерфейса, т. к. он предназначен для мобильных устройств и планшетов (например, для работы через Web).

Источник

 // Возвращает содержимое ответа HTTP-сервера, полученного методом GET, в виде строки или двоичных данных

// ** Coded by Sergey (aka Porutchik) * 2014 http://forum.aeroion.ru/cat1.html //

// Параметры

//  СерверПриемник - <Строка> - доменное имя сервера или полный адрес (url) запрашиваемой ссылки.

//                        Может включать протокол (http://, https://) и порт.

//  АдресСтраницы - <Строка> - опционально. Адрес страницы на сервере без протокола (http://, https://),

//                        доменного имени сервера (хоста) и порта.

//                Если не указано, адрес страницы будет извлечён из параметра СерверПриемник

//  ПараметрыСоединения - <Структура> - опционально. Структура, содержащая дополнительные параметры для HTTPСоединение.

//                Назначение ключей:

//                Логин или Пользователь - Тип Строка - Имя пользователя на указанном сервере.

//                Пароль - Тип Строка - Пароль пользователя на указанном сервере.

//                Прокси - Тип ИнтернетПрокси - Прокси, используемый для соединения с сервером.

//                Таймаут - Тип Число - Таймаут осуществляемого соединения и операций, в секундах. 0 - не устанавливать таймаут..

//  ЗаголовкиHTTP  - <Соответствие> - опционально.

//                Заголовки, которые будут отправлены на сервер в виде соответствия: "Заголовок" - "Значение".

//                Если указано, функция возвратит в программу заголовки HTTP-ответа с кодом состояния в ключе StatusCode,

//                имя файла в ключе FileName, url-кодированное имя в ключе EncodeFileName

//  ПолучитьКакДвоичныеДанные - <Булево> - опционально. Определяет, в каком виде получить содержимое ответа сервера

//                            По умолчанию Ложь.

//  ЗащищенноеСоединение - <Булево> - опционально. По умолчанию Ложь.

//                            Если Истина, соединение будет происходить по протоколу https://

//

// Возвращаемое значение:

//   <Строка>, <ДвоичныеДанные> - содержимое ответа сервера, если ресурс найден по указанному адресу.

//

Функция ПолучитьСодержимоеВебАдреса(Знач СерверПриемник, Знач АдресСтраницы = "",

                Знач ПараметрыСоединения = Неопределено, ЗаголовкиHTTP = Неопределено,

                Знач ПолучитьКакДвоичныеДанные = Ложь, Знач ЗащищенноеСоединение = Ложь) Экспорт

    Перем ИмяФайлаОтветаКодированное, ИмяФайлаОтвета, Порт, Логин, Пользователь, Пароль, Прокси, Таймаут;



    Если Не ЗначениеЗаполнено(СерверПриемник) Тогда Возврат Неопределено; КонецЕсли;

    Если ТипЗнч(ЗаголовкиHTTP) <> Тип("Соответствие") Тогда ЗаголовкиHTTP = Новый Соответствие; КонецЕсли;

    Если Найти(Нрег(СерверПриемник), "https://") = 1 Тогда ЗащищенноеСоединение = Истина; КонецЕсли;



    Протокол = ?(Найти(Нрег(СерверПриемник), "https://") = 1 ИЛИ ЗащищенноеСоединение, "https://", "http://");

    Если Лев(НРег(СерверПриемник), СтрДлина(Протокол)) = Протокол Тогда

        СерверПриемник = Сред(СерверПриемник, СтрДлина(Протокол) + 1);

    КонецЕсли;



    Если НЕ ЗначениеЗаполнено(АдресСтраницы) Тогда

        Позиция = Найти(СерверПриемник, "/");

        Если Позиция > 0 Тогда

            АдресСтраницы = Сред(СерверПриемник, Позиция, СтрДлина(СерверПриемник));

            СерверПриемник = Лев(СерверПриемник, Позиция - 1);

        Иначе

            АдресСтраницы = "/";

        КонецЕсли;

    КонецЕсли;



    СерверПриемник = СтрЗаменить(СерверПриемник, "/", "");



    //Выделяем порт из доменного имени

    ПозицияДвоеточия = Найти(СерверПриемник, ":");

    Если ПозицияДвоеточия > 0 Тогда

        Порт = Число(Сред(СерверПриемник, ПозицияДвоеточия + 1));

        СерверПриемник = Лев(СерверПриемник, ПозицияДвоеточия - 1);

    КонецЕсли;



    Если ТипЗнч(ПараметрыСоединения) = Тип("Структура") Тогда

        Для каждого КлючЗначение из ПараметрыСоединения Цикл

            Значение = КлючЗначение.Значение; Выполнить(КлючЗначение.Ключ + " = Значение;");

        КонецЦикла;

        Пользователь = ?(ЗначениеЗаполнено(Пользователь), Пользователь, Логин);

    КонецЕсли;

    НТТР = Новый HTTPСоединение(СерверПриемник, Порт, Пользователь, Пароль, Прокси, Таймаут,

                        ?(ЗащищенноеСоединение, Новый ЗащищенноеСоединениеOpenSSL(), Неопределено));



    //Ответ от сервера получим в возвращаемом значении типа HTTPОтвет

    ОтветHTTP = НТТР.Получить(Новый HTTPЗапрос(АдресСтраницы, ЗаголовкиHTTP)); //

    ОшибкаЗапроса = (ОтветHTTP.КодСостояния >= 400);



    //После получения ответа сервера необходимо проверить статус или код состояния.

    //http://www.w3.org/Protocols/rfc2616/rfc2616-sec10....     //Если сервер вернул один из статусов переадресации

    //301 Moved Permanently («перемещено навсегда») или 302 Moved Temporarily («перемещено временно»),

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

    Если ОтветHTTP.КодСостояния = 301 или ОтветHTTP.КодСостояния = 302 Тогда



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

            //Адрес страницы переадресации содержится в поле Location заголовка ответа

            АдресСтраницы = ОтветHTTP.Заголовки["Location"]; //

            Если ЗначениеЗаполнено(АдресСтраницы) Тогда

                Если Найти(НРег(АдресСтраницы), "http://") = 0 И Найти(НРег(АдресСтраницы), "https://") = 0 Тогда

                    АдресСтраницы = ?(Лев(АдресСтраницы, 1) = "/", Сред(АдресСтраницы, 2), АдресСтраницы);

                    Если Найти(АдресСтраницы, СерверПриемник + "/") = 0  Тогда

                        АдресСтраницы = Протокол + СерверПриемник + ?(ЗначениеЗаполнено(Порт), ":" + Порт, "") + "/" + АдресСтраницы;

                    КонецЕсли;

                КонецЕсли;



                //Если сервер вернул cookies (http://ru.wikipedia.org/wiki/HTTP_cookie, http://www.faqs.org/rfcs/rfc6265.html?#41;,                 //вставим их в заголовки для передачи на страницу перехода

                Куки = ОтветHTTP.Заголовки["Set-Cookie"];//

                Если ЗначениеЗаполнено(Куки) Тогда ЗаголовкиHTTP.Вставить("Cookie", Куки); КонецЕсли;



                //Рекурсивный вызов

                Возврат ПолучитьСодержимоеВебАдреса(АдресСтраницы, , , ЗаголовкиHTTP, ПолучитьКакДвоичныеДанные, ЗащищенноеСоединение);//



            КонецЕсли;

        КонецЕсли;



    ИначеЕсли ОтветHTTP.КодСостояния >= 100 И ОтветHTTP.КодСостояния <= 200 Тогда

        //Статус ответа в интервале между 100 и 200 Ok говорит о нормальном результате HTTP-запроса

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

            ТипСодержимого = ОтветHTTP.Заголовки["Content-Type"];

            //http://ru.wikipedia.org/wiki/Список_MIME-типов             Если Найти(ТипСодержимого, "text/") = 1 ИЛИ Найти(ТипСодержимого, "/javascript")

                ИЛИ Найти(ТипСодержимого, "+xml") ИЛИ Найти(ТипСодержимого, "/xml") <> 0 ИЛИ Найти(ТипСодержимого, "/json") <> 0 Тогда

                ПолучитьКакДвоичныеДанные = Ложь;

            ИначеЕсли Найти(ТипСодержимого, "image/") = 1 ИЛИ Найти(ТипСодержимого, "video/") = 1 

                ИЛИ Найти(ТипСодержимого, "application/") = 1 ИЛИ Найти(ТипСодержимого, "audio/") = 1 Тогда

                //Если содержимое полученного ответа представляет собой изображение, видео, приложение,

                //возвращаем двоичные данные, так как возвращать в виде строки не имеет смысла.

                ПолучитьКакДвоичныеДанные = Истина;

            КонецЕсли;

            //Некоторые сервера возвращают в типе содержимого имя отданного файла, например image/png; name="Имя файла.png"

            //или отдают в заголовке Content-Disposition: attachment; filename=Имя файла.png (http://www.http11.ru/post.php?post=2)             Если ОтветHTTP.Заголовки["Content-Disposition"] <> Неопределено Тогда

                ТипСодержимого = ОтветHTTP.Заголовки["Content-Disposition"];

            КонецЕсли;

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



            //в ключе filename*=UTF-8'' содержится url-кодированное имя файла

            ПозицияИмениФайла = Найти(ТипСодержимого, "filename*=UTF-8");

            Если ПозицияИмениФайла <> 0 Тогда

                ИмяФайлаОтветаКодированное = Сред(ТипСодержимого, ПозицияИмениФайла + СтрДлина("filename*=UTF-8"));

                ПозицияДвоеточия = Найти(ИмяФайлаОтветаКодированное, ";");

                Если ПозицияДвоеточия <> 0 Тогда

                    ИмяФайлаОтветаКодированное = Лев(ИмяФайлаОтветаКодированное, ПозицияДвоеточия - 1);

                КонецЕсли;

            КонецЕсли;



            //в ключе filename= содержится обычное имя файла

            ПозицияИмениФайла = Найти(ТипСодержимого, "name=");

            Если ПозицияИмениФайла <> 0 Тогда

                ИмяФайлаОтвета = Сред(ТипСодержимого, ПозицияИмениФайла + СтрДлина("name="));

                ПозицияДвоеточия = Найти(ИмяФайлаОтвета, ";");

                Если ПозицияДвоеточия <> 0 Тогда

                    ИмяФайлаОтвета = Лев(ИмяФайлаОтвета, ПозицияДвоеточия - 1);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

    КонецЕсли;



    ЗаголовкиHTTP = ОтветHTTP.Заголовки;

    //Добавляем в заголовки ответа код состояния (ответа) HTTP-сервера и имя файла содержимого, если есть.

    ЗаголовкиHTTP.Вставить("StatusCode", ОтветHTTP.КодСостояния);

    Если ЗначениеЗаполнено(ИмяФайлаОтвета) Тогда ЗаголовкиHTTP.Вставить("FileName", ИмяФайлаОтвета); КонецЕсли;

    Если ЗначениеЗаполнено(ИмяФайлаОтветаКодированное) Тогда

        ЗаголовкиHTTP.Вставить("EncodeFileName", ИмяФайлаОтветаКодированное);

    КонецЕсли;



    Если ОшибкаЗапроса ИЛИ НЕ ПолучитьКакДвоичныеДанные Тогда Возврат ОтветHTTP.ПолучитьТелоКакСтроку(); КонецЕсли;

    Возврат ОтветHTTP.ПолучитьТелоКакДвоичныеДанные();



КонецФункции // ПолучитьСодержимоеВебАдреса()







//Источник: http://forum.aeroion.ru/topic749.html   

Примеры использования:

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

    Знач ПропускатьПустыеСтроки = Неопределено)

 

    Результат = Новый Массив;

 

    // для обеспечения обратной совместимости

    Если ПропускатьПустыеСтроки = Неопределено Тогда

        ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);

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

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

                Результат.Добавить("");

            КонецЕсли;

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

        КонецЕсли;

    КонецЕсли;

    //

 

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

    Пока Позиция > 0 Цикл

        Подстрока = Лев(Строка, Позиция - 1);

        Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда

            Результат.Добавить(Подстрока);

        КонецЕсли;

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

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

    КонецЦикла;

 

    Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Строка) Тогда

        Результат.Добавить(Строка);

    КонецЕсли;

 

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

 

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

Источник

зы: админ, вот искал аналог СтрРазделить с игнорированием пустых строк - не нашел,зато нашел много дублей: https://helpf.pro/faq/view/504.html https://helpf.pro/faq/view/171.html https://helpf.pro/faq/view/351.html

, объедини пожалуйста.

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

Мне частенько приходится взаимодействовать с 1С-разработчиками, и во время совместной работы над проектами замечаю, что далеко не все из них хорошо знают свой главный инструмент – «Конфигуратор». Причем это не относится к степени крутости девелопера. Как оказалось, даже синьоры пользуются далеко не всеми возможностями «Конфигуратора», а ведь они могут сэкономить кучу времени, а тем самым повысить продуктивность разработчика.

Под катом я решил собрать несколько полезных фишек стандартного конфигуратора, которыми пользуюсь регулярно. Многие из них появились в платформе «1С:Предприятие 8.3.х», поэтому перед тестированием обязательно проверьте номер версии установленной у вас платформы.

Закладки

Функция установки в коде закладок появилось еще с первых релизов 8-й версии платформы «1С:Предприятие». Штука чрезвычайно полезная и помогает разработчику быстрей передвигаться по коду. Например, у нас есть большой модуль, в который мы решили добавить ряд функций. Естественно, потом нам предстоит их отлаживать, а соответственно постоянно между ними переключаться.

Хорошо, если новые функции добавлены в самый конец модуля, а если потребовалось расположить в разных частях? Вот тут начинается самое интересное. Одни программисты начинают скролить текст (как правило, этим страдают новички). Более продвинутые применяют поиск по тексту (Ctrl + F).

Оба способа рабочие, но пользоваться ими долго. Куда правильней использовать функцию «закладки». Например, переходим к какой-нибудь строке. Нажимаем ALT + F2 и получаем закладку (слева от строки отобразиться квадратик).

Убирается закладка тем же сочетанием клавиш. Так вот, закладок может быть в модуле расставлено много. По ним легко передвигаться нажатием клавиши F2. Фича крутая, но она была изначально не доделана и не позволяла, например, передвигаться по закладкам в разных модулях. Это досадное ограничение создавало лишние тормоза для программистов, привыкших к хорошим IDE (например, Visual Studio, PHP Storm).

В версии 8.3 недочет исправили и сделали классную вещь – «Список закладок». Нажимаем клавиши «Ctrl + Shift + F2», и перед нами откроется окно с полным списком установленных закладок:

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

Таким образом, работать с закладками стало на порядок проще. Еще бы добавили возможность установки горячих клавиш на закладки, и стало бы совсем хорошо. Помню еще со времен «Delphi 6» привык к установке закладок по горячим клавишам Alt + <Цифра>. Наставил закладок и быстро перемещайся по ним.

Группировка строк

В «1С:Предприятие» с самого начала была одна большая проблема – отсутствие возможности создавать дополнительные модули для определенных объектов. Например, есть у меня справочник «Контрагенты» и мне хочется разделить его функционал на модули. Допустим, функционала очеееень много. Так вот, в моем распоряжении все равно стандартный набор: Модуль объекта, Модуль менеджера и модуль формы. Понятное дело, что у каждого модуля своя роль, но что делать мне с моими 100500 функциями, которые относятся непосредственно к справочнику «Контрагенты»?

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

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

В общем, неудобство налицо (особенно после опыта разработки в языках, где нет подобных ограничений). Увы, спастись от этой проблемы в настоящее время не получится. Зато, мы можем использовать возможности группировки функций/процедур в модулях.+

Например, есть у нас общий модуль «РаботаСКонтрагентами». В нем часть функций отвечают за поиск контрагента, другая часть за загрузку контрагентов из внешних источников и т.д. Чтобы не потеряться во всем этом многообразии возможностей, можно логически сгруппировать все функции/процедуру. Для этого в платформе 8.3 появилась функция под названием «Области». Рассмотрим пример:

 #Область ПОИСК_КОНТРАГЕНТОВ

Функция ПоискКонтрагентаПоПаспортнымДанным()

	//Код	

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

Функция ПоискКонтрагентаПоНаименованию()

	//Код

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

#КонецОбласти

#Область ИМПОРТ_КОНТРАГЕНТОВ

Функция ИмпортКонтрагентаИзExcel()

	//Код	

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

Функция ИмпортКонтрагентаИзJSON()

	//Код

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

#КонецОбласти   

После добавление областей (язык препроцессора) наш код будет сгруппирован. Если их свернуть (области), то в итоге мы увидим симпатичный комментарий (см. рисунок ниже):

Клик мышкой по плюсику развернет область, и мы увидим свернутые функции. Если хочется сразу развернуть все имеющиеся функции (в пределах области), то кликаем по плюсику удерживая Ctrl.

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

Форматирование кода

Собственно говоря, тут и рассказывать особо нечего – выделяем код, нажимаем «Alt + Shift + F» и редактор попытается привести его в божеский вид в соответствии с вшитым code-style. Функция работает вполне сносно и ей обязательно надо пользоваться. Пишу это потому, что неоднократно видел, как разработчики пытаются отбивать отступы самостоятельно. Это конечно круто, но зачем тратить время, если большую часть работы можно выполнить одной горячей клавишей?

Комментирование

Опять же, никаких секретных действий – выделили код, нажали “Ctrl + num /” (слеш на дополнительной области клавиатуры) и получили закомментированный участок. Захотели вернуть обратно? Не беда! Выделяем закомментированный участок кода, нажимаем «Ctrl + Shift + num /» и мгновенно приводим его в боевой режим. Фишка попсовая, но опять же, новички про нее не знают, и тратят кучу времени на расстановку слешей. Да еще и матерят компанию «1С», за отсутствие возможности многострочного комментирования, как в продвинутых язык программирования.

Быстрая вставка специальных символов

Иногда возникает необходимость быстро вставить в редактор специальный символ (которого нет на клавиатуре). В большинстве случаев разработчики используют для этого функции встроенного языка (например, символ). А ведь есть способ проще. Если удерживать клавишу Alt и набрать на доп. клавиатуре код нужного символа (из таблицы ASKII), то он тут же будет вставлен. Например, держим ALT и набираем 65. На выходе получаем букву «А». Или вводим 4 и получаем бубновую масть.

Вставка специальных символов

Хорошо, с этим понятно, но какой от этого еще можно получить профит? Лично я, таким образом вставляю символ амперсанда (&). Все знают, что этот символ используется для определения параметров в языке запросов. Неудобство состоит в том, что текст запроса мы пишем на русском языке, а для добавления этого символа перед параметром приходится переключить на английский, затем нажать Shift + 7, а потом вернуться обратно на русский.

Чтобы избавить себя от этой рутиной последовательности действий, я использую выше озвученную функцию. С ее помощью для установки амперсанда требуется лишь набрать с удержанной клавишей «alt» последовательность цифр 38. При этом надобность в двойном переключении языка отпадает.

Многие могут подумать, что я искусственно раздул проблему из ничего, но тут просто дело привычки. Кода приходится писать много и вот такие мелочи немного повышают производительность и избавляют от лишних нажатий клавиши backspace (для удаления случайно набранных символов). Не убедил? Тогда просто выделите время и попробуйте себя переучить

Автор: Игорь Антонов

Каким кодом правильно отображать в табеле учета рабочего времени нерабочий праздничный день, пришедшийся для данного работника на период отпуска: В или ОТ в разделе "Отметки о явках и неявках на работу по числам месяца"?

Например, если у работника отпуск с 04.06.12 по 31.06.12, то 12.06.12 у данного работника правильно какой код поставить?

Вопрос возник оттого, что 1С:ЗУП ставит ОТ, бухгалтерия настаивает на В, как же быть?

Ответ: это запланированное поведение программы. на партнерском форуме копья ломаются с 2007г. 1С считает, что буква в табеле нигде не регламентирована, поэтому раз приказ на отпуск не разбивается на периоды, то и табель на периоды не разбивается. Дописывайте свой табель, если не согласны!

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

а по-поводу регламентированности:

вот ответ, который выложил один из партнеров от отдела тех.поддержки (кстати, им можно писать и Вам):

По вопросу обозначения в табеле дня отпуска, приходящегося на праздничный день обращались на ЛК, обращение SW663545:

Ответ:

1. "Присланная Вами ссылка не является нормативным актом и не может служить руководством к действию.

Весь период отпуска, перекрываемый документом на отпуск, в табеле отражается в кодом ОТ.

Если Вы считаете, что это некорректно, пришлите ссылку на действующее законодательство, в котором регламентируется иное заполнение табеля в период отпуска."

2. "- откуда следует, что в Т-13 такие дни НЕ могут быть отмечены как "ОТ"

Не следует, так как данная статья никакого отношения к формирования унифицированной форме Т-13 не имеет.

А в Приказе Минфина РФ от 15.12.2010 N 173н, которым данная форма утверждена, не регламентировано отражение праздничных дней, приходящихся на отпуск.

Мы не комментируем методические решения, реализованные в типовой конфигурации. Одна из причин данной позиции - то, что действующее законодательство позволяет некоторые операции реализовывать разными способами (на выбор разработчика).

Если Вы не согласны с тем, как это реализовано в типовой конфигурации, пришлите пожалуйста ссылку на нормативные документы, определяющие однозначность решения данной ситуации. 

Чтобы провести деноминацию в 1С на 1 июля 2016 года, нужно учесть, что желательно учёт вести в двух суммовых измерениях в белорусских рублях старого и нового образца. Однако, даже если Вы решите упростить задачу и проведёте деноминацию в программе вручную или с помощью обработки на 1 июля, то есть деноминируете итоги в соотношении 1:10000, то получите "кашу" в базе данных. Такие отчёты как ОСВ, акт сверки, карточка счёта, журнал-ордер и все остальные в программе 1С будут воспринимать данную операцию как "логичную". Обороты за период "поплывут", а итоги будут суммировать старые и новые деньги как равнозначные. Поэтому этот вариант исключим сразу.

Пять вариантов решения:

1)Корректный вариант!Разделить базу данных на две. Во второй провести деноминацию 1 июля.

Выполнить доработку форм и метаданных до копеек. Первое полугодие в первой базе оставить как есть. А учёт во втором полугодии, во второй базе, уже начать вести в денежном выражении нового образца. Перед разбиением базы на две, нужно доработать модуль и все метаданные, создать её копию и сделать свёртку обработкой WRAP.ert. Потом, этой же обработкой, в новой базе провести деноминацию - убрать из уже сделанных, во втором квартале, проводок и метаданных "0000". Но есть один недостаток. Разбивая базу на две Вы лишитесь оперативность при получении данных. Теперь, например, для того чтобы построить акт сверки за год по контрагенту - придётся делать это в двух базах! Выбирая этот вариант нужно понимать все нюансы разделения базы на полугодия. 

2)Корректный вариант!Проведение деноминации в рабочей базе (без разделения):

Выполнить доработку форм и метаданных до копеек. Создать сторнированные проводоки с учётом коэффициента деноминации 10000 (то есть если на Сч.по Дт.=3.000.000 -> будет сделана проводка Дт. -2.999.700 -> в итоге Сч.Дт=300). Внимание! Нужно иметь ввиду, что отчёты желательно строить в двух экземплярах (до 1 июля и после).

Выполнить доработку форм и метаданных до копеек.

3) Корректный вариант, но очень затратный! Доработать все метаданные 1С для деноминации и провести её на 1 июля 2016 года.

Самый дорогой вариант для предприятия.

В версии 8.2 и 8.3 можно создать дополнительное измерение "сумма в рублях старого образца".

В версии 7.7 на невалютных счетах можно использовать вал.сумму или доп.забалансовый счёт (рубли образца 2009 года).

Плюс ко всему придётся переделать практически все объекты метаданных. Отчеты, справочники, документы, обработки, глобальный(7.7) и общие(8) модули, план счетов, регистры и т.п. Реализовать данный метод смогут лишь крупные предприятия с массивным штатом программистов 1С.

4) Признан некорректным! Продолжить вести учёт в старых денежных единицах.

Совершенно не затратный и для большинства компаний самый оптимальный, так как делать то ничего и не надо. Коротко говоря - оставить всё как есть. В шапке некоторых отчётов, например, акта сверки, для корректности, можно добавить фразу типа этой: "в расчётах используется белорусский рубль образца 2000 года".

5) Признан некорректным! Разделить базу данных на две. Во второй провести деноминацию 1 января.

"Закрыть" период (первое полугодие) в первой базе, чтобы больше не вносить туда изменения. Во второй базе сделать свёртку обработкой WRAP.ert на 1 января. Незабудьте предварительно создать копию. Соответственно с 1 января 2016г. учёт будет деноминированный. Помните, что вносить изменения (если таковые будут) до 01 июля 2016 придётся вносить в обе информационные базы. В начале 2017 можно будет свернуть и обрезать Вашу рабочую базу на 1 июля. Так у Вас будет две базы: 1-я до 1.07.2016 (без деноминации) и 2-я после 1.07.2016 (с деноминацией).

6) Признан некорректным! Доработать только отчёты в 1С для деноминации 1 июля 2016 года.

В отчётах, которыми чаще всего пользуются бухгалтера для отправки данных "внешним" контрагентам (акт сверки, деб.задолженность, отчёт по движению ДС и т.п.), выводить дополнительную строку с коэффициентом 1:10000 под суммой с названием "сумма в белорусских рублях образца 2009 года".

Можно просто перенести все данные из Проф версии в базовую используя обработку ЗагрузкаВыгрузкаXML. Но мы пойдем другим путем:

1. Версии проф и базовой версии должны быть одинаковыми

2. Сохраняем конфигурацию Базовой версии в файл.

3. В конфигураторе ПРОФ версии снимаемся с поддержки.

4. Загружаем конфигурацию без проверок. ("Загрузить конфигурацию из файла") показываем файл из п.2

5. Получаем базовую версию с поддержкой обновлений.

Подробнее:

Для перехода с профессиональной версии 1С на базовую потребуется произвести несколько действий:

1) Создать файл 1Cv8.cf (из базовой версии) для этого зайти в конфигуратор (Бухгалтерия Предприятия Базовая)

Конфигурация - Конфигурация базы данных - сохранить конфигурацию БД в файл - сохраняем в папку файл 1Cv8.cf

2) Заходим в конфигуратор Бухгалтерия Предприятия (ПРОФ)

Конфигурация - поддержка - настройка поддержки - включить возможность изменения - кнопка снять с поддержки - Да - закрыть 

Конфигурация - Загрузить конфигурацию из файла - указываем ранее сохранённый файл 1Cv8.cf из Базовой конфигурации 

 - Да

 - Да

поставить на поддержку - ДА (после вылезет табличка) - Выполнить - ОК.

Всё готово, теперь это Базовая версия, все документы должны быть на своём месте.