Skip to content

Instantly share code, notes, and snippets.

Anatoliy Sitnikov a-sitnikov

Block or report user

Report or block a-sitnikov

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@a-sitnikov
a-sitnikov / file.bsl
Created Oct 7, 2019
Вывести все таблицы запроса в табличный документ
View file.bsl
Процедура ВывестиВсеТаблицыЗапроса(ТабДок, Запрос, ВременныеТаблицы, НеВыводитьПоУмолчанию) Экспорт
МассивРезультатов = Запрос.ВыполнитьПакет();
Макет = Новый ТабличныйДокумент;
Область = Макет.Область(1, 1,);
Область.Заполнение = ТипЗаполненияОбластиТабличногоДокумента.Параметр;
Область.Параметр = "Имя";
Область.Шрифт = Новый Шрифт(,, Истина);
@a-sitnikov
a-sitnikov / file.bsl
Created Oct 7, 2019
Вывод таблицы значений в табличный документ
View file.bsl
Процедура ВывестиТаблицу(ТабДок, Таблица, АвтоопределениеШирины = Истина, МинШирина = 10) Экспорт
ШиринаКолонок = Новый Массив;
Макет = Новый ТабличныйДокумент;
Область = Макет.Область("R1:R2");
Область.СоздатьФорматСтрок();
Для Счетчик = 1 По Таблица.Колонки.Количество() Цикл
@a-sitnikov
a-sitnikov / form.bsl
Last active Jan 17, 2019
запуск в фоновом задании
View form.bsl
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Параметры.Свойство("ДополнительнаяОбработкаСсылка", ДополнительнаяОбработкаСсылка);
ВыполнятьвФоне = Истина;
@a-sitnikov
a-sitnikov / file.bsl
Last active Jan 17, 2019
Пересчет суммы и НДС - ERP/УТ
View file.bsl
СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПараметрыПересчетаСуммыНДСВСтрокеТЧ(Объект);
СтруктураДействий = Новый Структура;
СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСумму");
СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомРучнойСкидки", Новый Структура("Очищать", Ложь));
СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомАвтоматическойСкидки", Новый Структура("Очищать", Истина));
СтруктураДействий.Вставить("ЗаполнитьДубликатыЗависимыхРеквизитов", ЗависимыеРеквизиты());
@a-sitnikov
a-sitnikov / file.sql
Created Sep 24, 2018
Лечение дин. обновления 1С
View file.sql
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 / Restore.sql
Last active Mar 6, 2018
Restore MSSQL base
View Restore.sql
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
a-sitnikov / user.js
Last active Dec 19, 2017
tapermonkey script for habrahabr.ru
View user.js
// ==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
a-sitnikov / file.bsl
Created Nov 23, 2017
Запрос ADO в таблицу
View file.bsl
Функция ВыполнитьЗапросADO(Соединение, ТекстЗапроса)
НаборЗаписей = Соединение.Execute(ТекстЗапроса);
ТаблицаДанных = Новый ТаблицаЗначений;
Для Счетчик = 0 По НаборЗаписей.Fields.Count - 1 Цикл
ТаблицаДанных.Колонки.Добавить(НаборЗаписей.Fields(Счетчик).Name);
КонецЦикла;
Если НЕ НаборЗаписей.EOF Тогда
@a-sitnikov
a-sitnikov / file.bsl
Created Sep 15, 2017
Перебор паролей на 1С
View file.bsl
&НаКлиенте
Процедура КомандаПеребор(Команда)
Значения = Новый Массив;
Значения.Добавить("а");
Значения.Добавить("б");
Значения.Добавить("в");
МаксЗначение = Значения.Количество() - 1;
@a-sitnikov
a-sitnikov / file.bsl
Last active Nov 1, 2019
Пометки в дереве
View file.bsl
&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьПометкуГруппы(Строка)
ИтогоПометка = 0;
Колво = 0;
Строки = Строка.ПолучитьЭлементы();
Для каждого Строка1 из Строки Цикл
Если Строка1.Пометка = 1 Тогда
You can’t perform that action at this time.