предыдущий » Поиск

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

Обмен данными с сайтом используя формат JSON в 1С

Формат JSON в 1С до версии 8.3.6 не реализован, но нижет я приведу примеры функций которые можно использовать для полноценной работы JSON в 1С предыдущий версий.

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

Необходимость работы с этим форматом на уровне платформы обусловлена не только тем, что это «модный современный» формат, который прикладные решения 1С:Предприятия сами по себе могут использовать для интеграции со сторонними приложениями. Другая причина заключается ещё и в том, что JSON активно используется в HTTP интерфейсах. А в 1С:Предприятии как раз есть такие механизмы, в которых хочется использовать этот формат. Это REST интерфейс приложения, автоматически генерируемый платформой, и HTTP-сервисы, которые вы можете создавать самостоятельно.

В платформе с версии 8.3.6:

Потоковое чтение и запись JSON:

Объекты потоковой работы - это общие объекты ЧтениеJSON и ЗаписьJSON. Они последовательно читают JSON из файла или строки, или последовательно записывают JSON в файл или строку. Таким образом, чтение и запись JSON происходят без формирования всего документа в памяти.

В качестве иллюстрации потокового чтения JSON можно привести следующий пример:

Код 1C v 8.3

 //  Пример чтения  JSON. 

ЧтениеJSON = Новый ЧтениеJSON;

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

ЧтениеJSON.ОткрытьФайл("ИмяФайла");

//ЧтениеJSON.УстановитьСтроку("СтрокаJSON");

Пока ЧтениеJSON.Прочитать()   Цикл

TипJSON = ЧтениеJSON.ТипТекущегоЗначения;

Если TипJSON = ТипЗначенияJSON.Число     ИЛИ TипJSON = ТипЗначенияJSON.Строка ИЛИ TипJSON = ТипЗначенияJSON.Булево  ИЛИ TипJSON = ТипЗначенияJSON.Null  Тогда

// Обработать значение

Значение = ЧтениеJSON.ТекущееЗначение;

ИначеЕсли ТипJSON = ТипЗначенияJSON.Комментарий Тогда

// Обработать комментарий

Комментарий =  ЧтениеJSON.ТекущееЗначение;

ИначеЕсли TипJSON = ТипЗначенияJSON.ИмяСвойства Тогда

// Обработать имя свойства

ИмяСвойства = ЧтениеJSON.ТекущееЗначение;

ИначеЕсли TипJSON = ТипЗначенияJSON.НачалоМассива ИЛИ TипJSON = ТипЗначенияJSON.КонецМассива ИЛИ TипJSON = ТипЗначенияJSON.НачалоОбъекта ИЛИ TипJSON = ТипЗначенияJSON.КонецОбъекта ИЛИ TипJSON = ТипЗначенияJSON.Ничего Тогда

// Обработать начало/коней массива/объекта или отсутствие данных, // ТекущееЗначение читать не нужно.

КонеиЕсли;

КокецЦикла;

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



// При записи JSON вы самостоятельно формируете его структуру. Чтобы «подстраховать» вас от ошибок, объект ЗаписьJSON автоматически проверяет правильность записываемой структуры. 

// Для увеличения скорости работы эту проверку можно отключить. В примере ниже это строка:

ЗаписьJSON.ПроверятьСтруктуру = Ложь;



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

// В примере ниже для форматирования текста используется символ табуляции:

ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON( , Символы.Таб) ; 

ЗаписьJSON.ОткрытьФайл("ИмяФайла", , , ПараметрыЗаписиJSON);



// Потоковая запись JSON может выглядеть следующим образом. Записывается массив из четырёх элементов. Три из них примитивного типа, а четвёртый элемент - это объект с двумя свойствами:

// Пример записи JSON. ЗаписьJSON = Новый ЗаписьJSON;

// Для увеличения скорости работы можно отключить автоматическую проверку // правильности структуры записываемого документа JSON. ЗаписьиЗСЖ.ПроверятьСтруктуру = Ложь;

// Для красоты результирующего текста можно увеличить "лесенку".

// Стандартный отступ - 1 пробел.

ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON( , Символы.Таб);

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

// либо указать, что запись будет выполнена в строку, которую вернет метод Закрыть().

ЗаписьJSON.ОткрытьФайл("ИмяФайла", , , ПараметрыЗаписиJSON);

//ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);

// Записать массив.

ЗаписьJSON.ЗаписатьНачалоОбъекта();

ЗаписьJSON.ЗаписатьИмяСвойства("СвойствоТипаМассив");

ЗаписьJSON.ЗаписатьНачалоМассива();

// Первый элемент массива - Строка. ЗаписьJSON.ЗаписатьЗначение("Значение строка");

// Второй элемент массива - Число. ЗаписьJSON.ЗаписатьЗначение(12.345, Истина);

// Третий элемент массива - Булево. ЗаписьJSON-ЗаписатьЗначение(Истина);

// Четвертый элемент массива - объект с двумя свойствами. ЗаписьJSON.ЗаписатьНачалоОбъекта();

// Первое свойство объекта - Строка

ЗаписьJSON.ЗаписатьИмяСвойства("СвойствоТипаСтрока");

ЗаписьJSON.ЗаписатьЗначение("Значение строка");

// Второе свойство объекта - Неопределено

ЗаписьJSON.ЗаписатьИмяСвойства("СвойствоТипаНеопределено");

ЗаписьJSON.ЗаписатьЗначение(Неопределено);

ЗаписьJSON.ЗаписатьКонецОбъекта();

Запись JSON. ЗаписатьКонецМассива () ;

ЗаписьJSON.ЗаписатьКонецОбъекта();

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

//CTpoKaJSON = ЗаписьJSON.Закрыть();

Результат такой записи:

Код 1C v 8.х

 

{

	"СвойствоТипаМассив": [

		"Значение строка",

		1.2345E1,

		true,

		{

			"СвойствоТипаСтрока": "Значение строка",

			"СвойствоТипаНеопределено": null

		}

	]

}

Сериализация примитивных типов и коллекций в JSON

Вторая группа средств работы с JSON хороша тем, что избавляет вас от рутинной работы по чтению/записи каждого отдельного значения или свойства. При чтении документы JSON отображаются в фиксированный набор типов платформы: Строка, Число, Булево, Неопределено, Массив, ФиксированныйМассив, Структура, ФиксированнаяСтруктура, Соответствие, Дата. Соответственно, в обратную сторону, композиция объектов этих типов позволяет сформировать в памяти и быстро записать в файл структуру JSON. Таким образом, чтение и запись небольшого объема JSON заранее известной структуры можно производить немногими строчками кода.

Основное назначение этих средств мы видим в обмене информацией с внешними системами, чтении конфигурационных файлов в формате JSON.

Сериализацию вы можете выполнять с помощью методов глобального контекста ПрочитатьJSON() и ЗаписатьJSON(). Они работают в связке с объектами ЧтениеJSON и ЗаписьJSON.

В качестве примера десериализации JSON можно рассмотреть чтение массива из двух объектов:

Код 1C v 8.3

 // В качестве примера десериализации JSON можно рассмотреть чтение массива из двух объектов:

[

	{

		"имя": "Anton",

		"фамилия": "Иванов",

		"возраст": 25

	},

	{

		"имя": "Ирина",

		"фамилия": "Иванова",

		"возраст": 20

	}

]

// Код 1С:Предприятия, выполняющий десериализацию, может выглядеть следующим образом:

// Пример чтения JSON. 

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

ЧтениеJSON.ОткрытьФайл("ИмяФайла"); 

Сотрудники = ПрочитатьJSON(ЧтениеJSON); 

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

Для каждого Сотрудник из Сотрудники Цикл

// Обработать данные сотрудника. 

ИмяСотрудника = Сотрудник.имя; ФамилияСотрудника = Сотрудник.фамилия; ВозрастСотрудника = Сотрудник.возраст;

КонецЦикла;





// А пример сериализации (записи) в JSON может выглядеть так:

// Пример записи JSON

Структура = Новый Структура; 

Вставить("Фамилия","Иванов"); 

Зставить("Имя", "Иван"); 

Вставить("Отчество", "Иванович"); 

Зставить("Возраст", 40) ; 

Зставить("Женат", Истина);

Телефоны = Новый Массив;

Телефоны.Добавить("8-999-999-99-90") ;

Телефоны.Добавить("8-999-999-99-91") ;

Структура.Вставить("Телефоны", Телефены);





ЗаписьJSON = Новый ЗаписьJSON; 

ЗаписьJSON.ОткрытьФайл("ИмяФайла", , , Новый ПapaмeтpыЗaпиcиJS0N( , Символы.Таб) ) ;

ЗаписатьJSON(ЗаписьJSON, Структура); 

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





// Результат записи:

{

	"Фамилия": "Иванов",

	"Имя": "Иван",

	"Отчество": "Иванович",

	"Возраст": 40,

	"Женат": true,

	"Телефоны": [

		"8-999-999-99-90",

		"8-999-999-99-91"

	]

}

Подробнее вы можете посмотреть здесь

В платформе с версии 8.3.7:

Полностью автоматизировали работу с JSON и реализовали в платформе третью группу средств. Они позволяют сериализовать в JSON прикладные типы 1С:Предприятия: ссылки, объекты, наборы записей и вообще любые типы, для которых поддерживается XDTO сериализация. Конечно же, мы обеспечили и обратную операцию - десериализацию. Зачем это нужно!?

Прежде всего, и в основном, XDTO сериализацию в JSON мы рекомендуем использовать при обмене данными между двумя прикладными решениями 1С:Предприятия. По сравнению с XML формат JSON более компактный, сериализация/десериализация в/из JSON выполняется быстрее. Кроме этого мы предприняли дополнительные меры для того, чтобы сократить объём передаваемых данных.

Кроме обмена между приложениями 1С:Предприятия этот механизм можно использовать и для обмена с внешними системами, готовыми принимать типы данных 1С:Предприятия. Например, XDTO сериализацию в JSON можно использовать для организации собственного HTTP интерфейса прикладного решения. Сервис на платформе 1С:Предприятия будет формировать ответ в памяти в виде строки JSON. А затем передавать её при помощи объекта HTTPСервисОтвет. Реализованный нами механизм сериализации полностью соответствует стандарту JSON. Поэтому внешняя система не должна испытывать каких-либо трудностей с десериализацией.

Использование XDTO сериализации в JSON для других задач видится нам маловероятным. Потому что если внешняя система не готова работать с прикладными типами 1С:Предприятия, то зачем их ей передавать? А если предполагается обмениваться только примитивными типами и коллекциями, то для этой задачи хорошо подходят методы ПрочитатьJSON() и ЗаписатьJSON(). Подробнее здесь

ДО платформы версии 8.3.6, т.е. 8.3.5 и ниже:

На HelpF уже есть статья где описан пример: Работа с форматом JSON в 1С но не приведены функции, вот они:

Код 1C v 8.х

 Функция ПреобразоватьвСистему(Число10,система) Экспорт

	Если система > 36 или система < 2 тогда

		Сообщить("Выбранная система исчисления не поддерживается");

		Возврат -1;

	КонецЕсли;

	

	СтрокаЗначений = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

	СтрокаСистема = "";

	Пока Число10 > 0 цикл

		РезДеления = Число10/система;

		ЧислоСистема = цел(РезДеления);

		остатокОтДеления = Число10 - система*(ЧислоСистема);

		СтрокаСистема = сред(СтрокаЗначений,остатокОтДеления+1,1)+ СтрокаСистема;

		Число10 = ?(ЧислоСистема=0,0,РезДеления); 

	КонецЦикла;

	

	Нечётное = стрДлина(СтрокаСистема) - цел(стрДлина(СтрокаСистема)/2)*2;

	Если Нечётное тогда

		СтрокаСистема = "0"+СтрокаСистема;

	КонецЕсли;

	

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

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





Функция URLEncode(стр) Экспорт	

	Длина=СтрДлина(Стр);

	Итог="";

	Для Н=1 По Длина Цикл

		Знак=Сред(Стр,Н,1);

		Код=КодСимвола(Знак);

		

		если ((Знак>="a")и(Знак<="z")) или

			 ((Знак>="A")и(Знак<="Z")) или

			 ((Знак>="0")и(Знак<="9")) тогда

			Итог=Итог+Знак;

		Иначе

			Если (Код>=КодСимвола("А"))И(Код<=КодСимвола("п")) Тогда

				Итог=Итог+"%"+ПреобразоватьвСистему(208,16)+"%"+ПреобразоватьвСистему(144+Код-КодСимвола("А"),16);

			ИначеЕсли (Код>=КодСимвола("р"))И(Код<=КодСимвола("я")) Тогда

				Итог=Итог+"%"+ПреобразоватьвСистему(209,16)+"%"+ПреобразоватьвСистему(128+Код-КодСимвола("р"),16);

			ИначеЕсли (Знак="ё") Тогда

				Итог=Итог+"%"+ПреобразоватьвСистему(209,16)+"%"+ПреобразоватьвСистему(145,16);

			ИначеЕсли (Знак="Ё") Тогда

				Итог=Итог+"%"+ПреобразоватьвСистему(208,16)+"%"+ПреобразоватьвСистему(129,16);

			Иначе

				Итог=Итог+"%"+ПреобразоватьвСистему(Код,16);

			КонецЕсли;

		КонецЕсли;

	КонецЦикла;

	Возврат Итог;

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





Функция СформироватьСтрокуJSONИзМассива(Объект)

	СтрокаJSON = "[";

	

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

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

			СтрокаJSON = СтрокаJSON + """" + Элемент + """";

		ИначеЕсли ТипЗнч(Элемент) = Тип("Число") Тогда

			СтрокаJSON = СтрокаJSON + СтрЗаменить(Строка(Элемент), Символы.НПП, "");

		ИначеЕсли ТипЗнч(Элемент) = Тип("Булево") Тогда

			СтрокаJSON = СтрокаJSON + Формат(Элемент, "БЛ=false; БИ=true");

		ИначеЕсли ТипЗнч(Элемент) = Тип("Дата") Тогда

			СтрокаJSON = СтрокаJSON + Формат(Элемент - Дата(1970,1,1,1,0,0), "ЧГ=0");

		ИначеЕсли ТипЗнч(Элемент) = Тип("Массив") Тогда

			СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент);

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

			СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент);

		ИначеЕсли ТипЗнч(Элемент) = Тип("ТаблицаЗначений") Тогда

			СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент);

		Иначе

			СтрокаJSON = СтрокаJSON + """" + URLEncode(Строка(Элемент)) + """";

		КонецЕсли;

		

		СтрокаJSON = СтрокаJSON + ",";

	КонецЦикла;

	

	Если Прав(СтрокаJSON, 1) = "," Тогда

		СтрокаJSON = Лев(СтрокаJSON, СтрДлина(СтрокаJSON)-1);

	КонецЕсли;

	

	Возврат СтрокаJSON + "]";

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





Функция СформироватьСтрокуJSONИзСтруктуры(Объект)

	СтрокаJSON = "{";

	

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

		Если Элемент.Значение = "" Тогда

			Продолжить;

		КонецЕсли;

		

		СтрокаJSON = СтрокаJSON + """" + Элемент.Ключ + """" + ":";

		

		Если ТипЗнч(Элемент.Значение) = Тип("Строка") Тогда

			СтрокаJSON = СтрокаJSON + """" + Элемент.Значение + """";

		ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Число") Тогда

			СтрокаJSON = СтрокаJSON + СтрЗаменить(Строка(Элемент.Значение), Символы.НПП, "");

		ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Булево") Тогда

			СтрокаJSON = СтрокаJSON + Формат(Элемент.Значение, "БЛ=false; БИ=true");

		ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Дата") Тогда

			СтрокаJSON = СтрокаJSON + Формат(Элемент.Значение - Дата(1970,1,1,1,0,0), "ЧГ=0");

		ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("Массив") Тогда

			СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент.Значение);

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

			СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент.Значение);

		ИначеЕсли ТипЗнч(Элемент.Значение) = Тип("ТаблицаЗначений") Тогда

			СтрокаJSON = СтрокаJSON + СформироватьСтрокуJSON(Элемент.Значение);

		Иначе

			СтрокаJSON = СтрокаJSON + """" + URLEncode(Строка(Элемент.Значение)) + """";

		КонецЕсли;

		

		СтрокаJSON = СтрокаJSON + ",";

	КонецЦикла;

	

	Если Прав(СтрокаJSON, 1) = "," Тогда

		СтрокаJSON = Лев(СтрокаJSON, СтрДлина(СтрокаJSON)-1);

	КонецЕсли;

	

	Возврат СтрокаJSON + "}";

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





Функция СформироватьСтрокуJSON(Объект) Экспорт

	СтрокаJSON = "";

	

	Если ТипЗнч(Объект) = Тип("Массив") Тогда

		СтрокаJSON = СформироватьСтрокуJSONИзМассива(Объект);

	ИначеЕсли ТипЗнч(Объект) = Тип("Структура") Тогда

		СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Объект);

	ИначеЕсли ТипЗнч(Объект) = Тип("ТаблицаЗначений") Тогда

		СоставСтруктуры = "";

		Для каждого Колонка Из Объект.Колонки Цикл

			СоставСтруктуры = СоставСтруктуры + ?(ЗначениеЗаполнено(СоставСтруктуры), ",", "") + Колонка.Имя;

		КонецЦикла;

		

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

		Для каждого Строка Из Объект Цикл

			СтруктураКолонок = Новый Структура(СоставСтруктуры);

			ЗаполнитьЗначенияСвойств(СтруктураКолонок, Строка);

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

		КонецЦикла;

		

		СтрокаJSON = СформироватьСтрокуJSONИзМассива(МассивСтрок);

	КонецЕсли;

	

	Возврат СтрокаJSON;

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





Процедура ЗаполнитьДанныеИзОтветаJSON(Результат, ТекстJSON, ТипДанных)

	ТекстJSON = СокрЛП(Сред(ТекстJSON, 2));	

	НомерЗначения = 0;

	

	Пока ТекстJSON <> "" Цикл

		ПервыйСимвол = Лев(ТекстJSON, 1);

		Если ПервыйСимвол = "{" Тогда

			Значение = Новый Структура;

			ЗаполнитьДанныеИзОтветаJSON(Значение, ТекстJSON, "Структура");

			

			Если ТипДанных = "Структура" Тогда

				Результат.Вставить("Значение" + ?(НомерЗначения = 0, "", НомерЗначения), Значение);

				НомерЗначения = НомерЗначения + 1;

			ИначеЕсли ТипДанных = "Массив" Тогда

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

			КонецЕсли;

		ИначеЕсли ПервыйСимвол = "[" Тогда

			Значение = Новый Массив;

			ЗаполнитьДанныеИзОтветаJSON(Значение, ТекстJSON, "Массив");

			

			Если ТипДанных = "Структура" Тогда

				Результат.Вставить("Значение" + ?(НомерЗначения = 0, "", НомерЗначения), Значение);

				НомерЗначения = НомерЗначения + 1;

			Иначе

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

			КонецЕсли;

		ИначеЕсли ПервыйСимвол = "}" И ТипДанных = "Структура" Тогда

			ТекстJSON = СокрЛП(Сред(ТекстJSON, 2));

			Если Лев(ТекстJSON, 1) = "," Тогда

				ТекстJSON = СокрЛП(Сред(ТекстJSON, 2));

			КонецЕсли;

			

			Возврат;

		ИначеЕсли ПервыйСимвол = "]" И ТипДанных = "Массив" Тогда

			ТекстJSON = СокрЛП(Сред(ТекстJSON, 2));

			Если Лев(ТекстJSON, 1) = "," Тогда

				ТекстJSON = СокрЛП(Сред(ТекстJSON, 2));

			КонецЕсли;

			

			Возврат;

		Иначе

			Если ТипДанных = "Структура" Тогда

				

				Поз = Найти(ТекстJSON, ":");

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

					Прервать;

				КонецЕсли;

				

				ИмяЗначения = СокрЛП(Лев(ТекстJSON, Поз-1));

				

				ТекстJSON = СокрЛП(Сред(ТекстJSON, Поз+1));

				

				Если Лев(ТекстJSON, 1) = "{" Тогда

					Значение = Новый Структура;

					ЗаполнитьДанныеИзОтветаJSON(Значение, ТекстJSON, "Структура");

				ИначеЕсли Лев(ТекстJSON, 1) = "[" Тогда

					Значение = Новый Массив;

					ЗаполнитьДанныеИзОтветаJSON(Значение, ТекстJSON, "Массив");

				Иначе

					Поз = 0;

					Для Сч = 1 По СтрДлина(ТекстJSON) Цикл

						Символ = Сред(ТекстJSON, Сч, 1);

						Если Символ = "," ИЛИ Символ = "]" ИЛИ Символ = "}" Тогда

							Поз = Сч;

							Прервать;

						КонецЕсли;

					КонецЦикла;

					

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

						Значение = ТекстJSON;

						ТекстJSON = "";

					Иначе

						Значение = Лев(ТекстJSON, Поз-1);

						ТекстJSON = СокрЛП(Сред(ТекстJSON, Поз + ?(Сред(ТекстJSON, Поз, 1) = ",", 1, 0)));

					КонецЕсли;

					

					Значение = СокрЛП(Значение);

				КонецЕсли;

				

				Результат.Вставить(ИмяЗначения, Значение);

			ИначеЕсли ТипДанных = "Массив" Тогда

				Поз = 0;

				Для Сч = 1 По СтрДлина(ТекстJSON) Цикл

					Символ = Сред(ТекстJSON, Сч, 1);

					Если Символ = "," ИЛИ Символ = "]" ИЛИ Символ = "}" Тогда

						Поз = Сч;

						Прервать;

					КонецЕсли;

				КонецЦикла;

				

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

					Значение = ТекстJSON;

					ТекстJSON = "";

				Иначе

					Значение = Лев(ТекстJSON, Поз-1);

					ТекстJSON = СокрЛП(Сред(ТекстJSON, Поз + ?(Сред(ТекстJSON, Поз, 1) = ",", 1, 0)));

				КонецЕсли;

				

				Значение = СокрЛП(Значение);

				

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

			КонецЕсли;

		КонецЕсли;

	КонецЦикла;

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





Функция ЗаполнитьСтруктуруИзОтветаJSON(Знач ТекстJSON) Экспорт

	Результат = Новый Структура;

	

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

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

	Если Лев(ТекстJSON, 1) = "{" Тогда

		ЗаполнитьДанныеИзОтветаJSON(Результат, ТекстJSON, "Структура");

	ИначеЕсли Лев(ТекстJSON, 1) = "[" Тогда

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

		ЗаполнитьДанныеИзОтветаJSON(МассивДанных, ТекстJSON, "Массив");

		

		Результат.Вставить("Значение", МассивДанных);

	КонецЕсли;

		

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

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

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

Код 1C v 8.х

 ////////////////////////////////////////////////////////

// преобразование простой структуры

Данные = Новый Структура("server,user,hash",

            10234, 3745, "8263ad83ce");

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// {"server":"10234","user":"3745","hash":"8263ad83ce"} 

 

////////////////////////////////////////////////////////

// преобразования массива

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

Данные.Добавить("Nissan");

Данные.Добавить("Ford");

Данные.Добавить("Audi");

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// ["Nissan","Ford","Audi"] 

 

////////////////////////////////////////////////////////

// преобразование сложной структуры

Данные = Новый Структура;

Данные.Добавить("server", 10234);

Данные.Добавить("users", Новый Массив);

Данные.Добавить("hash", "8263ad83ce");

 

Данные.users.Добавить(3745);

Данные.users.Добавить(7462);

Данные.users.Добавить(2374);

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// {"server":"10234","users":["3745","7462","2374"],"hash":"8263ad83ce"}

 

////////////////////////////////////////////////////////

// еще один пример массива

Данные = Новый Структура;

Данные.Вставить("server", 10234);

Данные.Вставить("users", Новый Массив);

 

Данные.users.Добавить(Новый Структура("id,name", 3745, "Jack"));

Данные.users.Добавить(Новый Структура("id,name", 7246, "Nick"));

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// {"server":"10234","users":[{"id":"3745","name":"Jack"},{"id":"7462","name":"Nick"}>

 

////////////////////////////////////////////////////////

// преобразование таблицы значений

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

ТаблПользователей.Колонки.Добавить("id");

ТаблПользователей.Колонки.Добавить("name");

 

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

НоваяСтрока.id = 3276;

НоваяСтрока.name = "Jack";

 

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

НоваяСтрока.id = 3276;

НоваяСтрока.name = "Nick";

 

СтрокаJSON = СформироватьСтрокуJSONИзСтруктуры(Данные);

// результатом будет строка

// [{"id":"3745","name":"Jack"},{"id":"7462","name":"Nick"}]

Пишите комменты

Категория: Работа с Интернет, Почтой (Mail), FTP

Где список открытых окон (документов, справочников) в такси?

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

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

Все Окна

На панели системных команд (это самая верхняя строка командного интерфейса) кликаем по кнопке «Добавить или удалить кнопки», затем кликаем по пункту «Все окна …». На панели системных команд появится кнопка «Список окон». Клик по ней открывает форму «Все окна», в которой отображается список открытых объектов конфигурации. Это могут быть справочники, формы документов, списки журналов, регистры накопления, регистры сведений, план счетов.

По щелчку Все Окна открывается форма со списком открытых окон:

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

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

Еще вариант: Добавить панель открытых Окон

Нажмите в меню "Вид > Настройки панелей":

Я люблю вкладки сверху, поэтому перетаскиваю Панель открытых вверх и жму ОК

В результате вверху появляется панель открытых окон:

Категория: 1С Общие вопросы - Управляемые формы и Такс…

Горячие клавиши 1С Пользователю [ Предприятие]

Основные команды:

Интерфейс:
F6 - переключение между формами рабочего стола
F10 - переход в главное меню окна
Alt+1 - переход на панель Разделов
Alt+2 - переход на панель Навигации
Alt+3 - переход на панель Действий
Alt+9 - переход на панель Истории
Ctrl+Tab - переход между окнами
Ctrl+F4 - закрытие текущего окна

Общие действия:
Del - пометить на удаление / снять
Ins – добавить
Ctrl + S – сохранить документ
Ctrl + P – отправить на печать
Ctrl + Shift + P – отправить в печать на текущий принтер
Ctrl + C (Ctrl + Ins) – копировать
Ctrl + X (Shift + Del) – вырезать
Ctrl + V (Shift + Ins) – вставить
Ctrl + A – выделить все
Ctrl + Z – отмена последнего действия
Ctrl + Y –вернуть отмененное действие
Ctrl + F – найти
F3 – найти следующий
Ctrl + H – заменить
Ctrl + F2 – открывает «Калькулятор»
Enter – выполняет действия кнопки по умолчанию
Ctrl + Enter – выполняет действие кнопки по умолчанию
Tab – перейти к следующему элементу
Shift + Tab – вернуться к предыдущему элементу формы
Esc – закрыть активное окно

Ссылка, История и Избранное:
Ctrl + F11 – получить ссылку
Shift + F11 – перейти по ссылке
Ctrl + D – добавить в «Избранное»
Ctrl + Shift + B –открыть «Избранное»
Ctrl + Shift + H –открыть «История»
Ctrl + Shift + Z –открыть / закрыть «Служебные сообщения»

Рассмотрим более подробно:

Общие действия
Удалить - Del
Добавить - Ins
Сохранить активный документ - Ctrl + S
Печать активного документа - Ctrl + P
Печать на текущий принтер - Ctrl + Shift + P
Копировать в буфер обмена - Ctrl + C - Ctrl + Ins
Вырезать в буфер обмена - Ctrl + X - Shift + Del
Вставить из буфера обмена - Ctrl + V - Shift + Ins
Добавить к буферу обмена - Shift + Num+
Вычесть из буфера обмена - Shift + Num-
Выделить все - Ctrl + A
Отменить последнее действие - Ctrl + Z - Alt + BackSpace
Вернуть отмененное действие - Ctrl + Y - Shift + Alt + BackSpace
Найти - Ctrl + F
Найти следующий - F3
Найти следующий выделенный - Ctrl + F3
Найти предыдущий - Shift + F3
Найти предыдущий выделенный - Ctrl + Shift + F3
Заменить - Ctrl + H
Найти в дереве - Ctrl + T
Следующая страница - Ctrl + PgDn - Ctrl + Alt + F
Предыдущая страница - Ctrl + PgUp - Ctrl + Alt + B
Включить/выключить жирность - Ctrl + B
Включить/выключить курсив - Ctrl + I
Включить/выключить подчеркивание - Ctrl + U
Переход к предыдущей главе справки - Alt + Left
Переход к следующей главе справки - Alt + Right

Сортировка
Сортировка справочника по коду Ctrl + 1
Сортировка справочника по наименованию Ctrl + 2
Сортировка справочника по реквизиту Ctrl + 3
На уровень вверх Ctrl + стрелка вверх
На уровень вниз Ctrl + стрелка вниз

Управление окнами
Закрыть активное окно, модальный диалог или приложение - Alt + F4
Закрыть активное обычное окно - Ctrl + F4
Закрыть активное окно (кроме обычных) - Shift + Esc
Активизировать следующее обычное окно - Ctrl + Tab - Ctrl + F6
Активизировать предыдущее обычное окно - Ctrl + Shift + Tab - Ctrl + Shift + F6
Активизировать следующую секцию окна - F6
Активизировать предыдущую секцию окна - Shift + F6
Вызвать системное меню приложения или модального диалога - Alt + Space
Вызвать системное меню окна (кроме модальных диалогов) - Alt + Hyphen(-) - Alt + Num-
Вызвать главное меню - Alt - F10
Вызвать контекстное меню - Shift + F10

Переход по истории активности окон
Переместиться назад - Ctrl + "-"
Переместиться вперед - Ctrl + Shift + "-"
Вернуть активность обычному окну - Esc

Поле ввода
Переключить режим вставки/замены - Ins
Кнопка выбора - F4
Кнопка открытия - Ctrl + Shift + F4
Очистить поле - Shift + F4
Удалить символ слева от курсора - BackSpace
Удалить символ справа от курсора - Del
Удалить слово слева от курсора - Ctrl + BackSpace
Удалить слово справа от курсора - Ctrl + Del
Перейти в начало строки - Home
Перейти в конец строки - End

Поле картинки
Увеличить масштаб - Num+
Уменьшить масштаб - Num-
Прокрутить - Up, Down, Left, Right
Прокрутить на размер окна вверх - Page Up
Прокрутить на размер окна вниз - Page Down
Прокрутить на размер окна влево - Alt + PgUp
Прокрутить на размер окна вправо - Alt + PgDn

Файл
Новый - Ctrl + N
Открыть - Ctrl + O
Сохранить - Ctrl + S
Печать - Ctrl + P
Сравнить файлы - Alt + Ф + Р
Закрыть - Alt + Ф + З
Просмотр - Alt + Ф + Р + Р + Enter
Параметры страницы - Alt + Ф + М

Окна
Закрыть окно - Ctrl + F4
Следующее окно - Ctrl + Shift + F6
Предыдущее окно - Ctrl + F6
Каскадом - Alt + О + К
Закрыть окно сообщений - Ctrl + Shift + z
Следующая страница - Ctrl + Alt + F
Предыдущая страница - Ctrl + Alt + B
Разделить окно - Alt + О + Р

Сервис
Калькулятор - Ctrl + F2
Синтаксис помощник - Alt + С + С
Настройка шаблонов - Alt + С + Н
Временная блокировка - Alt + С + В
Запуск предприятия - F11
Запуск отладчика - F12

Помощь
Помощь - F1
Содержание - Shift + F1
Поиск в Синтакс-Помощнике - Ctrl + F1
О программе - Alt + П + О

Общие
Свойства - Alt + Enter
Выход - Alt + F4

Категория: 1С Общие вопросы - Обычные формы

Горячие клавиши 1С Разработчику [ Конфигуратор ]

Основные команды:

Кодирование:
Ctrl+Пробел - вызов подсказки
Ctrl+Q - вызов шаблона
Ctrl+F1 - поиск в синтакс-помощнике
Ctrl + L - удалить текущую строку
Alt+Shift+F - отформатировать код
Исследование:
F12 - ставим курсор на процедуре или функции и переходим к определению процедуры или функций.
Ctrl+(минус) - перемещает назад в модуль, из которого ушли через F12
Ctrl+T - найти в дереве конфигурации
Ctrl+F - найти объект метаданных или его реквизит в дереве метаданных.
Отладка:
F5 - начать/продолжить отладку
F9 - установить/снять точку останова
F10 - шагнуть через процедуру или функцию, на следующую строку кода
F11 - идти по порядку с заходом во все процедуры и функции.
Alt+F9 - список точек останова
Shift+F9 - вычислить выражение
Ctrl+Shift+F9 - отк./вкл. точку остан.
Ctrl+Alt+W - открыть табло
Ctrl+Alt+C - открыть стек вызовов
Закладки:
Alt+F2 - установить/снять закладку
F2 - к следующей закладке
Shift+F2 - к предыдущей закладке
Быстрый переход по Процедурам, Функциям, Условиям, Циклам:
Ctrl+[ - перейти назад
Ctrl+] - перейти вперед
Ctlr+G - перемещения к строке кода
Окно сообщений:
Ctrl+Alt+Z - очистить.
Ctrl+Shift+Z - очистить и закрыть

Рассмотрим более подробно:

Глобальные действия
Создать новый документ - Ctrl + N
Открыть существующий документ - Ctrl + O
Активизировать поле поиска в командной панели - Ctrl + D
Открыть "Глобальный поиск по текстам" - Ctrl + Shift + F
Открыть "Результаты глобального поиска по текстам" - Ctrl + Shift + H
Запустить 1С:Предприятие без отладки - Ctrl + F5
Открыть окно "Конфигурация" - Ctrl + Shift + С
Обновить конфигурацию БД - F7
Открыть "Шаблоны текста" - Ctrl + Shift + T
Открыть встроенный "Калькулятор" системы 1С:Предприятие - Ctrl + F2
Открыть "Свойства" - Alt + Enter
Открыть "Дополнительно" - Shift + Alt + Enter
Открыть "Служебные сообщения" - Ctrl + Alt + O
Закрыть "Служебные сообщения" - Ctrl + Shift + Z
Очистить служебные сообщения - Ctrl + Alt + Z
Открыть "Справку" - F1
Открыть "Содержание справки" - Shift + F1
Открыть "Индекс справки" - Shift + Alt + F1
Открыть "Поиск по справке" - Ctrl + Alt + F1
Открыть "Синтакс-Помощник - Ctrl + Shift + F1
Поиск по индексу в "Синтакс-Помощнике" - Ctrl + F1

Общие действия
Удалить - Del
Добавить - Ins
Сохранить активный документ - Ctrl + S
Печать активного документа - Ctrl + P
Печать на текущий принтер - Ctrl + Shift + P
Копировать в буфер обмена - Ctrl + C - Ctrl + Ins
Вырезать в буфер обмена - Ctrl + X - Shift + Del
Вставить из буфера обмена - Ctrl + V - Shift + Ins
Добавить к буферу обмена - Shift + Num+
Вычесть из буфера обмена - Shift + Num-
Выделить все - Ctrl + A
Отменить последнее действие - Ctrl + Z - Alt + BackSpace
Вернуть отмененное действие - Ctrl + Y - Shift + Alt + BackSpace
Найти - Ctrl + F
Найти следующий - F3
Найти следующий выделенный - Ctrl + F3
Найти предыдущий - Shift + F3
Найти предыдущий выделенный - Ctrl + Shift + F3
Заменить - Ctrl + H
Найти в дереве - Ctrl + T
Следующий элемент в результатах поиска и окне сообщений - F8
Предыдущий элемент в результатах поиска и окне сообщений - Shift + F8
Развернуть (узел дерева, группу табличного документа, группировку модуля) - Ctrl + Num+
Свернуть (узел дерева, группу табличного документа, группировку модуля) - Ctrl + Num-
Развернуть (узел дерева, группу табличного документа, группировку модуля) и все подчиненные - Ctrl + Alt + Num+
Свернуть (узел дерева, группу табличного документа, группировку модуля) и все подчиненные - Ctrl + Alt + Num-
Развернуть (все узлы дерева, группы табличного документа, группировки модуля) - Ctrl + Shift + Num+
Свернуть (все узлы дерева, группы табличного документа, группировки модуля) - Ctrl + Shift + Num-
Следующая страница - Ctrl + PgDn - Ctrl + Alt + F
Предыдущая страница - Ctrl + PgUp - Ctrl + Alt + B
Включить/выключить жирность - Ctrl + B
Включить/выключить курсив - Ctrl + I
Включить/выключить подчеркивание - Ctrl + U
Переход к предыдущей главе справки - Alt + Left
Переход к следующей главе справки - Alt + Right

Управление окнами
Закрыть активное окно, модальный диалог или приложение - Alt + F4
Закрыть активное обычное окно - Ctrl + F4
Закрыть активное окно (кроме обычных) - Shift + Esc
Активизировать следующее обычное окно - Ctrl + Tab - Ctrl + F6
Активизировать предыдущее обычное окно - Ctrl + Shift + Tab - Ctrl + Shift + F6
Активизировать следующую секцию окна - F6
Активизировать предыдущую секцию окна - Shift + F6
Вызвать системное меню приложения или модального диалога - Alt + Space
Вызвать системное меню окна (кроме модальных диалогов) - Alt + Hyphen(-) - Alt + Num-
Вызвать главное меню - Alt - F10
Вызвать контекстное меню - Shift + F10

Переход по истории активности окон
Переместиться назад - Ctrl + "-"
Переместиться вперед - Ctrl + Shift + "-"
Вернуть активность обычному окну - Esc

Форма
Перейти к следующему элементу формы/выполнить действие кнопки по умолчанию - Enter
Выполнить действие кнопки по умолчанию - Ctrl + Enter
Перейти к следующему элементу формы - Tab
Вернуться к предыдущему элементу формы - Shift + Tab
Активизировать командную панель, связанную с активным элементом управления/формой - Alt + F10
Открыть "Список элементов управления формы" - Ctrl + Shift + L
Перемещение по элементам управления, объединенным в одну группу - Up, Down, Left, Right

Работа со списком и деревом
Открыть - F2
Обновить - Ctrl + Shift + R
Скопировать - F9
Новая группа - Ctrl + F9
Удалить строку - Shift + Del
Перемещение строки вверх - Ctrl + Shift + Up
Перемещение строки вниз - Ctrl + Shift + Down
Перенести элемент в другую группу - Ctrl + Shift + M
Перейти на уровень вниз с одновременным раскрытием группы - Ctrl + Down
Перейти на уровень вверх (к "родителю") - Ctrl + Up
Закончить редактирование - Shift + F2
Развернуть узел дерева - Num+ - Ctrl + Num+
Свернуть узел дерева - Num- - Ctrl + Num-
Развернуть узел дерева и все подчиненные - Num* - Ctrl + Alt + Num+
Свернуть узел дерева и все подчиненные - Ctrl + Alt + Num-
Развернуть все узлы дерева (выполняется в любом месте дерева) - Ctrl + Shift + Num+
Свернуть все узлы дерева (выполняется в любом месте дерева) - Ctrl + Shift + Num-
Изменение флажка - Пробел

Поле ввода
Переключить режим вставки/замены - Ins
Кнопка выбора - F4
Кнопка открытия - Ctrl + Shift + F4
Очистить поле - Shift + F4
Удалить символ слева от курсора - BackSpace
Удалить символ справа от курсора - Del
Удалить слово слева от курсора - Ctrl + BackSpace
Удалить слово справа от курсора - Ctrl + Del
Перейти в начало строки - Home
Перейти в конец строки - End

Поле картинки
Увеличить масштаб - Num+
Уменьшить масштаб - Num-
Прокрутить - Up, Down, Left, Right
Прокрутить на размер окна вверх - Page Up
Прокрутить на размер окна вниз - Page Down
Прокрутить на размер окна влево - Alt + PgUp
Прокрутить на размер окна вправо - Alt + PgDn

Редактор управляемых форм
Переключиться на закладку "Форма" - Alt + 1
Переключиться на закладку "Модуль" - Alt + 2
Переключиться на закладку "Форма" и активизировать закладку "Элементы" - Alt + 3
Переключиться на закладку "Форма" и активизировать закладку "Реквизиты" - Alt + 4
Переключиться на закладку "Форма" и активизировать закладку "Команды" - Alt + 5
Переключиться на закладку "Форма" и активизировать закладку "Командный интерфейс" - Alt + 6
Переключиться на закладку "Форма" и активизировать закладку "Параметры" - Alt + 7
Переключиться на закладку "Форма" и активизировать окно предварительного просмотра формы - Alt + 8

Редактор форм
Протестировать форму - Ctrl + R
Переместить элемент управления - Up, Down, Left, Right
Копировать элемент управления - Ctrl + (Up, Down, Left, Right)
Копировать элемент управления с инверсией выравнивания по сетке - Ctrl + Alt + (Up, Down, Left, Right)
Изменить размер элемента управления - Shift + (Up, Down, Left, Right)
Изменить размер элемента управления с инверсией выравнивания по сетке - Shift + Alt + (Up, Down, Left, Right)
Инверсия использования сетки - Alt + (Up, Down, Left, Right)
Открыть окно "Привязка границ для элемента…" - Ctrl + Shift + S
Начало редактирования - F2

Редактор табличных документов
Перейти к ячейке - Ctrl + G
Перемещение по ячейкам - Up, Down, Left, Right
Перемещение по ячейкам к следующей заполненной или пустой - Ctrl + (Up, Down, Left, Right)
Перемещение по ячейкам к следующей заполненной или пустой с выделением ячеек - Ctrl + Shift + (Up, Down, Left, Right)
Выделение ячеек - Shift + (Up, Down, Left, Right)
Выделение ячеек от текущей до начала строки - Shift + Home
Выделение ячеек от текущей до конца строки - Shift + End
Выделение строк - Alt + Shift + (Up, Down)
Выделение строк до следующей заполненной или пустой ячейки - Ctrl + Alt + Shift + (Up, Down)
Выделение колонок - Alt + Shift + (Left, Right)
Выделение колонок до следующей заполненной или пустой ячейки - Ctrl + Alt + Shift + (Left, Right)
Выделение ячеек от текущей до начала документа - Ctrl + Shift + Home
Выделение ячеек от текущей до конца документа - Ctrl + Shift + End
Прокрутить на страницу вверх - PgUp
Прокрутить на страницу вниз - PgDn
Прокрутить на страницу влево - Alt + PgUp
Прокрутить на страницу вправо - Alt + PgDn
Перейти к редактированию содержимого ячейки - Enter
Переключение режима редактирования/ввода в ячейке - F2
Перейти в начало строки - Home
Перейти в конец строки - End
Перейти в начало текста - Ctrl + Home
Перейти в конец текста - Ctrl + End
Установка имени текущей области - Ctrl + Shift + N

Редактор текстовых документов и модулей
Переключить режим вставки/замены - Ins
Перейти в начало строки - Home
Перейти в конец строки - End
Выделить до начала строки - Shift + Home
Выделить до конца строки - Shift + End
Перейти в начало текста - Ctrl + Home
Перейти в конец текста - Ctrl + End
Выделить до начала текста - Ctrl + Shift + Home
Выделить до конца текста - Ctrl + Shift + End
Прокрутить на одну строку вверх - Ctrl + Up
Прокрутить на одну строку вниз - Ctrl + Down
Перейти к началу предшествующего слова - Ctrl + Left
Перейти к началу следующего слова - Ctrl + Right
Выделить слово - Ctrl + W
Выделить предшествующее слово - Ctrl + Shift + Left
Выделить следующее слово - Ctrl + Shift + Right
Прокрутить на страницу вверх - PgUp
Прокрутить на страницу вниз - PgDn
Выделить предыдущую страницу текста - Shift + PgUp
Выделить следующую страницу текста - Shift + PgDn
Снять выделение - Esc
Перейти к строке - Ctrl + G
Удалить символ слева от курсора - BackSpace
Удалить символ справа от курсора - Del
Удалить слово слева от курсора - Ctrl + BackSpace
Удалить слово справа от курсора - Ctrl + Del
Установить/снять закладку - Alt + F2
Следующая закладка - F2
Предыдущая закладка - Shift + F2
Удалить текущую строку - Ctrl + L
Форматировать блок - Shift + Alt + F
Добавить комментарий - Ctrl + Num/
Удалить комментарий - Ctrl + Shift + Num/
Cдвинуть блок вправо - Tab
Сдвинуть блок влево - Shift + Tab
Синтаксический контроль - Ctrl + F7
Процедуры и функции модуля - Ctrl + Alt + P
Перейти к объявлению процедуры или переменной - F12
Контекстная подсказка - Ctrl + Пробел
Свернуть группу (курсор может быть в любом месте группы) - Ctrl + Num -
Развернуть группу (курсор может быть в любом месте группы) - Ctrl + Num +
Cвернуть все группы - Ctrl + Shift + Num -
Развернуть все группы - Ctrl + Shift + Num +
Обновить группировки - Ctrl+ Shift + R
Активизация шаблона - Ctrl + Q
Перейти по операторным скобкам назад - Ctrl + [
Перейти по операторным скобкам вперед - Ctrl + ]
Перейти по операторным скобкам назад с выделением текста - Ctrl + Shift + [
Перейти по операторным скобкам вперед с выделением текста - Ctrl + Shift + ]

Отладчик
Начать/продолжить отладку - F5
Перезапуск приложения для отладки - Ctrl + Shift + F5
Прекратить отладку - Shift + F5
Шагнуть в - F11
Шагнуть через - F10
Шагнуть из - Shift + F11
Идти до курсора - Shift + F10
Установить/снять точку останова - F9
Отключить/включить точку останова - Ctrl + Shift + F9
Список точек останова - Alt + F9
Вычислить выражение - Shift + F9
Открыть табло - Ctrl + Alt + W
Открыть стек вызовов - Ctrl + Alt + C

Редактор картинок
Переключение картинка/коллекция - Ctrl + K
Параметры картинки/коллекции - Shift + Alt + P
Отразить слева направо - Ctrl + H
Отразить сверху вниз - Ctrl + Shift + H
Выделение прямоугольником - Shift + Alt + S
Масштаб - Ctrl + M
Ластик - Ctrl + Shift + E
Заливка - Ctrl + Shift + F
Карандаш - Ctrl + Shift + I
Кисть - Ctrl + Shift + B
Линия - Ctrl + Shift + L
Кривая - Shift + Alt + С
Аэрограф - Ctrl + Shift + A
Текст - Shift + Alt + T
Увеличение масштаба - Ctrl + Num+
Уменьшение масштаба - Ctrl + Num-

Палитра свойств
Сохранить свойства - Enter
Восстановить значения свойства - Esc
Раскрыть категорию свойств - Num+
Закрыть категорию свойств - Num-
Перейти в начало палитры - Home
Перейти в конец палитры - End
Перейти к предыдущему свойству - Up
Перейти к следующему свойству - Down
Прокрутить на страницу вверх - PgUp
Прокрутить на страницу вниз - PgDn
Перейти к предыдущей категории - Ctrl + PgUp
Перейти к следующей категории - Ctrl + PgDn

Редактор карты маршрута
Перейти на следующий элемент карты - Tab
Перейти на предыдущий элемент карты - Shift + Tab
Уменьшить ширину элемента карты - Shift + (Left)
Увеличить ширину элемента карты - Shift + (Right)
Уменьшить высоту элемента карты - Shift + (Up)
Увеличить высоту элемента карты - Shift + (Down)
Перемещение выделенного варианта вверх (только при выделенном варианте в - Ctrl + (Up)
элементе "Выбор варианта")
Перемещение выделенного варианта вниз (только при выделенном варианте в - Ctrl + (Down)
элементе "Выбор варианта")
Поиск - Ctrl + F
Найти следующий - F3
Найти предыдущий - Shift + F3
Замена - Ctrl + H

Конфигурация
Открыть конфигурацию - Alt + К + Enter
Поиск во всех текстах - Alt + К + Т
Объединение конфигураций - Alt + К + О
Загрузить измененную конфигурацию - Alt + K + З
Конвертирование данных - Alt + К + Е

Администрирование
Пользователи - Alt + А + П
Сохранить данные - Alt + А + Х
Восстановить данные - Alt + А + В
Выгрузить данные - Alt + А + Ы
Загрузить данные - Alt + А + Г
Настройка журнала регистрации - Alt + А + Н
Распределенная ИБ - Alt + А + Р
Управление - Alt + А + Р + У
Автообмен - Alt + А + Р + А

Действия
Открыть в отладчике - Alt + Д + Т
Синтаксический контроль запросов - Alt + Д + К
Синтаксический контроль - Alt + Д + И
Процедуры и функции модуля - Alt + Д + Р

Файл
Новый - Ctrl + N
Открыть - Ctrl + O
Сохранить - Ctrl + S
Печать - Ctrl + P
Сравнить файлы - Alt + Ф + Р
Закрыть - Alt + Ф + З
Просмотр - Alt + Ф + Р + Р + Enter
Параметры страницы - Alt + Ф + М

Работа с закладками
Предыдущая закладка - Shift + F2
Закладка - Alt + F2
Следующая закладка - F2

Работа с блоком
Форматировать - Ctrl + Shift +F
Сдвинуть вправо - Tab
Сдвинуть влево - Shift + Tab
Добавить комментарий - Ctrl + Num /
Удалить комментарий - Ctrl + Shift + Num /

Окна
Закрыть окно - Ctrl + F4
Следующее окно - Ctrl + Shift + F6
Предыдущее окно - Ctrl + F6
Каскадом - Alt + О + К
Закрыть окно сообщений - Ctrl + Shift + z
Следующая страница - Ctrl + Alt + F
Предыдущая страница - Ctrl + Alt + B
Разделить окно - Alt + О + Р

Поиск и замена
Заменить - Ctrl + Shift + F3
Искать - Ctrl + F3
Повторить поиск - F3
Искать назад - Alt + F3
Искать вперед - Shift + F3
Переход к строке - Ctrl + Shift + L

Сервис
Калькулятор - Ctrl + F2
Синтаксис помощник - Alt + С + С
Настройка шаблонов - Alt + С + Н
Временная блокировка - Alt + С + В
Запуск предприятия - F11
Запуск отладчика - F12

Помощь
Помощь - F1
Содержание - Shift + F1
Поиск в Синтакс-Помощнике - Ctrl + F1
О программе - Alt + П + О

Общие
Свойства - Alt + Enter
Выход - Alt + F4

Категория: 1С Общие вопросы - Обычные формы

Ускорение поиска в таблице значений - Индексы

Для более быстрого поиска в базах данных было придумано свойство индекс. При использовании таблиц значений мы также можем создавать индексы для произвольных колонок.
Например, у нас есть таблица с колонками «Номенклатура, Цена, ЕдиницаИзмерения». И если мы часто ищем в таблице строки с какой-то номенклатурой, то лучше эту колонку проиндексировать и тогда программа не будет каждый раз перебирать все строки, а будет использовать индекс.
Чтобы создать индекс применяется метод «Индекс», в параметрах которого передается строка в которой перечисляются индексируемые колонки.

Код 1C v 8.х

 НоваяТЗ.Индексы.Добавить("Номенклатура");

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

Код 1C v 8.х

 НоваяТЗ.Индексы.Добавить("Номенклатура, ЕдиницаИзмерения");

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

А для поиска в таблице значений существует два специальных метода: первый Найти

Код 1C v 8.х

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

НайденнаяСтрока = ТЗНоменклатуры.Найти(ТелевизорГоризонт);

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

НайденнаяСтрока = ТЗНоменклатуры.Найти(ТелевизорГоризонт, "Номенклатура");

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

Код 1C v 8.х

 СтруктураОтбора = Новый Структура;

СтруктураОтбора.Вставить("Номенклатура", ТелевизорГоризонт); // сначала указываем колонку где искать, а потом что искать.

НайденныйМассивСтрок = ТЗНоменклатуры.НайтиСтроки(СтруктураОтбора);

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

Чем ещё хорош этот метод, так это то, что он может искать сразу по нескольким колонкам таблицы значений одновременно:

Код 1C v 8.х

 СтруктураОтбора = Новый Структура;

СтруктураОтбора.Вставить("Номенклатура", ТелевизорГоризонт);

СтруктураОтбора.Вставить("Количество", 10);

НайденныйМассивСтрок = ТЗНоменклатуры.НайтиСтроки(СтруктураОтбора);

Единственный минус, как видно, нельзя применять другие виды сравнения кроме как "равно"

Категория: Работа с Таблицей Значений

Как в 1C загрузить из Word текст?

Как в 1C из Microsoft Office Word 2007 внести текст?

Код получения текста из файла word:

Код 1C v 8.х

 Wk = Новый COMОбъект("Word.Application"); 

//Покажем открываемый документ

Wk.Visible = Истина; Wk.Documents.Open("D:\file.doc"); 

Документ = Wk.ActiveDocument();

// перебирая строки выводим текст 

Для н = 1 по Документ.Sentences.Count Цикл

	Текст=Документ.Sentences(н).Text;

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

КонецЦикла;	

Документ.Close(); 

Wk.Quit();

Рассмотрим приёмы получения статистической информации о документе, его составе и т.д.:
'получить общее количество символов в активном документе
' (буквы, цифры, пробелы, переход на новую строку и т.д)
WordApp.ActiveDocument.Characters.Count

'получить символ по его индексу
WordApp.ActiveDocument.Characters(14).Text
'изменить символ по его индексу
WordApp.ActiveDocument.Characters(14).Text="е" 'можно несколько "еёе"

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

'получаем количество слов в документе
'(переход на новую строку считается словом)
DocWord.Words.Count

'получить слово по его индексу
DocWord.Words(2).Text
'изменить слово по его индексу
DocWord.Words(2).Text="текст" 'можно несколько слов "Новый текст"

'получить количество параграфов (абзацев) в документе
WordApp.ActiveDocument.Paragraphs.Count

'получить текст параграфа по его индексу
WordApp.ActiveDocument.Paragraphs(2).Range.Text
'изменить текст параграфа по его индексу
WordApp.ActiveDocument.Paragraphs(2).Range.Text="Много текста. Много " & _
" предложений. И так далее!"

'получить количество предложений в документе
WordApp.ActiveDocument.Sentences.Count

'получить текст предложения по его индексу
WordApp.ActiveDocument.Sentences(1).Text

'получить количество предложений во втором параграфе
WordApp.ActiveDocument.Paragraphs(2).Range.Sentences.Count

'получить текст предложения 1 в параграфе 2
WordApp.ActiveDocument.Paragraphs(2).Range.Sentences(1).Text

'получить текст слова 2, в предложении 1,в параграфе 2
WordApp.ActiveDocument.Paragraphs(2).Range.Sentences(1).Words(2).Text

'добавить новую секцию (раздел)
'создаёт новый раздел на новом листе
DocWord.Sections.Add
'создаёт новый раздел на текущем листе
DocWord.Application.S_election.I_nsertBreak (wdSectionBreakContinuous) '(3)

'получить количество секций в документе
DocWord.Sections.Count

'получить текст слова 2, в предложении 1,в параграфе 2, в секции 1.
DocWord.Sections(1).Range.Paragraphs(1).Range.Sentences(1).Words(2).Text

Используя Встроенные_Свойства_Документа получаем его статистические данные.

'получаем количество страниц (листов) в документе
WordApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) '(14)

'получаем количество строк в документе
WordApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyLines) '(23)

'получаем количество слов в документе
WordApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyWords) '(15)

'получаем количество параграфов (абзацев) в документе
WordApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyParas) '(24)
'и т.д.

Рассмотрим примеры кода для передвижения по документу, а также поиска и замены текста.
Метод .GoTo (перейти к) позволяет вам переместиться на нужную позицию в документе. Он при прямом вызове возвращает новую позицию курсора.

'переход на лист с именем "1"
'если не указать в конце .S_elect, то код просто выдаст положение курсора
DocWord.Application.S_election.GoTo(wdGoToPage, , , "1").S_elect

wdGoToSection (0) - перейти к секции ; wdGoToPage (1) - перейти к листу ;
wdGoToTable (2) - перейти к таблице ; wdGoToLine (3) - перейти к строке ;
wdGoToFootnote (4) - перейти к сноске ; wdGoToEndnote (5) - к примечанию ;
wdGoToComment (6) - к комментарию ; wdGoToField (7) - к полю ;
wdGoToHeading (11) - к заголовку ;
wdGoToSpellingError (13) - к орфографической ошибке ;
wdGoToGrammaticalError (14) - к грамматической ошибке.

'переход на лист с индексом 1
DocWord.Application.S_election.GoTo(3, , 1, "").S_elect

'переход в начало строки с индексом 1
DocWord.Application.S_election.GoTo(3, , 1, "").S_elect

'переход в начало следующей строки (аналогично текущий_индекс+1)
DocWord.Application.S_election.GoTo(3, wdGoToNext, 1, "").S_elect

wdGoToNext (2) - на следующий ; wdGoToPrevious (3) - на предыдущий.

Поиск и замена:
'находим первое вхождение текста и выделяем его
WordApp.Application.S_election.Find.Text = "строка"
WordApp.Application.S_election.Find.Execute

'находим первое вхождение текста
WordApp.Application.S_election.Find.Text = "строка"
' и заменяем только его
WordApp.Application.S_election.Find.Replacement.Text = "1 строчка"
WordApp.Application.S_election.Find.Wrap = wdFindContinue
WordApp.Application.S_election.Find.Execute Replace:= wdReplaceOne '(1)

'или тоже самое, но другим способом (при повторном выполнении кода, заменится следующее слово)
WordApp.ActiveDocument.Content.Find.Execute _
FindText:="текста", ReplaceWith:="hello", Replace:= wdReplaceOne '(1)

Для замены всех вхождений текста применяйте wdReplaceAll (2).

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

Подбор из справочника на основе управляемых форм

В данной статье рассматривается технология реализации подбора на платформе 1С 8.2. Статья не претендует на академизм, просто столкнувшись с рядом проблем и не нашедшим «правильной» методологии решения (возможно плохо искал), решил пройти этот путь самостоятельно, естественно пользуясь различными источниками. В основном я опираюсь на материалы мастер-групп Базового курса «Профессиональное программирование в 1С» Евгения Гилева и Насипова Фарита, участником которого я являюсь, а также соответствующей литературы (М.Г. Радченко, Е.Ю. Хрусталева Практическое пособие разработчика).

Итак, предметная область: компания занимается оптовой торговлей товарами имеющими срок годности, который относится к серии, а та в свою очередь принадлежит конкретному товару. Товары поступают на разные склады. Задача: реализовать удобное заполнение табличной части расходного документа. Решение: необходимо реализовать форму подбора, обеспечивающею просмотр остатков товара по срокам годности, возможность выбора соответствующих позиций и последующий перенос в табличную часть документа. Задачи такого плана встречаются в 5 части сборника задач к подготовке экзамена по Специалисту.

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

Настраиваем запрос для реквизита Товары. Здесь по идее все просто с помощью конструктора берем два справочника и виртуальную таблицу Остатков регистра Остатки товара. Если нужно видеть весь товар, то используем левое соединение Товаров с остальными источниками, если только с остатками, то полное соединение с регистром:

Код 1C v 8.2 УП

 ВЫБРАТЬ



               Товары.Ссылка КАК Товар,



               Серии.Ссылка КАК Серия,



               Серии.СрокГодности,



               ЕСТЬNULL(ТоварыНаСкладеОстатки.КоличествоОстаток, 0) КАК Количество



ИЗ



               Справочник.Товары КАК Товары



                               ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Серии КАК Серии



                               ПО (Серии.Владелец.Ссылка = Товары.Ссылка)



                               ПОЛНОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладе.Остатки(, Склад = &Склад) КАК ТоварыНаСкладеОстатки



                               ПО (ТоварыНаСкладеОстатки.Товар = Товары.Ссылка)



УПОРЯДОЧИТЬ ПО



               Товар,



               СрокГодности

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

И так, возвращаемся в нормальное русло решение задачи.

В разработанной форме я добавил параметр Склад с целью отбора остатков.

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

Код 1C v 8.2 УП

 

&НаКлиенте



Процедура Подбор(Команда)



                ПараметрыПодбора = Новый Структура("ЗакрыватьПриВыборе, МножественныйВыбор, Склад", Ложь, Истина, Объект.Склад);



                ОткрытьФорму("Документ.ПродажаТоваров.Форма.ФормаПодбора", ПараметрыПодбора, Элементы.Товары);



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

Соответственно в форме подбора при создании заполняем параметр запроса склад из параметров формы:

Код 1C v 8.2 УП

 &НаСервере



Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)



               Товары.Параметры.УстановитьЗначениеПараметра("Склад",Параметры.Склад);



               Склад = Параметры.Склад;



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

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

Код 1C v 8.2 УП

 &НаКлиенте



Процедура ТоварыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)



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



               Для каждого НомерСтроки Из ВыбраннаяСтрока Цикл



                               ТекСтрока = Элемент.ДанныеСтроки(НомерСтроки);



                               Поиск = Новый Структура("Товар, Серия",ТекСтрока.Товар,ТекСтрока.Серия);



                               МассивСтрок = ВыбранныеТовары.НайтиСтроки(Поиск);



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



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



                                               Строка.Товар = ТекСтрока.Товар;



                                               Строка.Серия = ТекСтрока.Серия;



                                               Строка.СрокГодности = ТекСтрока.СрокГодности;



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



                                               ВвестиЧисло(Строка.Количество, "Введите количество");



                                               Пока  Строка.Количество > ТекСтрока.Количество Цикл



                                                              ВвестиЧисло(Строка.Количество, "Введите верное количество!");



                                               КонецЦикла;



                               КонецЕсли;



               КонецЦикла;



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

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

Для реализации перетаскивания необходимо проверить настройку следующих параметров: Для таблицы Товары - РазрешитьНачалоПеретаскивания, для Выбранные товары - РазрешитьПеретаскивание.

Так же необходимо создать обработчик события Перетаскивание для элемента формы ВыбранныеТовары.

Код 1C v 8.2 УП

 &НаКлиенте



Процедура ВыбранныеТоварыПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)



               Для каждого НомерСтроки Из ПараметрыПеретаскивания.Значение Цикл



                               ТекСтрока = Элементы.Товары.ДанныеСтроки(НомерСтроки);



                               Поиск = Новый Структура("Товар, Серия",ТекСтрока.Товар,ТекСтрока.Серия);



                               МассивСтрок = ВыбранныеТовары.НайтиСтроки(Поиск);



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



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



                                               Строка.Товар = ТекСтрока.Товар;



                                               Строка.Серия = ТекСтрока.Серия;



                                               Строка.СрокГодности = ТекСтрока.СрокГодности;



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



                                               ВвестиЧисло(Строка.Количество, "Введите количество");



                                               Пока  Строка.Количество > ТекСтрока.Количество Цикл



                                                              ВвестиЧисло(Строка.Количество, "Введите верное количество!");



                                               КонецЦикла;



                               КонецЕсли;



               КонецЦикла;



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

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

На рисунке приведен внешний вид формы подбора:
title

Для завершения подбора создана команда формы, с обработчиком, выполняющим оповещение о выборе:

Код 1C v 8.2 УП

 &НаКлиенте



Процедура Перенести(Команда)



               ОповеститьОВыборе(ВыбранныеТовары);



               Закрыть();



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

Соответственно, в форме документа реализован обработчик события ОбработкаВыбора:

Код 1C v 8.2 УП

 &НаКлиенте



Процедура ТоварыОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)



               Если ВыбранноеЗначение.Количество() > 0 И Объект.Товары.Количество() > 0 Тогда



                               Режим = РежимДиалогаВопрос.ДаНет;



                               Текст = "Очистить табличную часть?";



                               Ответ = Вопрос(Текст, Режим, 0);   



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



                                                Объект.Товары.Очистить();



                               КонецЕсли;



               КонецЕсли;



               Для каждого Подбор Из ВыбранноеЗначение Цикл



                               Строка = Объект.Товары.Добавить();



                               Строка.Товар = Подбор.Товар;



                               Строка.Серия = Подбор.Серия;



                               Строка.Количество = Подбор.Количество;



               КонецЦикла;



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

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

В целом хочется еще раз подчеркнуть, что целью данной статьи не является проповедование истины, а просто поделится полученной информацией. Буду благодарен за конструктивные советы и рекомендации, так как тема управляемых форм достаточно новая, но похоже надолго, и ряд вопросов (особенности работы с произвольными запросами) требует дополнительной информации.
Автор: User67

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

Перемещение между документами в списке

Код 1C v 8.х

 //black_doctor, надеюсь комунить пригодиться механизм 

//

//В примере описан механизм перехода между документами одного типа

//функции помещаються в общие , ну и от туда работают, для любого  документа 

//в качестве входящих параметров задаем ссылку на документ и ссылку на  текущую форму 



Процедура СледующийНажатие(док,ТекФорма) Экспорт

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

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

  | ОперацииЦБ.Ссылка КАК Ссылка

  |ИЗ

  | ";

  Запрос.Текст = Запрос.Текст+"Документ."+Док.ссылка.Метаданные().Имя+" 

КАК ОперацииЦБ

  |ГДЕ

  | ОперацииЦБ.МоментВремени > &МоментВремени

  |

  |УПОРЯДОЧИТЬ ПО

  | ОперацииЦБ.МоментВремени";

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

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

 Если Результат.Количество()>0 тогда

 Формочка = Результат[0].Ссылка.ПолучитьОбъект().ПолучитьФорму();

 Формочка.ПоложениеОкна = ТекФорма.ПоложениеОкна;

 ТекФорма.Закрыть();

 Формочка.Открыть();

 Иначе Сообщить("Этот документ первый в списке документов",СтатусСообщения.Внимание);

 КонецЕсли;

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



Процедура ПредыдущийНажатие(док,ТекФорма) Экспорт

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

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

  | ОперацииЦБ.Ссылка КАК Ссылка

  |ИЗ

  | ";

  Запрос.Текст = Запрос.Текст+"Документ."+Док.ссылка.Метаданные().Имя+" 

КАК ОперацииЦБ

  |ГДЕ

  | ОперацииЦБ.МоментВремени < &МоментВремени

  |

  |УПОРЯДОЧИТЬ ПО

  | ОперацииЦБ.МоментВремени УБЫВ";

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

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

 Если Результат.Количество()>0 тогда

 Формочка = Результат[0].Ссылка.ПолучитьОбъект().ПолучитьФорму();

 Формочка.ПоложениеОкна = ТекФорма.ПоложениеОкна;

 ТекФорма.Закрыть();

 Формочка.Открыть();

 Иначе Сообщить("Этот документ первый в списке документов",СтатусСообщения.Внимание);

 КонецЕсли;

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

Категория: Список Справочника, Документов, Регистров

Планирование отпусков в 1С:ЗУП

Грамотно построить работу и распланировать рабочее время сотрудников – задача не из легких, особенно в «горячую» пору очередных отпусков, ведь нужно сделать все необходимое, чтобы отсутствие «ценных кадров» никоим образом не отразилось на деятельности вашей организации. В этой статье мы затронем вопрос планирования отпусков персонала в программе «1С:Зарплата и Управление Персоналом 8.1».

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

В графе «Состояние» есть два варианта: «Утвержден» или «Не утвержден».

Проведение документа

При проведении документа производится проверка непротиворечивости получающегося графика.

После проведения можно открыть меню «Персонал» - «Отпуска» - «График отпусков». Перед вами появится табличное поле со всеми введенными отпусками.
title

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

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

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

- При начале работы с механизмом остатков отпусков;
- Для ускорения времени проведения документов и формирования отчетов.

Начало работы с механизмом остатков отпусков

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

1. Ввести остатки за год, являющийся предыдущим по отношению к тому году, с которого в программе введены фактические отпуска. Если данных об остатках нет, можно считать, что остатки нулевые, и ввести в качестве остатков нулевые остатки;
2. Заполнить регламентированный производственный календарь за все года, начиная с того года, с которого в программе введены фактические отпуска;
3. Перепровести документы фактических отпусков, чтобы программа посчитала количество дней, использованных каждым фактическим отпуском.

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

Ускорение времени проведения документов и формирования отчетов

Если в процессе эксплуатации механизма медленнее проводятся документы или формируются отчеты по отпускам, заполнение справочника поможет решить эту проблему. Программа будет рассчитывать остатки каждого сотрудника не с даты приема на работу, а только для тех рабочих лет, для которых нет записей в справочнике остатков. Заполнять справочник можно вручную, вызовом команды заполнения или автоматически, настроив регламентное задание. Функция заполнения остатков заполняет остатки для тех рабочих лет, для которых еще не введены остатки в справочнике. Функция «Рассчитать» в форме редактирования остатков по сотруднику рассчитает остатки автоматически с даты приема сотрудника на работу, используя данные о фактических отпусках, введенных в программу и проигнорировав все остатки, введенные вручную. Увидеть информацию об актуальных остатках по сотрудникам можно из карточки сотрудника.

Также из окна «График отпусков» можно ввести дополнительные дни отпуска, нажав кнопку «Дополнительные дни отпуска». Документ предназначен для ввода дополнительных дней управленческого отпуска, обычно называемых «отгулами». Документ позволяет ввести дополнительные дни управленческого отпуска списку сотрудников. Дни отпуска записываются на дату документа. По каждому отпуску можно ввести примечание. Это примечание будет выводиться в справке по отпуску, которую можно открыть из обработки «График отпусков».

И последнее меню, которое можно вызвать из таблицы - это «Отчет по отпускам».

Отчет предоставляет возможность сформировать разнообразные списки отпусков и графики отпусков сотрудников, как по регламентированному учету, так и по управленческому учету. Данные списки можно формировать в разрезе подразделений и должностей организации и предприятия (режим формирования отчета), а также выбрать отпуска только руководителей. В отчете содержатся варианты, которые позволяют получить различные сведения об отпусках, не прибегая к дополнительным настройкам отчета. Вариант отчета «График отпусков» предназначен для вывода графика отпусков по данным управленческого и регламентированного учетов. В отчет попадают также и неутвержденные графики отпусков. Вариант отчета «Отпуска» предназначен для контроля исполнения графика отпусков. Вариант отчета «Отпуска руководителей» предназначен для вывода графика отпусков руководителей организации или предприятия. Вариант отчета «Фактические отпуска» предназначен для вывода фактических отпусков работников по данным управленческого и регламентированного учетов. В отчет попадают утвержденные отпуска.

Юлия Кокорева

Категория: 1С Зарплата и Управление Персоналом 2.5

Сохранить файл на диске полученный из реквизита типа хранилище значения

Код 1C v 8.х

 // Параметры

//  Хранилище    – ХранилищеЗначения, которое содержит объект типа 

//                 ДвоичныеДанные с файлом для записи на диск.

//  ИмяФайла     – Строка, содержащая полное имя файла.

//  ТолькоЧтение – Булево, признак установки записываемому файлу атрибута ТолькоЧтение.

//  СпособПерезаписи – Строка. Параметр определеляет способ перезаписи существующих

//                 файлов на диске. В зависимости от пришедшего параметра выдается или

//                 не выдается запрос на перезапись файлов. Может устанавливаться в теле

//                 функции, если это необходимо. Принимаемые значения:

//                 "" (пустая строка) - это означает, что диалог еще ни разу не задавался

//                 и при наличии существующего файла будет выдан диалог запроса перезаписи.

//                 ДА - предыдущий файл был перезаписан, но перезапись текущего надо 

//                 запросить снова

//                 НЕТ - предыдущий файл не был перезаписан, но перезапись текущего надо 

//                 запросить снова

//                 ДАДЛЯВСЕХ - предыдущий файл был перезаписан, и все последующие тоже 

//                 надо перезаписывать.

//                 НЕТДЛЯВСЕХ - предыдущий файл не был перезаписан, и все последующие тоже 

//                 не надо перезаписывать.

//

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

//   Булево – Истина, если каталог выбран, Ложь, если нет.

//

Функция СохранитьФайлНаДиске(Хранилище, ИмяФайла, ТолькоЧтение, СпособПерезаписи, ВопросОПерезаписи = Истина, ИмяСправочника = "удХранилище") Экспорт



	Попытка



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

		КаталогНаДиске = Новый Файл(ФайлНаДиске.Путь);



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

			СоздатьКаталог(ФайлНаДиске.Путь);

		КонецЕсли;



		Если ФайлНаДиске.Существует() И ВопросОПерезаписи = Истина Тогда



			Если СпособПерезаписи = ""

			 ИЛИ Врег(СпособПерезаписи) = "ДА"

			 ИЛИ Врег(СпособПерезаписи) = "НЕТ" Тогда



				ФормаЗапросаПерезаписиФайлов = Справочники[ИмяСправочника].ПолучитьФорму("ФормаЗапросаПерезаписиФайлов");

				ФормаЗапросаПерезаписиФайлов.ТекстПредупреждения = 

				    "На локальном диске уже существует файл:

				    |" + ИмяФайла + "

				    |Перезаписать имеющийся файл?";

				СпособПерезаписи = ФормаЗапросаПерезаписиФайлов.ОткрытьМодально();



				Если СпособПерезаписи = Неопределено

				 ИЛИ Врег(СпособПерезаписи) = "НЕТ"

				 ИЛИ Врег(СпособПерезаписи) = "НЕТДЛЯВСЕХ" Тогда

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

				КонецЕсли;



			ИначеЕсли Врег(СпособПерезаписи) = "НЕТДЛЯВСЕХ" Тогда



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



			КонецЕсли;



			// Если существующему файлу установлено ТолькоЧтение, отменим эту установку.

			Если ФайлНаДиске.ПолучитьТолькоЧтение() Тогда

				ФайлНаДиске.УстановитьТолькоЧтение(Ложь);

			КонецЕсли;



		КонецЕсли;



		// Остались случаи когда:

		// - пользователь ответил Да или ДаДляВсех в текущем диалоге

		// - способ перезаписи уже пришел со значением ДаДляВсех

		Если ТипЗнч(Хранилище) <> Тип("ДвоичныеДанные") Тогда

			ДвоичныеДанные = Хранилище.Получить();

		Иначе

			ДвоичныеДанные = Хранилище;

		КонецЕсли; 

		ДвоичныеДанные.Записать(ИмяФайла);

		ФайлНаДиске.УстановитьТолькоЧтение(ТолькоЧтение);



	Исключение



		Предупреждение(ОписаниеОшибки());

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



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



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



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

Категория: Работа с Хранилищем Значений