a-sitnikov

&НаКлиенте
Процедура Сохранить(Команда)
	
	Адрес = СохранитьНаСервере();
	Описание = Новый ОписаниеПередаваемогоФайла(Объект.ИмяФайла, Адрес);
	МассивОписаний = Новый Массив;
	МассивОписаний.Добавить(Описание);
	ПолучитьФайлы(МассивОписаний,,,Ложь);
	
	Состояние("Файл сохранен");

a-sitnikov

&НаКлиенте
Процедура Загрузить(Команда)
	
    ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьЗавершение", ЭтотОбъект);
    НачатьПомещениеФайлаНаСервер(ОписаниеОповещения,,,, ИмяФайла , УникальныйИдентификатор);
	
КонецПроцедуры

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

a-sitnikov

&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьПометкуГруппы(Строка)
	
	ИтогоПометка = 0;
	Колво        = 0;
	
	Строки = Строка.ПолучитьЭлементы();
	Для каждого Строка1 из Строки Цикл
		
		Если Строка1.Пометка = 1 Тогда

a-sitnikov

&НаКлиенте
Процедура КомандаПеребор(Команда)
	
	Значения = Новый Массив;
	Значения.Добавить("а");
	Значения.Добавить("б");
	Значения.Добавить("в");
	
	МаксЗначение = Значения.Количество() - 1;

a-sitnikov

Функция ВыполнитьЗапросADO(Соединение, ТекстЗапроса)
	
	НаборЗаписей = Соединение.Execute(ТекстЗапроса);
	
	ТаблицаДанных = Новый ТаблицаЗначений;
	Для Счетчик = 0 По НаборЗаписей.Fields.Count - 1 Цикл
		ТаблицаДанных.Колонки.Добавить(НаборЗаписей.Fields(Счетчик).Name);
	КонецЦикла;	
	
	Если НЕ НаборЗаписей.EOF Тогда		

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

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

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

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

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

a-sitnikov

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

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