a-sitnikov

Процедура ОбъединитьОбластиПоЗначению(ТабДокумент, Начало, Конец, Колонка)
	
	ПредЗначение = ТабДокумент.Область(Начало, Колонка, Начало, Колонка).Текст; 
	ПредНачало   = Начало;
	Для Счетчик = Начало + 1 По Конец Цикл
		
		ТекЗначение = ТабДокумент.Область(Счетчик, Колонка, Счетчик, Колонка).Текст;
		Если ТекЗначение <> ПредЗначение Тогда 
			
			Если ПредНачало < Счетчик - 1 Тогда

a-sitnikov

Функция ПолучитьДанныеРасшифровки(АдресРасшифровки, Расшифровка) Экспорт
	
	ДанныеРасшифровки = ПолучитьИзВременногоХранилища(АдресРасшифровки);
	ЭлементРасшифровки = ДанныеРасшифровки.Элементы[Расшифровка];
	
	СтруктураГруппировок = Новый Структура;
	ДобавитьГруппировкиРасшифровки(ЭлементРасшифровки.ПолучитьРодителей(), ДанныеРасшифровки, СтруктураГруппировок);
	
	МассивРесурсов = НайтиВсеРесурсыПоГруппировкам(ДанныеРасшифровки, ЭлементРасшифровки.ПолучитьРодителей());

a-sitnikov

&НаКлиенте
Процедура ЗаполнитьМарки(Команда)
	
	ОписаниеОповещения = Новый ОписаниеОповещения("ЗаполнитьМаркиЗавершение", ЭтотОбъект);
	ПоказатьВопрос(ОписаниеОповещения, "Заполнить марки?", РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Нет);
	
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьМаркиЗавершение(Ответ, ДопПараметры) Экспорт

a-sitnikov

Процедура ВывестиВсеТаблицыЗапроса(ТабДок, Запрос, ВременныеТаблицы, НеВыводитьПоУмолчанию) Экспорт
	
	МассивРезультатов = Запрос.ВыполнитьПакет();
	
	Макет = Новый ТабличныйДокумент;
	Область = Макет.Область(1, 1,);
	Область.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
	Область.Параметр   = "Имя";
	Область.Шрифт      = Новый Шрифт(,, Истина);
	

a-sitnikov

Процедура ВывестиТаблицу(ТабДок, Таблица, АвтоопределениеШирины = Истина, МинШирина = 10) Экспорт
	
	ШиринаКолонок = Новый Массив;
	
	Макет = Новый ТабличныйДокумент;
	Область = Макет.Область("R1:R2");
	Область.СоздатьФорматСтрок();
	
	Для Счетчик = 1 По Таблица.Колонки.Количество() Цикл
		

a-sitnikov

#Область ОбработчикиСобытийФормы

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Параметры.Свойство("ДополнительнаяОбработкаСсылка", ДополнительнаяОбработкаСсылка);
	
	ВыполнятьвФоне = Истина;
	

a-sitnikov

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

СтруктураДействий = Новый Структура;
СтруктураДействий.Вставить("ПересчитатьСуммуНДС",  СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСумму");
СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомРучнойСкидки",         Новый Структура("Очищать", Ложь));
СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомАвтоматическойСкидки", Новый Структура("Очищать", Истина));
СтруктураДействий.Вставить("ЗаполнитьДубликатыЗависимыхРеквизитов", ЗависимыеРеквизиты());

a-sitnikov

delete from [ИмяБазы].[dbo].[Config] where FileName = 'commit'
delete from [ИмяБазы].[dbo].[Config] where FileName = 'dbStruFinal'
delete from [ИмяБазы].[dbo].[Config] where FileName = 'DynamicallyUpdated' --(для версии 8.3)
delete from [ИмяБазы].[dbo].[Config] where FileName = 'dynamicCommit' --(для версии 8.3)
delete from [ИмяБазы].[dbo].[ConfigSave]

a-sitnikov

USE master;
GO

ALTER DATABASE [uh-sitnikov]
SET SINGLE_USER
WITH ROLLBACK IMMEDIATE;
GO

RESTORE DATABASE [uh-sitnikov] 
FROM  DISK = N'D:\MSSQL\Backup\uh2.bak' 

a-sitnikov

// ==UserScript==
// @name         habrahabr.ru
// @namespace    http://tampermonkey.net/
// @version      1.1
// @description  Flat view of comments + tooltips
// @author       a.sitnikov
// @match        habrahabr.ru/*
// @match        geektimes.ru/*
// @grant        none
// @require      https://code.jquery.com/ui/1.12.1/jquery-ui.min.js