сохранении » Поиск

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

Как обновить форму списка из формы элемента? Категория: Работа с Формой (Диалог) и её элементами

Как сделать резервную копию информационной базы 1С?

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

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

Самый простой способ сделать резервную копию базы данных 1С или всех ваших баз данных

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

Путь к каталогу с базой вы увидите внизу окна запуска 1С.

Всю эту директорию заархивируйте архиватором zip или другим. И скопируйте в укромное местечко.

Что бы сделать резервную копию базы 1С стандартными стредствами нужно:

1). Запустить «Конфигуратор».

2). В главном меню выбрать «Администрирование» - «Выгрузить информационную базу».

3). При сохранении базы – указать куда её сохранить (лучше на флэшку или сервер) и указать имя файла резервной копии (например «База 1С_2014_01_07»).

Резервную копию базы 1С в небольшой организации необходимо делать хотя бы 1 раз в неделю. В лучшем случае 1 раз в день;
Желательно резервную копию делать на флэшку или другой компьютер;
Лучше всего делать копии в одно и то же время (в начале или в конце рабочего дня). Это позволяет не забывать об этом;
Если есть возможность одновременно хранить несколько резервных копий базы 1С (например, 5 копий), то это ещё лучше.

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

Дерево значений в таблицу значений или в табличную часть и обратно

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

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

Для реализации такого механизма в ТЧ был добавлен реквизит “КлючСвязи” (обязательный реквизит) с типом число, куда помещался “НомерСтроки” (стандартный реквизит ТЧ) родителя (верхний уровень). А самый верхний элемент дерева имеет “КлючСвязи” равный 0.

На картинке ниже видно структуру дерева и структуру ТЧ

Нагрузка на сервер осуществляется при окрытии и при сохранении документа. А с деревом работают уже на клиенте.

На рабочей базе обрабатывается около 200 строк в одном документе.

Открытие и сохранение документа происходит моментально. С большем количеством строк не тестировалось.

Чтобы алгорит правильно работал, у рекизита фомы с типом дерево значений должны быть все реквизиты табличной части, кроме “КлючСвязи” и “НомерСтроки”. Иначе платформа выдаст ошибку. В дерево можо добавлять свои реквизиты отличные от ТЧ, они будут использоваться только в дереве.

Ниже приведен код преобразования дерева в таблицу и обратно.

Код 1C v 8.2 УП

 &НаКлиенте

Процедура КомандаТаблицуВДерево(Команда)

	КомандаТаблицуВДеревоНаСервере();

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





&НаСервере

Процедура КомандаТаблицуВДеревоНаСервере()

	Дерево = ТаблицаВДерево(РеквизитФормыВЗначение("Объект"), "Товары");//Товары - имя табличной части

	ЗначениеВРеквизитФормы(Дерево, "ДеревоЗначений");//ДеревоЗначений - реквизит формы с типом дерево значений

	Элементы.ДеревоЗначений.Обновить();

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





&НаКлиенте

Процедура КомандаДеревоВТаблицу(Команда)

	КомандаДеревоВТаблицуНаСервере();

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





&НаСервере

Процедура КомандаДеревоВТаблицуНаСервере()

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

	ДОбъект = РеквизитФормыВЗначение("Объект");

	ДеревоВТаблицу(ДОбъект, РеквизитФормыВЗначение("ДеревоЗначений"), "Товары");

	ЗначениеВРеквизитФормы(ДОбъект, "Объект");

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

Формирование дерева из таблицы значений

Код 1C v 8.2 УП

 //ФОРМИРОВАНИЕ ДЕРЕВА ИЗ ТАБЛИЦЫ

&НаСервере

Функция ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, КлючСвязи = NULL, ЭлементРодитель = NULL) Экспорт	

	//ПОДГОТОВКА КОЛОНОК ДЕРЕВА

	КолонкиТаблицы = ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты;

	ДеревоЗначений2 = Новый ДеревоЗначений;

	Для каждого Кол из КолонкиТаблицы Цикл

		Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда

			Продолжить;

		Иначе

			ДеревоЗначений2.Колонки.Добавить(Кол.Имя, Новый ОписаниеТипов(Кол.Тип));

		КонецЕсли;

	КонецЦикла;//ДеревоЗначений.Строки.Очистить();

	

	Если КлючСвязи = NULL И ЭлементРодитель = NULL Тогда

		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)

		ИсточникВыборки = ДеревоЗначений2.Строки;

		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)

	Иначе

		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)

		ИсточникВыборки = ЭлементРодитель.Строки;

	КонецЕсли;

	Фильтр = Новый Структура("КлючСвязи", КлючСвязи);

	М = ДокОбъект[НаименованиеТабличнойЧастиДокумента].НайтиСтроки(Фильтр);

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

		Возврат ДеревоЗначений2;

	КонецЕсли;

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

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

		Для каждого Кол из КолонкиТаблицы Цикл

			Если Кол.Имя = "НомерСтроки" ИЛИ Кол.Имя = "КлючСвязи" Тогда

				Продолжить;

			Иначе

				Элемент[Кол.Имя] = Стр[Кол.Имя];

			КонецЕсли;

		КонецЦикла;

		ТаблицаВДерево(ДокОбъект, НаименованиеТабличнойЧастиДокумента, Стр.НомерСтроки, Элемент); //ДОБАВЛЕНИЕ ПОДЧИНЁННЫХ ЭЛЕМЕНТОВ В ДЕРЕВО

	КонецЦикла;

	Возврат ДеревоЗначений2;

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

Формирование таблицы из дерева

Код 1C v 8.2 УП

 //ФОРМИРОВАНИЕ ТАБЛИЦЫ ИЗ ДЕРЕВА

&НаСервере

Процедура ДеревоВТаблицу(ДокОбъект, ДеревоЗначений, НаименованиеТабличнойЧастиДокумента, СтрокаДерева = NULL, КлючСвязи = NULL) Экспорт

	Если СтрокаДерева = NULL И КлючСвязи = NULL Тогда

		//ПЕРВЫЙ ВЫЗОВ ПРОЦЕДУРЫ (КОРНЕВЫЕ ЭЛЕМЕНТЫ)

		ПервыйВызов = Истина;

		ДокОбъект[НаименованиеТабличнойЧастиДокумента].Очистить();

		ИсточникВыборки = ДеревоЗначений.Строки;

		КлючСвязи = 0; // ЭЛЕМЕНТ ВЕРХНЕГО УРОВНЯ ИМЕЕТ НОМЕР СТРОКИ РОДИТЕЛЯ 0 (ОБЯЗАТЕЛЬНЫЙ РЕКВИЗИТ)

	Иначе

		//ВНУТРЕННИЙ ВЫЗОВ ПРОЦЕДУРЫ (ПОДЧИНЕННЫЕ ЭЛЕМЕНТЫ)

		ПервыйВызов = Ложь;

		ИсточникВыборки = СтрокаДерева.Строки;

	КонецЕсли;

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

		НС = ДокОбъект[НаименованиеТабличнойЧастиДокумента].Добавить();

		Для каждого Кол из ДокОбъект.Метаданные().ТабличныеЧасти[НаименованиеТабличнойЧастиДокумента].Реквизиты Цикл

			Если Кол.Имя = "КлючСвязи" Тогда

				НС.КлючСвязи = КлючСвязи

			ИначеЕсли Кол.Имя = "НомерСтроки" Тогда

				Продолжить;

			Иначе 

				НС[Кол.Имя] = Стр[Кол.Имя];

			КонецЕсли;

		КонецЦикла;

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

			ДеревоВТаблицу(ДокОбъект,,НаименованиеТабличнойЧастиДокумента, Стр, НС.НомерСтроки);

		КонецЕсли;

	КонецЦикла;

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

Категория: Работа с Деревом Значений

Обработка "Универсальные подбор и обработка объектов" Категория: 1С Общие вопросы - Обычные формы

Как подключить Внешние печатные формы? Категория: Внешние печатные формы, отчеты и обработк�…

Установка полей и масштаба документа при сохранении из 1С

MS Excel

Код 1C v 8.х

 Попытка

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

Исключение

    Сообщить("ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа!

    | - " + ОписаниеОшибки(), СтатусСообщения.ОченьВажное);

    Возврат;

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



ТабДокумент = ПечатьЦенника(ВидЦенника);

ИмяФайла = ПутьДляСохранения+"\"+ТабДокумент.ИспользуемоеИмяФайла+".xls";

ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

   

МакетОформления = Неопределено;

// Откроем табличный документ



Excel.Workbooks.Open(ИмяФайла);

КнигаExcel = Excel.Workbooks.Item(Excel.Workbooks.Count);



ЛистExcel = КнигаExcel.WorkSheets.Item(1);



КнигаExcel.Activate();

ЛистExcel.Activate();



//Установка полей

//Значение - points. Придется делать пересчет (100 points = 3.8 inches)

ЛистExcel.PageSetup.LeftMargin   = 28;

ЛистExcel.PageSetup.RightMargin  = 28;

ЛистExcel.PageSetup.TopMargin    = 25;

ЛистExcel.PageSetup.BottomMargin = 25;



//Установка ориентации

Если ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт Тогда

    ЛистExcel.PageSetup.Orientation = 2;

Иначе

    ЛистExcel.PageSetup.Orientation = 1;

КонецЕсли;

   

//Установка масштаба печати

ЛистExcel.PageSetup.Zoom = ТабДокумент.МасштабПечати;



//Сохранение в Мои документы

КнигаExcel.Save();

   

//Покажем книгу на экран

Excel.Visible = 1;

   

//Отключаем COM - соединение

Excel.Quit();

OpenOffice Calc

Код 1C v 8.х

 Попытка

   СервисМанагер = Новый  COMОбъект("Com.Sun.Star.ServiceManager");

Исключение

   Сообщить("Не могу создать объект Open Office!

   | - " + ОписаниеОшибки(), СтатусСообщения.ОченьВажное);   

   Возврат;

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

   

ТабДокумент = ПечатьЦенника(ВидЦенника);



ИмяФайла = ПутьДляСохранения+"\"+ТабДокумент.ИспользуемоеИмяФайла+".xls";

ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);

      

МакетОформления = Неопределено;

// Откроем табличный документ

Скрипт = новый COMОбъект("MSScriptControl.ScriptControl");

   Скрипт.language = "javascript";

   Скрипт.eval("Massiv=new Array()");             

   Массив = Скрипт.eval("Massiv");

   Скрипт.AddObject("СервисМанагер",СервисМанагер);

   Скрипт.eval("Massiv[0]=СервисМанагер.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");

   Скрипт.eval("Massiv[0].Name='Hidden'");

   Скрипт.eval("Massiv[0].Value=true");

Стол = СервисМанагер.createInstance("com.sun.star.frame.Desktop");

ВремПуть = СтрЗаменить(ПутьДляСохранения, "\", "/");

ВремПуть = СтрЗаменить(ВремПуть, " ", "%20");

УРЛ = "file:///"+ВремПуть+"/"+ТабДокумент.ИспользуемоеИмяФайла+".xls";



Документ = Стол.LoadComponentFromURL(УРЛ,"_blank",0,Массив);

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

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



Листы=Документ.getSheets();

ЛистДанные=Листы.getByIndex(0);



СтилиСтраницы=Документ.StyleFamilies.getByName("PageStyles");

ПараметрыСтраницы=СтилиСтраницы.getByName(ЛистДанные.PageStyle);



//Установка полей

ПараметрыСтраницы.LeftMargin   = ТабДокумент.ПолеСлева  * 100;

ПараметрыСтраницы.RightMargin  = ТабДокумент.ПолеСправа * 100;

ПараметрыСтраницы.TopMargin    = ТабДокумент.ПолеСверху * 100;

ПараметрыСтраницы.BottomMargin = ТабДокумент.ПолеСнизу  * 100;



//Установка ориентации

Если ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт Тогда

   ПараметрыСтраницы.IsLandscape = Истина;

   ПараметрыСтраницы.Width  = 29700;

   ПараметрыСтраницы.Height = 21000;

Иначе

   ПараметрыСтраницы.IsLandscape = Ложь;

   ПараметрыСтраницы.Width  = 21000;

   ПараметрыСтраницы.Height = 29700;

КонецЕсли;



//Установка масштаба печати

ПараметрыСтраницы.PageScale = ТабДокумент.МасштабПечати;



//Сохранение документа

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

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

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

Документ.Close(Истина);



//Отключаем COM - соединение

Стол.terminate();

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

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