стиль » Поиск

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

Как получить координаты выделенной области на Яндекс Карте?

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

Вид Формы: На карте выделяете объект, нажимаете кнопку Получить координаты выделенной области и заполняется таблица координат

Код инициализации карты и обработчик кнопки получения координат:

Код 1C v 8.х

 Процедура ИнициализироватьКарту()

	

	ПутьКФайлу = КаталогВременныхФайлов()+"yamaps.html";

	Ф = новый Файл(ПутьКФайлу);

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

		УдалитьФайлы(ПутьКФайлу);

	КонецЕсли; 

	

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

	ТД = ЭтотОбъект.ПолучитьМакет("МакетЯндекс");

	Т.УстановитьТекст(ТД.ПолучитьТекст());

	Т.Записать(ПутьКФайлу);

		

	ЭлементыФормы.Эксплорер.Перейти(ПутьКФайлу);

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





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

	ЭлементыФормы.Эксплорер.document.getElementById("WebClientOperation").value = Команда;

	ЭлементыФормы.Эксплорер.document.getElementById("WebClient").click();

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





Процедура ПриОткрытии()

	ИнициализироватьКарту();

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





Процедура ПолучитьКоординатыНажатие(Элемент)

	ВыполнитьСкрипт("GetGEO();");

	ТекКоординаты=ЭлементыФормы.Эксплорер.document.getElementById("geometry").innerText;

	ТекКоординаты=СтрЗаменить(ТекКоординаты,"Координаты: [","");

	МассивСтроки = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(ТекКоординаты, "], [ ");

	Точки.Очистить();

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

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

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

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

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

		симвЗапятой=Найти(Текстр,","); 

		нСтрок.Широта=Лев(Текстр,симвЗапятой-1);

		нСтрок.Долгота=Сред(Текстр,симвЗапятой+2,СтрДлина(Текстр));

	КонецЦикла;	

	//Сообщить(ТекКоординаты);

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

Макет

Код VBS

 <!DOCTYPE html">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>

    <meta http-equiv="X-UA-Compatible" content="IE=9"/>

    <style type="text/css">

	  html { height: 100% }

	  body { height: 100%; margin: 0px; padding: 0px }

	  #map { height: 100% }

	</style>

    <script src="https://api-maps.yandex.ru/2.1/?lang=ru_RU"  type="text/javascript"></script>

	<script src="http://yandex.st/jquery/1.6.4/jquery.min.js" type="text/javascript"></script>	

    <script type="text/javascript">

	var index = 1;

	var MyMap, route;

	var clusterer;

	var PointArray = [];

	var noclick = false;

	

	ymaps.ready(init);

	function init(){  

		myMap = new ymaps.Map ("map", {

			center: [55.75, 37.62],

			zoom: 10

		}),

        polygon = new ymaps.GeoObject({

        geometry: {

            type: "Polygon",

            coordinates: []

        }

  	  });

		myMap.behaviors.enable('scrollZoom');

		myMap.behaviors.disable('dblClickZoom');

			

		myMap.events.add('click', function (e) {

			if (!noclick) {

			//	addMarker(e.get('coords')); 				

			}else{

				noclick = false;

			}

		});

		

		myMap.events.add('drag end', function (e) {

			noclick = true;			

			document.getElementById('CoordX').value = "0";

			document.getElementById('CoordY').value = "0";

		});

		

		// создадим кластеризатор и запретим приближать карту при клике на кластеры

		//clusterer = new ymaps.Clusterer({clusterDisableClickZoom: true, synchAdd: true});

		//myMap.geoObjects.add(clusterer);

		

	myMap.geoObjects.add(polygon);

    polygon.editor.startDrawing();

	$('input').attr('disabled', false);

 

            // Обработка нажатия на любую кнопку.

            $('input').click(

                function () {

                    // Отключаем кнопки, чтобы на карту нельзя было

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

                    $('input').attr('disabled', true);

					GetGEO();

                });

	}

	

	function addMarker(coordPosition){

		myPlacemark = new ymaps.Placemark(coordPosition, {

			// Свойства

			// Текст метки

			iconContent: 'Точка'+index

		}, {

			// Опции

			// Иконка метки будет растягиваться под ее контент

			preset: 'islands#blueStretchyIcon'

		});

		myMap.geoObjects.add(myPlacemark);

		

		document.getElementById('CoordX').value = coordPosition[0].toPrecision(15);

		document.getElementById('CoordY').value = coordPosition[1].toPrecision(15);

		index++;

	}

		

	function calcRoute(options){

		ymaps.route(options, {

	        // Опции маршрутизатора

	        mapStateAutoApply: true, // автоматически позиционировать карту

	        avoidTrafficJams: false   // Учитывать пробки

	    }).then(

		    function (router) {

		    route = router;

		        myMap.geoObjects.add(route);

		        

		        //заполняем и сохраняем инфо про маршрут

		        document.getElementById('RouteInfo').value = "Длина маршрута - " + route.getHumanLength() + ". Время - " + route.getHumanJamsTime();

		        

		        //генерация события для перехвата в 1С

		        var evt = document.createEventObject();

  				document.body.fireEvent('ondatasetcomplete', evt);

		    },

		    function (error) {

		        alert("Возникла ошибка: " + error.message);

	    });

	}

	

	function calcLine(options){

		var poly = new ymaps.Polyline(options, {

				hintContent: "Маршрут",

				balloonContent: "Маршрут экспедитора",

				balloonContentHeader: "",

				balloonContentBody: "",

				balloonContentFooter: ""

			}, {

				cursor: "pointer",

				draggable: false,

				hasBalloon: true,

				hasHint: true,

				interactiveZIndex: false,

				opacity: 1,

				openBalloonOnClick: true,

				openEmptyBalloon: false,

				openEmptyHint: false,

				openHintOnHover: true,

				strokeColor: '#E33926',

				strokeOpacity: 0.8,

				strokeStyle: '',

				strokeWidth: 5,

				syncOverlayInit: false,

				visible: true

			});

			myMap.geoObjects.add(poly);	

			myMap.setBounds(poly.geometry.getBounds());

	}

	

	function Reset(){

		// Удаляем все геообъекты на карте

		myMap.geoObjects.removeAll();   		   		

		PointArray = [];

		index = 1;

	}

	

	function ChangeCityMSK(){

		myMap.panTo([55.75, 37.62], {

            flying: 1

        });

	}

	function ChangeCitySPB(){

		myMap.panTo([59.938531, 30.313497], {

            flying: 1

        });

	}

	function ChangeCityKRAS(){

		myMap.panTo([45.04, 38.97], {

            flying: 1

        });

	}

	function ChangePlace(k,d){

		myMap.panTo([k, d], {

            flying: 1

        });

	}





	

	function FindAdres(Adres){

		Reset();

		var myGeocoder = ymaps.geocode(Adres);

		myGeocoder.then(

			function (res){

			var firstGeoObject = res.geoObjects.get(0);

			if(firstGeoObject != null){

				myMap.panTo(

					// Координаты нового центра карты

					firstGeoObject.geometry.getCoordinates(), {

						/* Опции перемещения:

						   разрешить уменьшать и затем увеличивать зум

						   карты при перемещении между точками 

						*/

						flying: true

					}

				);

				

				myPlacemark = new ymaps.Placemark(firstGeoObject.geometry.getCoordinates(), {

					// Свойства

					// Текст метки

					iconContent: Adres

				}, {

					// Опции

					// Иконка метки будет растягиваться под ее контент

					preset: 'islands#blueStretchyIcon'

				});

				myMap.geoObjects.add(myPlacemark);

			}else{

				alert("Ничего не найдено");}

			}

		);

	}

		

	function ReverseSearchAdres(CoordX, CoordY, Adres){

		Reset();

		

		var CoordPosition = [CoordX, CoordY];

		myMap.panTo(

		    // Координаты нового центра карты

		    CoordPosition, {

		        /* Опции перемещения:

		           разрешить уменьшать и затем увеличивать зум

		           карты при перемещении между точками 

		        */

		        flying: true

		    }

		);

		

		myPlacemark = new ymaps.Placemark(CoordPosition, {

			// Свойства

			// Текст метки

			iconContent: Adres

		}, {

			// Опции

			// Иконка метки будет растягиваться под ее контент

			preset: 'islands#blueStretchyIcon'

		});

		myMap.geoObjects.add(myPlacemark);

	}

	

	function addToPointArrayM(CoordX, CoordY, TextC, Text){

	var CoordPosition = [CoordX, CoordY];

	myPlacemark = new ymaps.Placemark(CoordPosition, {

			// Свойства

			// Текст метки

			iconContent: Text

		}, {

			// Опции

			// Иконка метки будет растягиваться под ее контент

			preset: TextC

		});

		myMap.geoObjects.add(myPlacemark);

	}

	

	function addToPointArrayPointOne(CoordX, CoordY, ID, Text){

		var point = new ymaps.GeoObject({

		    geometry: {type: "Point", coordinates: [CoordX, CoordY>,

		    properties: {

		        clusterCaption: ID,

		        iconContent: ID, 

		        hintContent: ID,  

		        balloonContent: Text, 

		        balloonContentBody: Text

		    }

			});

		myMap.geoObjects.add(point);

	}





	function addToPointArray(CoordX, CoordY, ID, Text){

		var point = new ymaps.GeoObject({

		    geometry: {type: "Point", coordinates: [CoordX, CoordY>,

		    properties: {

		        clusterCaption: ID,

		        iconContent: ID, 

		        hintContent: ID,  

		        balloonContent: Text, 

		        balloonContentBody: Text

		    }

			});

		PointArray.push(point);

	}

	

	function drawCluster(){

		clusterer.add(PointArray);

		myMap.geoObjects.add(clusterer);

	}	

	

	function createPolygon(ArrayPoint, Name, color) {

		// Создаем многоугольник

        myPolygon = new ymaps.Polygon([

            // Координаты вершин внешней границы многоугольника.

            ArrayPoint

        ], {

            //Свойства

            hintContent: Name

        }, {

            // Опции.

            // Цвет заливки (зеленый)

            fillColor: color,

            // Цвет границ (синий)

            strokeColor: '#0000FF',

            // Прозрачность (полупрозрачная заливка)

            opacity: 0.6,

            // Ширина линии

            strokeWidth: 5,

            // Стиль линии

            strokeStyle: 'shortdash'

        });

            

        myMap.geoObjects.add(myPolygon);

    }	

    

    function WebClientClick() {

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

    	document.getElementById('CoordX').value = "0";

		document.getElementById('CoordY').value = "0";

    	

    	var WebClientOperation = document.getElementById("WebClientOperation").value;

		//alert(WebClientOperation);

		switch (WebClientOperation) {

        	case "0":   // ничего не делаем

        	   var a = 1; 

        	default:   // запускаем функцию

        	    eval(WebClientOperation);

        }

        document.getElementById('WebClientOperation').value = "0";

	} 

	

function GetGEO(){

polygon.editor.stopEditing(); 

printGeometry(polygon.geometry.getCoordinates());

}

// Выводит массив координат геообъекта в <div id="geometry">

function printGeometry (coords) {

$('#geometry').html('Координаты: ' + stringify(coords));





function stringify (coords) {

	var res = '';

	if ($.isArray(coords)) {

		res = '[ ';

		for (var i = 0, l = coords.length; i < l; i++) {

			if (i > 0) {

				res += ', ';

			}

			res += stringify(coords[i]);

		}

		res += ' ]';

	} else if (typeof coords == 'number') {

		res = coords.toPrecision(6);

	} else if (coords.toString) {

		res = coords.toString();

	}





	return res;

}

}   		

    </script>

</head>





<body>

<div id="geometry"/></div>

<div id="map" style="width:100%; height:100%"></div>

    <input type="hidden" id="CoordX" name="CoordX" value="0"></input>

    <input type="hidden" id="CoordY" name="CoordY" value="0"></input>

    <input type="hidden" id="RouteInfo" name="RouteInfo" value=""></input>

    <input type="hidden" id="WebClientOperation" name="WebClientOperation" value="0"></input>

    <input type="hidden" id="WebClient" name="WebClient" onclick="WebClientClick();"></input>

    <!-- <input type="button" value="Завершить редактирование" id="stopEditPolyline"/> -->

</body>

</html>

Категория: Географическая схема

Как программно изменить текст, цвет, фон ячейки или области табличного документа?

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

Код 1C v 8.х

 //Пример получения текста ячейки

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R1C2").Текст = спрНоменклатура.Наименование;

ПолеТабДок.Область("R2C2").Текст = "Это Строка"; //указываем явно литерал строки

Код 1C v 8.х

 // Изменение текста в области или ячейке



Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 	

			

		КонецЕсли;

		

	КонецЦикла;

Код 1C v 8.х

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

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента; // Получаем табличный документ из формы 

ТабДок.Очистить(); // Очищаем табличный документ 

Макет = ПолучитьМакет("Макет"); // Получаем макет с именем "Макет" из текущего объекта 

ОбластьСтрокаТаб = Макет.ПолучитьОбласть("СтрокаТаб"); // Получаем область из макета 

ОбластьСтрокаТаб.Параметры.НашПараметр = 1; // Устанавливаем значение 1 параметру "НашПараметр" 

ОбластьОформления = ТабДок.Вывести(ОбластьСтрокаТаб); 

// Вот собственно и само оформление ячейки 

ТабДок.Область(ОбластьОформления.Верх, ОбластьОформления.Лево, ОбластьОформления.Низ, ОбластьОформления.Лево).ЦветФона = WebЦвета.Красный;

Код 1C v 8.х

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

        Таб.ВывестиСекцию("Контрагент");

        // Изменим Текст ячейки, имя которой заранее задали как "ТекстОСостоянии"

        Таб.Область("ТекстОСостоянии").Текст = "Хорошо ";

        // В зависимости от условия изменим Цвет Текста

        Если Раз<0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(255,0,0); 

           ИначеЕсли Раз>0 Тогда

          Таб.Область(Таб.ВысотаТаблицы(),9,Таб.ВысотаТаблицы(),9).ЦветТекста(0,0,255);

       КонецЕсли;

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

Для ячейки, у которой установлен признак "СодержитЗначение", можно задать тип значения, размещаемого в ячейке.

Следующий фрагмент демонстрирует, как можно управлять этими свойствами из встроенного языка://задаем нужный тип с помощью объекта "ОписаниеТипов"

Код 1C v 8.х

 МассивБулево = Новый Массив; 

МассивБулево.Добавить(Тип("Булево"));

ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);

//...

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R3C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение

ПолеТабДок.Область("R3C3").ТипЗначения = ОписаниеТиповБулево; //указываем тип значения

ПолеТабДок.Область("R3C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника

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

Код 1C v 8.х

 ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R4C3").ТипЗначения = ОписаниеТиповДата; //указываем тип, ранее заданный для Даты

ПолеТабДок.Область("R4C3").Значение = ТекущаяДата();

//указываем форматную строку 

//будет выглядеть как "[031120-2315]-", если текущая дата '20-11-2003 23:15:00') 

ПолеТабДок.Область("R4C3").Формат = "ДФ=[ггММдд-ЧЧмм]-";

Элемент управления в табличном документе

Для ячейки, у которой установлен признак "СодержитЗначение", можно также задать элемент управления, который будет использоваться для редактирования этого значения.

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

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

Ниже показан пример установки элемента управления типа "Флажок" из встроенного языка://задаем нужный тип с помощью объекта "ОписаниеТипов"

Код 1C v 8.х

 МассивБулево = Новый Массив; 

МассивБулево.Добавить(Тип("Булево"));

ОписаниеТиповБулево = Новый ОписаниеТипов(МассивБулево);

...

ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента; 

ПолеТабДок.Область("R5C3").СодержитЗначение = Истина; //указываем, что в ячейке будет значение

ПолеТабДок.Область("R5C3").ТипЗначения = ОписаниеТиповБулево; //указываем ранее заданный тип

ПолеТабДок.Область("R5C3").Значение = СпрНоменклатура.Услуга; //значение, типа "Булево" из справочника

//а теперь указываем, что в ячейке будет отображаться флажок

ПолеТабДок.Область("R5C3").УстановитьЭлементУправления(Тип("Флажок"));

Для элементов управления, расположенных в табличном документе, расширяется набор свойств, методов и событий:

Разберем самые важные свойства и методы:

Свойство "ВстроенВЯчейку" имеет тип "булево" и говорит о том, что элемент управления встраивается в ячейку или просто привязывается к ней, о чем было рассказано выше.

Свойство "Видимость" позволяет показать или скрыть элемент управления.

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

Метод "Расположить" позволяет разместить элемент управления в конкретной области ячеек табличного документа. Именно этот метод был использован в вышеприведенном примере.

Код 1C v 8.х

  ПолеТабДок = ЭлементыФормы.тдПолеТабличногоДокумента;

ПолеТабДок.Область("R4C3").Защита = Истина;

Категория: Табличный документ

Как в универсальном отчете отключить вывод итогов по некоторым полям?

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

Многие скажут - что давно пора использовать СКД и там все есть! - согласен на все 100% но есть клиенты у которых стоит программа УТ с 2012 года, их все устраивает и ничего не хотят менять, кроме отчетов. Вот один мой знакомы попросил отключить итоги в универсальном отчете - сделал это добавив следующий код в процедуру формирования отчета:

Код 1C v 8.х

 // Процедура формирования отчета

//

Процедура СформироватьОтчет(ТабличныйДокумент) Экспорт

	

	Если НЕ ЗначениеЗаполнено(УниверсальныйОтчет.ДатаКон) Тогда 

		УниверсальныйОтчет.ДатаКон = ТекущаяДата();

	КонецЕсли;

	

	// Перед формирование отчета можно установить необходимые параметры универсального отчета.

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаОтчета", КонецДня(УниверсальныйОтчет.ДатаКон));

	УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНеделяНазад", УниверсальныйОтчет.ДатаКон-(86400*7));





	//УстановитьИнтервалыЗапроса();

	

	УниверсальныйОтчет.СформироватьОтчет(ТабличныйДокумент);

	

	// ДОБАВЛЕННЫЙ КОД - чистит итоги в нужных ячейках

	Для а = 11 по ТабличныйДокумент.ВысотаТаблицы Цикл

		//Ячейка = ТабличныйДокумент.Область(а,1,а,1).Текст; 

		текстЯчейка = ТабличныйДокумент.Область("R"+а+"C2").Текст; 

		Если Строка(ТабличныйДокумент.Область("R"+а+"C2").ЦветФона)="стиль: Фон кнопки" Тогда

			ТабличныйДокумент.Область("R"+а+"C7").Текст="";

			ТабличныйДокумент.Область("R"+а+"C11").Текст="";	

			ТабличныйДокумент.Область("R"+а+"C8").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C9").Текст=""; 		

			ТабличныйДокумент.Область("R"+а+"C10").Текст=""; 			

		КонецЕсли;		

	КонецЦикла;

КонецПроцедуры // СформироватьОтчет()

Для наглядности покажу на примере:

в выделенных полях добавленным кодом были стерты итоги

Категория: Прочие вопросы

Работа с MS Word через OLE

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

Код 1C v 8.х

 

// "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.

// "Ссылка" - ДокументСсылка (в моем случае - счет).

Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

        НомерСтроки = 1;

        Для каждого СтрокаТовары Из Ссылка.Товары Цикл

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

            НомерСтроки=НомерСтроки+1;

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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



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

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

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



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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

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

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

Код 1C v 8.х

 Процедура ВыполнитьОбработку() Экспорт



    Попытка



        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");

        // Покажем документ.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        ThisDocument = Word.Documents(1);

        ThisDocument.Activate();



        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        ThisDocument.GrammarChecked=0;

        ThisDocument.ShowGrammaticalErrors=0;



        // Готовим переменную в которой будет содержимое документа (текст).

        S_election = Word.S_election;



        // Очистим документ

        // Ctrl-A

        S_election.WholeStory();

        // Del

        S_election.Delete(1, 1);



        // Уменьшим междустрочный интервал.

        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию

        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию



        // Разметим документ. Это можно сделать и предварительно в макете

        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());

        S_election.TypeParagraph();

        S_election.TypeText("34r3 ");

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());

        S_election.EndKey();



        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.

        ThisDocument.Bookmarks("Закладка3").Range.S_elect();

        S_election = Word.S_election;



        Bookmark = ThisDocument.Bookmarks("Закладка3");

        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);

        Table.Rows(1).Cells(1).Range.Text = 1;

        Table.Rows(1).Cells(2).Range.Text = 2;

        Table.Rows(1).Cells(3).Range.Text = 3;

        Table.Rows(1).Cells(4).Range.Text = 4;

        Table.Rows(1).Cells(5).Range.Text = 5;



        // После вывода таблицы, появится "лишняя строка", удалим ее

        // в результате курсор встанет в область закладки 4

        S_election.MoveDown(, 1);

        S_election.Delete(1, 1);



        // Этот текст будет выведен не с последней позиции курсора, а в активной области.

        // в данном случае - в области закладки 2

        ThisDocument.Bookmarks("Закладка2").Range.S_elect();

        S_election = Word.S_election;

        Text = S_election.Range.Text;

        S_election.TypeText(Text + " sdcsdcs");

        // При выводе текста закладка "сбросилась". Восстановим.

        // "Победить" эту проблему я так и не смог((

        // Хотя на практике, закладка больше и не понадобится.

        // Дважды выводить текст в одну и ту же область - не имеет смысла.

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();



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

        ThisDocument.Bookmarks("Закладка4").Range.S_elect();

        S_election = Word.S_election; // активная (выделенная) область будет начинаться

        // от закладки 4)



        // Добавим текст "для опытов"

        // 1

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 2

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 3

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 4

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // Выделяем введенный текст

        S_election.MoveUp(,4,1);



        // Настроим шаблон объекта галереи списков

        // Галереи списков бывают несккольких типов, 2 - нумерованные списки

        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);

        // Формат нумератора списка - точка после символа нумерации

        ListTemplate.NumberFormat = "%1.";

        // стиль нумератора - арабские цифры

        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic

        // 4 - маленькие латинские буквы.

        // 2 - маленькие римские цифры.

        // 58- меленькие русские буквы.

        // Font = Template.Font; // можно указать форматирование текста списка



        // Применим шаблон к выделенному тексту

 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));



        // Перейдем в конец текста

        S_election.EndKey(6);



        // Добавим картинку

        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом

        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);

        // Зададим размер

        Picture.Height = 100;

        Picture.Width  = 150;



        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру

        Shape = Picture.ConvertToShape();

        Shape.WrapFormat.Type = 0; // по контуру...



        ThisDocument.Save();

        //Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        ThisDocument.Save();

        Сообщить(ОписаниеОшибки());

        //Объект.Application.Quit();

        Объект = Неопределено;

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



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

Автор: Крылов Николай

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

Индикатор выполнения

Код 1C v 8.х

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

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

Индикатор = ЭлементыФормы.ИндикаторПеребора; 

Индикатор.МаксимальноеЗначение = Выборка.Количество(); 

Индикатор.Значение = 0; 

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

    Индикатор.Значение = Индикатор.Значение + 1; 

КонецЦикла;

Код 1C v 8.х

 // Индикатор выполнения вывода результата запроса с расширенной настройкой

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

Индикатор = ЭлементыФормы.ИндикаторПеребора; 

Индикатор.МаксимальноеЗначение = Выборка.Количество(); 

Индикатор.Значение = 0; 

Индикатор.ОтображатьПроценты = Истина; 

Индикатор.СтильОтображения = РежимСглаживанияИндикатора.Прерывистый; 

Индикатор.Ориентация = Ориентация.Вертикально; 

Индикатор.Шаг = 0.1; 

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

    Индикатор.Значение = Индикатор.Значение + 1;

КонецЦикла;

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

Код 1C v 8.х

 ПроцессорКомпоновки = Новый ПроцессорВыводаРезультатаКомпоновкиДанных

ВТабличныйДокумент;

ПроцессорКомпоновки.ОтображатьПроцентВывода = Истина ;

ЭлементКомпоновки = Новый ЭлементРезультатаКомпоновкиДанных;



ПроцессорКомпоновки.НачатьВывод();

//Считаем проценты по своему алгоритму, для примера:

Для Сч = 1 По 100 Цикл

   ЭлементКомпоновки.ПроцентВывода = Сч;

   ПроцессорКомпоновки.ВывестиЭлемент(ЭлементКомпоновки);

КонецЦикла;

ПроцессорКомпоновки.ЗакончитьВывод();

Для 1С 7.7 посмотрите v7: Прогресс бар в строке состояния

Категория: Встроенные Функции

Выгрузка в PDF из 1С (Средствами OpenOffice)

Возникла задача отправлять счета почтой. PDFcreator не подошёл поскольку не удалось вместить счёт на одну страницу по ширине. Решил попробовать OpenOffice. Как сохранять в PDF нашёл быстро, а вот как уместить счёт на одну страницу вширь искал долго.
В версии 1С 8.2.232 появилась возможность сохранять табличный документ в xls файл на сервера под линуксом. А вот работать с Опеном офисом из-под линукса пока не получается. Собственно комментари ненужны. Вот весь код. Самое интересное это бодание со стилями страниц в Опене Офисе. Жаль что этот фрагмент работает только на клиенте. На сервере вопрос не решается *08

Код 1C v 8.2 УП

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

    Если Письмо.Основание.Пустая() Тогда

        Возврат

    КонецЕсли;



    // Открыть OpenOffice

    Попытка

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

    Исключение

        Возврат // опен офис не установлен :-(

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



    // получим печатную форму и запишем её во временный XLS файл

    Заказ = Письмо.Основание.ПолучитьОбъект();



    //Получим печатную форму

    Расшифровка=Новый Структура;

    Расшифровка.Вставить("СсылкаНаВнешнююОбработку",Константы.ПФСчетаДляКлиента.Получить());

    Расшифровка.Вставить("ВидПечатнойФормы",Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма);

    Расшифровка.Вставить("НомерСтроки",1);

    тд = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Заказ, Расшифровка);



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

    ВременныйФайлXLS =ВременныйФайл + ".xls";

    ВременныйФайлPDF =ВременныйФайл + ".pdf";

    тд.Записать(ВременныйФайлXLS, ТипФайлаТабличногоДокумента.XLS97);



    // Преобразовываем временный xls файл В PDF

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



    НастройкиОткрытия = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "Hidden";

    PropertyValue.Value = Истина;

    НастройкиОткрытия.SetValue(0, PropertyValue);

    ВременныйФайлXLS_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлXLS, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный



    // Откроем файл в опене офисе

    ОпенОфис = Desktop.LoadComponentFromURL(ВременныйФайлXLS_какУРЛ, "_blank", 0, НастройкиОткрытия);



    //ПараметрыСтраницы = ОпенОфис.createInstance("com.sun.star.style.PageStyle");

    //ПараметрыСтраницы.ScaleToPagesX = 1;

    //

    // Установим масштаб, чтобы счёт помещался на одной странице вширь

    // страниц почему-то много, поэтому устанавливаем масштаб для всех

    Стили = ОпенОфис.StyleFamilies.getByName("PageStyles");

    Для поз = 0 по Стили.count - 1 Цикл

        МойСтиль = Стили.getByIndex(поз);

        МойСтиль.ScaleToPagesX = 1; // уместить на одной странице вширь

        //МойСтиль.PageScale = 50; // масштаб 50%

    КонецЦикла;



    НастройкиСохранения = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "FilterName";

    PropertyValue.Value = "calc_pdf_Export";

    НастройкиСохранения.SetValue(0, PropertyValue);



    ВременныйФайлPDF_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлPDF, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный

    ОпенОфис.storeToURL(ВременныйФайлPDF_какУРЛ, НастройкиСохранения); // сохранили PDF файл

    ОпенОфис.close(-1);

    ОпенОфис = Неопределено;



    // С опеном офисом разобрались. Прикрепляем вложение к письму и удаляем временные файлы.

    //Файл = Новый Файл(ВременныйФайлPDF);

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

    стрВложение = объектПисьмо.Вложения.Добавить();

    стрВложение.ИмяФайла = "Счёт " + Строка(Заказ.Номер) + ".pdf";

    стрВложение.Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ВременныйФайлPDF));

    объектПисьмо.Записать();

    Попытка

        УдалитьФайлы(ВременныйФайлXLS);

        УдалитьФайлы(ВременныйФайлPDF);

    Исключение

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



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

Автор: Трактор

Функция позволяющая выполнить выгрузку табличного документа в PDF средствами OpenOffice

Код 1C v 8.х

 // Функция превращает табличный документ в PDF документ

// Возвращаемое значение: тип "Строка" - имя созданного PDF файла, 0 - в случае ошибки

// Параметры: ДанныеВыгрузки - Табличный или текстовый документ, который нужно выгрузить в PDF

//            ПутьВыгрузки - тип "Строка", путь для сохраниения PDF файла (без имени и расширения файла)

//            ИмяФайлаБезРасширения - тип "Строка", имя для вновь сформированного PDF файла

// Тестировалось на OpenOffice 3.x

Функция ВыгрузитьТабличныйДокументВPDF(ДанныеВыгрузки, ПутьВыгрузки, ИмяФайлаБезРасширения)       

    Если НЕ ЗначениеЗаполнено(ПутьВыгрузки) Тогда

        ПутьВыгрузки = КаталогВременныхФайлов();

    КонецЕсли;   

    ПутьВыгрузки         = ?(Прав(ПутьВыгрузки, 1) = "\", ПутьВыгрузки, ПутьВыгрузки + "\");

   

    РасширениеXSL         = ".xls";

    РасширениеPDF         = ".pdf";

    ПолноеИмяФайлаXLS     = ПутьВыгрузки + ИмяФайлаБезРасширения + РасширениеXSL;

    //Выгрузка данных печати в файл XLS   

#Если Клиент Тогда

    Состояние("Создание временного файла...");

#КонецЕсли

    Попытка

        Если         ТипЗнч(ДанныеВыгрузки) = Тип("ТабличныйДокумент") Тогда        

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

        ИначеЕсли     ТипЗнч(ДанныеВыгрузки) = Тип("ТекстовыйДокумент") Тогда

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

        Иначе

#Если Клиент Тогда

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

#КонецЕсли

            Возврат 0;

        КонецЕсли;

    Исключение

#Если Клиент Тогда

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

#КонецЕсли

        Возврат 0;

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

   

    Попытка

#Если Клиент Тогда

        Состояние("Открытие компоненты OpenOffice...");

#КонецЕсли

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

       

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

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

        Скрипт.AddObject("OpenOffice", ServiceManager);

       

        //Открытие временного файла без отображения его окна

#Если Клиент Тогда           

        Состояние("Открытие временного файла...");

#КонецЕсли

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

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

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

        Скрипт.eval("Массив[0].Name     = 'Hidden'");

        Скрипт.eval("Массив[0].Value = true");

       

        Скрипт.AddCode("function SetItem(ind,val){Массив[ind]=val}");       

        Скрипт.AddObject("ServiceManager",ServiceManager);

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

        Document         = Desktop.LoadComponentFromURL("file:///" + ПолноеИмяФайлаXLS, "_blank", 0, Массив);

       

        //Сохранение в PDF встроенными средствами OpenOffice

#Если Клиент Тогда           

        Состояние("Запись в PDF...");

#КонецЕсли

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

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

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

        Скрипт.eval("Массив2[0].Name  = 'FilterName'");

        Скрипт.eval("Массив2[0].Value = 'writer_pdf_Export'");

       

        ПолноеИмяФайлаPDF         = "file:///" + СтрЗаменить(ПолноеИмяФайлаXLS, РасширениеXSL, РасширениеPDF);

        ПолноеИмяФайлаPDF         = СтрЗаменить(ПолноеИмяФайлаPDF, ВРег(РасширениеXSL), РасширениеPDF);

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

               

        Document.storeToURL(ПолноеИмяФайлаPDF, Массив2);

        Document.close(-1);        //Закрыть документ

       

        //Контрольная очистка переменных

        Document     = Неопределено;

        Desktop     = Неопределено;

       

        //Удаление временного файла

#Если Клиент Тогда           

        Состояние("Удаление временного файла...");

#КонецЕсли       

        Попытка

            УдалитьФайлы(ПолноеИмяФайлаXLS);

        Исключение

#Если Клиент Тогда           

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

#КонецЕсли

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

       

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "file:///", "");

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

#Если Клиент Тогда

        Состояние("Выгрузка выполнена.");

        Предупреждение("Выгрузка выполнена." + Символы.ПС + ПолноеИмяФайлаPDF);       

#КонецЕсли

        Возврат ПолноеИмяФайлаPDF;

    Исключение

        Document.close(-1);

#Если Клиент Тогда

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

#КонецЕсли

        Возврат 0;

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

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

Автор: doom_2001

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

Конструктор схемы компоновки данных - Закладка Настройки

Закладка повторяет пользовательский диалог «Настройка» доступный для настройки пользователем параметров отчета.
title

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

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

Закладка «Параметры данных»
На этой закладке устанавливаются значения параметров данных. Список доступных параметров данных определяется на закладке «Параметры» схемы СКД, здесь же устанавливаются только пользовательские значения параметров. Причем доступны только те параметры, для которых в схеме СКД сброшена галочка «Ограничение доступности».
title

В таблице присутствуют несколько колонок:
1. «Использование» - галочкой пользователь указывает использовать или не использовать данный параметр для формирования отчета.
2. «Параметр» - имя параметра
3. «Значение параметра» - значением параметра или указание, откуда значение параметра можно извлечь. Например, если сбросить текущее значение, нажав на «Х», то нажав на кнопку «Т» откроется выбор типа параметра в диалоге:
title

Источником может служить, какое либо значение простого типа Строка, Дата, Число, Булево или ссылка на объект в базе данных. А также источником для данного параметра может быть значение другого параметра, для этого нужно выбрать значение «Поле компоновки данных» и выбрать нужное поле из списка параметров.
Для даты можно назначать автоматические значения для подстановки: «Начало этого дня», «Начало этой недели» и т.д.

Закладка «Выбранные поля»
На этой закладке определяются поля, кроме группировок, которые будут выводиться отчет. На за-кладке два списка с доступными полями и выбранными полями. Кроме полей определенных в наборах данных к выводу доступны параметры и системные поля «Номер по порядку», «НомерПоПорядкуВГруппировке», «Уровень», «УровеньВГруппировке», а также пользовательские поля определенные на закладке «Пользовательские поля».
title

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

Для ресурсов доступны для выбора уточнения для расчетов реквизита: «% в группе» - используется для расчета доли значения ресурса для всей группировки в группе, т.е. в итоге в группе по совокупности значений ресурса будет 100%; «% общий» - общий процент не зависимо от группы по всем значениям ресурса.
Для полей объектного типа справочник, документ и т.д. возможно указать в выбранные поля реквизит объекта.
title

Закладка «Отбор»
На этой закладке определяются отборы, которые влияют на результат отчета.
title

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

После добавления нового элемента в список отборов для редактирования доступны поля:
• «Левое значение» - поле СКД или поле простого типа («Число», «Строка», «Дата», «Булево»), на которое накладывается отбор
• «Вид сравнения» - список возможный условий отбора: «Равно», «Не равно», «В списке», «В группе из списка», «В группе», «Не в списке», «Не в группе из списка», «Не в группе», «Со-держит», «Не содержит», «Заполнено», «Не заполнено»
• «Правое значение» - значение отбора, соответствует значению поля «Левое значение». В случае если «Вид сравнения» равен «В списке», «В группе из списка», «Не в списке», «Не в группе из списка» то для установки доступен список значений
• «Режим отображения» - возможный два варианта «Быстрый доступ» и «Обычный». В случае если установлен «Быстрый доступ» то если это возможно значения для выбора отображаются в виде выпадающего списка, особенно это актуально для небольших редко меняющихся справочников, перечислений или видов характеристик. «Обычный» - способ отображения значений принятый для объектов по-умолчанию в виде формы выбора или списка.
• «Представление» - текстовое представление отбора в сокращенном режиме (если не нажата кнопка «Подробно»), а также представление отбора при выводе отчета.
В отборы можно добавлять группы – которые служат для объединения нескольких отборов, по какому либо критерию «И», «ИЛИ», «НЕ».
title

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

Закладка «Сортировка»
На данной закладке указываются поля, по которым производится сортировка.
title

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

Закладка «Условное оформление»
На закладке «Условное оформление» мы указываем, какие поля, условия отборов и условия оформления будут применятся при выводе полей в отчет.
title

«Область» - список полей, на которые влияет условное оформление.
title

«Отбор» - условия отбора при которых условное оформление действует
title

Условия отбора указываются также как и на закладке «Отбор» основного окна настройки компоновки.
«Условное оформление» - при заполнении данного поля выводится окно с выбором возможных опций оформления для указанных полей.
title

Список возможных опций оформления:
Цвет фона - Определяет цвет фона в ячеках
Цвет текста - Определяет цвет текст в ячейках
Цвет в диаграмме - Определяет цвет линий в диа-грамме
Цвет границы - Цвет линий границы
Стиль границы - Типы линий границы
Стиль границы слева - слева
Стиль границы сверху - сверху
Стиль границы справа - справа
Стиль границы снизу - снизу
Шрифт - Вид шрифта, толщина, наклон и т.д.
Отступ - Количество знаков отступа
Авто отступ - Количество знаков отступа, применяется в группировках
Горизонтальное положение - Положение текста в ячейке по горизонтали
Вертикальное положение - Положение текста в ячейке по вертикале
Размещение - Размещение текста который не помещается в ячейку
Ориентация текста - Ориентация текст в градусах (например, 90-поворот перпендикулярно)
Формат - Форматная строка значения
Выделять отрицательные - Признак того чтобы выделять отрицательные значения
Минимальная ширина - Минимальная ширина ячейки в пунктах
Минимальная высота - Минимальная высота ячеки
Максимальная высота - Максимальная высота
Текст - Текст который выводится вместо значения

Закладка «Пользовательские поля»
На данной закладке можно указать пользовательские поля и формулы, по которым поля будут вычисляться.
title

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

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

В пользовательских полях можно использовать выражения из запросов.
Также для обозначения итоговых записей в выражении нужно использовать агрегатные функции СУММА(..), КОЛИЧЕСТВО(), МИНИМУМ(..), МАКСИМУМ(..)

Закладка «Другие настройки»
На закладке «Другие настройки» определяются настройки, которые влияют на расположение группировок, полей выбора, ресурсов и т.д.

Макет оформления Заданные предопределенные макеты оформления
Расположение итогов Параметр влияет на расположение итогов
Расположение полей группировок
Расположение группировок
Расположение реквизитов
Расположение ресурсов
Расположение общих итогов по горизонтали
Расположение общих итогов по вертикали
Тип заголовка полей
Тип диаграммы
Базовое значение
Пропускать базовое значение
Состав подписей
Режим раздвижения
Отображать таблицу данных
Максимальное значение
Минимальное значение
Окантовка
Градиент
Шрифт
Цвет фона
Стиль линии
Размещение легенды
Полосы измерительной диаграммы
Выводить заголовок
Заголовок
Выводить параметры данных
Выводить отбор

Окно настройки группировок
title

Настройки схемы компоновки данных могут содержать структуру, включающую в себя доступные элементы настроек.
Такими элементами являются:
• группировка;
• таблица;
• диаграмма;
• вложенный отчет.

Для группировки доступны следующие настройки:
• Флаг использования группировки - если установлен - группировка используется при компоновке;
• Поля группировки - набор полей, по которым осуществляется группировка. Каждое поле группировки системы компоновки данных обладает следующими свойствами:
- Флаг использования поля - если установлен - поле используется;
- Поле группировки - путь к данным поля, по которому осуществляется груп-пировка;
- Тип группировки – тип группировки (Иерархия, Только иерархия, Элемен-ты);
- Тип дополнения – необходимость дополнения дат в периоде;
- Начальная дата - начальная дата периода. Может содержать константное зна-чение, либо значение – поле;
- Конечная дата - конечная дата периода. Может содержать константное значе-ние, либо значение - поле;

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

Категория: Схема Компоновки Данных

Конструктор схемы компоновки данных - Закладка Набор данных - Объект

Для набора данных «Объект» используется для передачи в СКД внешних данных, таких как таблица значений, результат запроса. Для этого набора данных доступны описания полей, а также название объекта, которые будет передан в СКД:
title

Описание полей набора данных
После определения, какого вида мы набор данных используем, следует внести описание полей для данных, выводимых в отчет:
title

В таблице «Поля» заполняются свойства:
1. «Поле» - имя поля, в случае запроса заполняется автоматически, в случае набора данных «Объект» определяется вручную.

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

3. «Заголовок» - строка с заголовком поля, которые выводится в отчет или в настройках

4. «Ограничение доступности поля» - ряд галочек – настроек, служит для указания того, как данное поле не может быть использовано в настройках. Возможно, указать такие ограни-чения
a. «Поле» - поле нельзя использовать в выборках СКД
b. «Условие» - поле нельзя использовать как условие
c. «Группа» - запрет на использование поля в группировках
d. «Упорядочивание» - запрет использовать поле в сортировках

5. «Ограничение доступности полей-реквизитов» - ряд галочек ниже, указывает на ограничения для реквизитов поля, смысл установки данных ограничений такой же что и в для поля

6. «Роль» - обозначает дополнительные свойства поля и его взаимоотношения с другими полями. Для редактирования ролей открывается специальный диалог:
title

a. «Без роли» - никаких особых «нагрузок» на поле не накладывается, режим по умолчанию для большинства полей
b. «Период» - содержит номер периода, если поле имеет тип периода. Самый младший период должен иметь тип 1. Например, в запросе рассчитываем итоги по различным периодам: ПериодСекунда = 1, ПериодДень=2, ПериодНеделя=3 и т.д. Данный номер будет указывать, как в СКД рассчитывается итоги по полям остатка.
c. «Дополнительный» – указывает на то, что поле–период не является обязательным
d. «Счет» - указывает на то, что поля является бухгалтерским счетом, используется для рас-чета бухгалтерских итогов.
e. «Вид» - строка выражение, с помощью которого рассчитывается вид счета. Результатом выражения должно быть значение перечисления ВидСчета (Активный, Пассивный, Активно/Пассивный), либо число. Значение числа 0 соответствует активному счету, 1 – пассивному, 2 – активно-пассивному. Выражение записывается на языке выражений системы компоновки данных. Данная информация используется при расчете по полям бухгалтерских остатков;
f. «Остатки» – признак того, что поле является полем остатка;
g. «Имя» – строка, содержащая имя группы полей остатка. Например: "Сумма", "Количест-во";
h. «Тип» – тип остатка (НачальныйОстаток, КонечныйОстаток, Нет (поле не является остат-ком));
i. «Бух. Тип» – тип бухгалтерского остатка (Дебет, Кредит, Нет (поле не является бухгалтерским остатком));
j. «Поле счета» – имя поля-счета, для которого рассчитываются остатки;
k. Игнорировать значения NULL – если установлено, то в результат не нужно включать групповые записи по данному полю в случае, если поле содержит значение NULL.
l. «Обязательное» - при выполнении запроса поле с указанным флажком будут присутствовать всегда, даже если не были выбраны в выборке.

7. «Выражение представления» - содержит выражение, которое используется при выводе зна-чений поля в отчет.
title

Например нужно преобразовать дату в особый формат для этого указываем такое выражение «Формат(ПериодПолугодие,"ДФ = '""Полугодие с"" дд.ММ.гггг""'")» или ссылку на документ преобразовать к произвольному виду: ««Дата: »+Ссылка.Дата+«Номер: »+Ссылка.Номер».

8. «Выражение упорядочивания» - как упорядочивать это поле. При редактировании открывается диалог:
title

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

9. «Проверка иерархии» - используется, в случае если нужно формировать нестандартные отборы.
a. «Набор данных» – набор данных для проверки иерархии;
b. «Параметр» – параметр, в который будет подставляться значение, для которого нужно получить дочерние элементы;

10. «Тип значения» - уточнение типа значения поля набора данных, полезно использховать для уточнения полей составного типа

11. «Оформление» - параметры оформления поля набора данных. При редактировании открывается диалог:
title

Можно задавать следующие параметры:
Цвет фона - Определяет цвет фона в ячеках
Цвет текста - Определяет цвет текст в ячейках
Цвет в диаграмме - Определяет цвет линий в диа-грамме
Цвет границы - Цвет линий границы
Стиль границы - Типы линий границы
Стиль границы слева - слева
Стиль границы сверху - сверху
Стиль границы справа - справа
Стиль границы снизу - снизу
Шрифт - Вид шрифта, толщина, наклон и т.д.
Отступ - Количество знаков отступа
Авто отступ - Количество знаков отступа, применяется в группировках
Горизонтальное положение - Положение текста в ячейке по горизонтали
Вертикальное положение - Положение текста в ячейке по вертикале
Размещение - Размещение текста который не помещается в ячейку
Ориентация текста - Ориентация текст в градусах (90-поворот перпендикулярно)
Формат - Форматная строка значения
Выделять отрицательные - Признак того чтобы выделять отрицательные значения
Минимальная ширина - Минимальная ширина ячейки в пунктах
Минимальная высота - Минимальная высота ячеки
Максимальная высота - Максимальная высота
Текст - Текст который выводится вместо значения

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

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

Категория: Схема Компоновки Данных

Пример построения в Word нумерованного списка, закладок, вставки картинки, настройки ее параметров.

Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.

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

Для отображения закладок включите эту опцию в настройках вашего Word'а.

В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудьте указать свои пути.
Тестировалось на Office 2007.
Некоторые переменные переименованы по стандарту Office: Text --> S_election. Doc --> ThisDocument.

Вот текст модуля:

Код 1C v 8.х

 Процедура ВыполнитьОбработку() Экспорт



    Попытка



        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");

        // Покажем документ.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        ThisDocument = Word.Documents(1);

        ThisDocument.Activate();



        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        ThisDocument.GrammarChecked=0;

        ThisDocument.ShowGrammaticalErrors=0;



        // Готовим переменную в которой будет содержимое документа (текст).

        S_election = Word.S_election;



        // Очистим документ

        // Ctrl-A

        S_election.WholeStory();

        // Del

        S_election.Delete(1, 1);



        // Уменьшим междустрочный интервал.

        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию

        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию



        // Разметим документ. Это можно сделать и предварительно в макете

        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());

        S_election.TypeParagraph();

        S_election.TypeText("34r3 ");

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());

        S_election.EndKey();



        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.

        ThisDocument.Bookmarks("Закладка3").Range.S_elect();

        S_election = Word.S_election;



        Bookmark = ThisDocument.Bookmarks("Закладка3");

        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);

        Table.Rows(1).Cells(1).Range.Text = 1;

        Table.Rows(1).Cells(2).Range.Text = 2;

        Table.Rows(1).Cells(3).Range.Text = 3;

        Table.Rows(1).Cells(4).Range.Text = 4;

        Table.Rows(1).Cells(5).Range.Text = 5;



        // После вывода таблицы, появится "лишняя строка", удалим ее

        // в результате курсор встанет в область закладки 4

        S_election.MoveDown(, 1);

        S_election.Delete(1, 1);



        // Этот текст будет выведен не с последней позиции курсора, а в активной области.

        // в данном случае - в области закладки 2

        ThisDocument.Bookmarks("Закладка2").Range.S_elect();

        S_election = Word.S_election;

        Text = S_election.Range.Text;

        S_election.TypeText(Text + " sdcsdcs");

        // При выводе текста закладка "сбросилась". Восстановим.

        // "Победить" эту проблему я так и не смог((

        // Хотя на практике, закладка больше и не понадобится.

        // Дважды выводить текст в одну и ту же область - не имеет смысла.

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();



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

        ThisDocument.Bookmarks("Закладка4").Range.S_elect();

        S_election = Word.S_election; // активная (выделенная) область будет начинаться

        // от закладки 4)



        // Добавим текст "для опытов"

        // 1

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 2

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 3

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 4

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // Выделяем введенный текст

        S_election.MoveUp(,4,1);



        // Настроим шаблон объекта галереи списков

        // Галереи списков бывают несккольких типов, 2 - нумерованные списки

        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);

        // Формат нумератора списка - точка после символа нумерации

        ListTemplate.NumberFormat = "%1.";

        // стиль нумератора - арабские цифры

        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic

        // 4 - маленькие латинские буквы.

        // 2 - маленькие римские цифры.

        // 58- меленькие русские буквы.

        // Font = Template.Font; // можно указать форматирование текста списка



        // Применим шаблон к выделенному тексту

 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));



        // Перейдем в конец текста

        S_election.EndKey(6);



        // Добавим картинку

        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом

        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);

        // Зададим размер

        Picture.Height = 100;

        Picture.Width  = 150;



        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру

        Shape = Picture.ConvertToShape();

        Shape.WrapFormat.Type = 0; // по контуру...



        ThisDocument.Save();

        //Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        ThisDocument.Save();

        Сообщить(ОписаниеОшибки());

        //Объект.Application.Quit();

        Объект = Неопределено;

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



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

Написал Nikola23 - http://infostart.ru/public/68072/

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

База для Разработки или Рабочая? Как быстро определить?

Когда-то я работал консультантом SAP. В SAPe есть настройка изменения цвета главного окна программы и у нас было негласное правило: Рабочая программа - Красный фон, Тестовая - Зеленый, Разработка - Синий.

Работая в 1С, всегда открыто по 5-6 программ, и перепутать рабочую базу с базой для тестирования, не составляет труда.

Конечно, можно зайти Справка - О программе и посмотреть значения Режим, База, Каталог. Но я решил применить опыт SAP проектов к 1С:

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

Код 1C v 8.х

 // Мигачев Евгений

	УстановитьЗаголовокСистемы(Метаданные.Синоним+"   ( База: "+СтрокаСоединенияИнформационнойБазы()+" )");

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

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

Код 1C v 8.х

 // Мигачев Евгений Изменение Стиля в зависимости от базы

	СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();

	// в зависимости от того файловый это вариант БД или нет,  по-разному отображается путь в БД 

	ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");

	Если ПозицияПоиска = 1 тогда

		//База "Файловая", меняем стиль отображения	

		ГлавныйСтиль=БиблиотекаСтилей["Разработка"];

	Иначе 

		//База "Серверная" - оставляем все как есть		

	КонецЕсли;

Так выглядит Рабочая база, только еще Строка Соединения Информационной Базы в заголовке:
title

А так Сине-бирюзовая база для разработок:
title

Автор: Мигачев Евгений

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

Как изменить Главный, Основной Стиль, Библиотека Стилей

В Модуль приложения, в самый конец процедуры ПередНачаломРаботыСистемы() добавить:

Код 1C v 8.х

  

//Установить значение ГлавныйСтиль можно только 

// в Модуле Приложения в процедуреПередНачаломРаботыСистемы()

ГлавныйСтиль=БиблиотекаСтилей["НазваниеСтиля"];



//БиблиотекаСтилей - это все стили находящиеся в Общие-Стили

//Для объекта доступен обход коллекции посредством оператора Для каждого … Из … Цикл. 

//При обходе выбираются элементы коллекции. МЕТОДЫ:



//БиблиотекаСтилей.Количество()

ВсегоСтилей = БиблиотекаСтилей.Количество();



//БиблиотекаСтилей.Получить(Индекс)

ГлавныйСтиль=БиблиотекаСтилей.Получить(ИндексСтиля);

// или

ГлавныйСтиль=БиблиотекаСтилей["НазваниеСтиля"];



//БиблиотекаСтилей.Индекс

ИндексСтиля = БиблиотекаСтилей.Индекс(ТекущийСтиль);

Категория: Встроенные Функции