Skip to content

Instantly share code, notes, and snippets.

View a-sitnikov's full-sized avatar

Anatoliy Sitnikov a-sitnikov

  • Russia, Moscow
View GitHub Profile
@a-sitnikov
a-sitnikov / file.bsl
Created November 23, 2017 12:57
Запрос ADO в таблицу
Функция ВыполнитьЗапросADO(Соединение, ТекстЗапроса)
НаборЗаписей = Соединение.Execute(ТекстЗапроса);
ТаблицаДанных = Новый ТаблицаЗначений;
Для Счетчик = 0 По НаборЗаписей.Fields.Count - 1 Цикл
ТаблицаДанных.Колонки.Добавить(НаборЗаписей.Fields(Счетчик).Name);
КонецЦикла;
Если НЕ НаборЗаписей.EOF Тогда
@a-sitnikov
a-sitnikov / file.bsl
Created September 15, 2017 13:16
Перебор паролей на 1С
&НаКлиенте
Процедура КомандаПеребор(Команда)
Значения = Новый Массив;
Значения.Добавить("а");
Значения.Добавить("б");
Значения.Добавить("в");
МаксЗначение = Значения.Количество() - 1;
@a-sitnikov
a-sitnikov / file.bsl
Last active November 1, 2019 14:05
Пометки в дереве
&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьПометкуГруппы(Строка)
ИтогоПометка = 0;
Колво = 0;
Строки = Строка.ПолучитьЭлементы();
Для каждого Строка1 из Строки Цикл
Если Строка1.Пометка = 1 Тогда
@a-sitnikov
a-sitnikov / file.bsl
Last active April 26, 2024 07:26
Передача файла с клиента на сервер
&НаКлиенте
Процедура Загрузить(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьЗавершение", ЭтотОбъект);
НачатьПомещениеФайлаНаСервер(ОписаниеОповещения,,,, ИмяФайла , УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьЗавершение(ОписаниеФайла, ДопПараметры) Экспорт
@a-sitnikov
a-sitnikov / file.bsl
Last active November 15, 2019 05:24
Передача файла с сервера на клиент
&НаКлиенте
Процедура Сохранить(Команда)
Адрес = СохранитьНаСервере();
Описание = Новый ОписаниеПередаваемогоФайла(Объект.ИмяФайла, Адрес);
МассивОписаний = Новый Массив;
МассивОписаний.Добавить(Описание);
ПолучитьФайлы(МассивОписаний,,,Ложь);
Состояние("Файл сохранен");
@a-sitnikov
a-sitnikov / user.js
Last active August 13, 2017 04:29
ixbt tapermonkey script
// ==UserScript==
// @name ixbt
// @namespace http://tampermonkey.net/
// @version 0.12
// @description try to take over the world!
// @author You
// @match http://www.ixbt.com/*
// @grant none
// @downloadURL https://gist.githubusercontent.com/a-sitnikov/8b250eaecfb5114e35c2b1c002397daa/raw/user.js
// @updateURL https://gist.githubusercontent.com/a-sitnikov/8b250eaecfb5114e35c2b1c002397daa/raw/user.js
@a-sitnikov
a-sitnikov / DeleteFile.sql
Created May 23, 2017 12:54
Delete file on MS SQl server via sql
EXEC sp_configure 'show advanced options', 1
RECONFIGURE
EXEC sp_configure 'xp_cmdshell', 1
RECONFIGURE
EXEC xp_cmdshell "del /Q E:\Temp\erp.bak"
EXEC sp_configure 'xp_cmdshell', 0
RECONFIGURE
--http://blogs.msdn.com/b/bartd/archive/2007/07/19/are-you-using-sql-s-missing-index-dmvs.aspx
--http://infostart.ru/public/128175/
SELECT
migs.avg_total_user_cost * (migs.avg_user_impact / 100.0) * (migs.user_seeks + migs.user_scans) AS improvement_measure,
'CREATE INDEX [missing_index_' + CONVERT (varchar, mig.index_group_handle) + '_' + CONVERT (varchar, mid.index_handle)
+ '_' + LEFT (PARSENAME(mid.statement, 1), 32) + ']'
+ ' ON ' + mid.statement
+ ' (' + ISNULL (mid.equality_columns,'')
+ CASE WHEN mid.equality_columns IS NOT NULL AND mid.inequality_columns IS NOT NULL THEN ',' ELSE '' END
@a-sitnikov
a-sitnikov / get-imap.js
Created May 23, 2017 09:28
work with imap
const Imap = require('imap');
let imap = new Imap({
user: 'user@mail.ru',
password: 'pass',
host: 'imap.mail.ru',
port: 993,
tls: true
});
function imapConnect(imap) {
@a-sitnikov
a-sitnikov / _run-update.bat
Last active April 18, 2022 11:31
Автоматическое обновление базы 1С
cd /D "%~dp0"
cscript.exe erp.js