Сентябрь 2020

1С: выполнение запроса в другой базе

30.09.2020 Павел Грибов 1C

Задача: из текущей базы получить данные другой базы

Решение: используем COM соедниение

Функция ПолучитьПодключениеКСервернойБД()
	ПараметрыСоед = "Srvr='"+объект.Сервер+"';Ref='"+объект.ИмяБазы+"';Usr='"+объект.Логин+"';Pwd='"+объект.Пароль+"';";
	V83COMConnector= Новый COMОбъект("V83.COMConnector");
	Попытка
		Base1С = V83COMConnector.Connect(ПараметрыСоед);
		сообщить(Base1С);
	Исключение
		сообщить ("Ошибка подключения!");
		Base1С=неопределено;
	КонецПопытки;
    возврат Base1С;
КонецФункции

функция ПолучитьОстаткиВТекущейБазе(Дата1,ЛицевойСчет)
//получаю остатки
		Запрос = Новый Запрос;
		Запрос.Текст = 
			"ВЫБРАТЬ
			|	vscРасчетыСАбонентамиОстаткиИОбороты.Тариф КАК Тариф,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги КАК ВидУслуги,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления КАК ВидНачисления,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку КАК ДоговорНаПоставку,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток КАК РасходКонечныйОстаток
			|ИЗ
			|	РегистрНакопления.vscРасчетыСАбонентами.ОстаткиИОбороты(ДАТАВРЕМЯ(2000, 1, 1, 0, 0, 0), &Дата1, , , ) КАК vscРасчетыСАбонентамиОстаткиИОбороты
			|ГДЕ
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ЛицевойСчет = &ЛицевойСчет
			|	И vscРасчетыСАбонентамиОстаткиИОбороты.ВидРасчетов <> ЗНАЧЕНИЕ(Перечисление.vscВидыРасчетов.Корректировка)
			|
			|СГРУППИРОВАТЬ ПО
			|	vscРасчетыСАбонентамиОстаткиИОбороты.Тариф,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток";
		
		Запрос.УстановитьПараметр("Дата1", КонецДня(Дата1)+1);
		Запрос.УстановитьПараметр("ЛицевойСчет", ЛицевойСчет);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

возврат ВыборкаДетальныеЗаписи;

конецфункции

Функция ПолучитьПодключениеКСервернойБД()

ПараметрыСоед = "Srvr='"+объект.Сервер+"';Ref='"+объект.ИмяБазы+"';Usr='"+объект.Логин+"';Pwd='"+объект.Пароль+"';";

V83COMConnector= Новый COMОбъект("V83.COMConnector");

Попытка

Base1С = V83COMConnector.Connect(ПараметрыСоед);

сообщить(Base1С);

Исключение

сообщить ("Ошибка подключения!");

Base1С=неопределено;

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

возврат Base1С;

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

функция ПолучитьОстаткиВТекущейБазе(Дата1,ЛицевойСчет)

//получаю остатки

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| vscРасчетыСАбонентамиОстаткиИОбороты.Тариф КАК Тариф,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги КАК ВидУслуги,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления КАК ВидНачисления,

| vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку КАК ДоговорНаПоставку,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток КАК РасходКонечныйОстаток

|ИЗ

| РегистрНакопления.vscРасчетыСАбонентами.ОстаткиИОбороты(ДАТАВРЕМЯ(2000, 1, 1, 0, 0, 0), &Дата1, , , ) КАК vscРасчетыСАбонентамиОстаткиИОбороты

|ГДЕ

| vscРасчетыСАбонентамиОстаткиИОбороты.ЛицевойСчет = &ЛицевойСчет

| И vscРасчетыСАбонентамиОстаткиИОбороты.ВидРасчетов <> ЗНАЧЕНИЕ(Перечисление.vscВидыРасчетов.Корректировка)

|СГРУППИРОВАТЬ ПО

| vscРасчетыСАбонентамиОстаткиИОбороты.Тариф,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления,

| vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток";

Запрос.УстановитьПараметр("Дата1", КонецДня(Дата1)+1);

Запрос.УстановитьПараметр("ЛицевойСчет", ЛицевойСчет);

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

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

возврат ВыборкаДетальныеЗаписи;

конецфункции

Обратить внимание! В качестве передаваемых параметров нельзя использовать объекты. ТОЛЬКО примитивные типы. Типа строка,номер и т.д.

Оставить комментарий выборка, другая бд

Boulder Dash в консоли..

28.09.2020 Павел Грибов Linux

Дождались! Теперь в культовый Boulder Dash можно поиграть на сервере в консоли SSH. Что для этого сделать?

1. Скачать исходники здесь: https://sourceforge.net/projects/ascii-dash/files/
2. Распаковать. Заменить файл sounds.cpp, моим «патченным». Патч отключает использование звуковой карты (какая на сервере может быть звуковая карта??)
3. Скомпилировать согласно иструкции из readme.txt

Наслаждайтесь…

Оставить комментарий

Windows со встроенным SSH клиентом

28.09.2020 Павел Грибов Linux

Сегодня стало для меня открытием, что Windows 10 содержит в «базе» SSH и Telnet клиенты. С одним нюансом — подключается к удаленным серверам с кодировкой локали cp1251. Соответственно, чтобы полноценно работать на удаленном клиенте, нужно поставить локаль ru_RU.cp1251, при помощи:

apt-get install locales
dpkg-reconfigure locales

1 2	apt-get install locales dpkg-reconfigure locales

Выбрать помимо en_US.UTF8, еще и ru_RU.cp1251

Оставить комментарий

Как найти все устройства в сети

23.09.2020 Павел Грибов Linux

С Ubuntu это сделать проще простого

sudo arp-scan --interface=wlp3s0 --localnet

1	sudo arp-scan --interface=wlp3s0 --localnet

Оставить комментарий arp, поиск устройств

Определение длины строки в запросе 1С

21.09.2020 Павел Грибов 1C

Как извесно боль запросов 1С, в невозможности «штатно» определить длину строки в запросе. Вот один из обходных «велосипедов»:

&НаСервере
Процедура ПроанализироватьНаСервере(имя)	
		
	
	ТекстДерево = Дерево("ацукацукацук.Поле_1_1", -1, 300); 
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ ПЕРВЫЕ 1
		|    " + ТекстДерево + " КАК Длина
		|ИЗ
		|	РегистрСведений.ацукацукацук КАК ацукацукацук
		|УПОРЯДОЧИТЬ ПО
    	|    Длина УБЫВ";
		
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		сообщить(ВыборкаДетальныеЗаписи.Длина);
	КонецЦикла;	


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

&НаСервере
Функция Дерево(Реквизит, Начало, Конец) Экспорт
    Если Начало + 1 = Конец Тогда
        Возврат Строка(Конец);
    КонецЕсли;
    Середина = Начало + Цел((Конец - Начало) / 2);
    СтрокаДерево = "ВЫБОР КОГДА ПОДСТРОКА(" + Реквизит + ", " + (Середина + 1) + ", 3) = """" ТОГДА " 
        + Дерево(Реквизит, Начало, Середина) + " ИНАЧЕ " + Дерево(Реквизит, Середина, Конец) + " КОНЕЦ";
    Возврат СтрокаДерево;
КонецФункции

&НаСервере

Процедура ПроанализироватьНаСервере(имя)

ТекстДерево = Дерево("ацукацукацук.Поле_1_1", -1, 300);

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ ПЕРВЫЕ 1

| " + ТекстДерево + " КАК Длина

|ИЗ

| РегистрСведений.ацукацукацук КАК ацукацукацук

|УПОРЯДОЧИТЬ ПО

| Длина УБЫВ";

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

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

сообщить(ВыборкаДетальныеЗаписи.Длина);

КонецЦикла;

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

&НаСервере

Функция Дерево(Реквизит, Начало, Конец) Экспорт

Если Начало + 1 = Конец Тогда

Возврат Строка(Конец);

КонецЕсли;

Середина = Начало + Цел((Конец - Начало) / 2);

СтрокаДерево = "ВЫБОР КОГДА ПОДСТРОКА(" + Реквизит + ", " + (Середина + 1) + ", 3) = """" ТОГДА "

+ Дерево(Реквизит, Начало, Середина) + " ИНАЧЕ " + Дерево(Реквизит, Середина, Конец) + " КОНЕЦ";

Возврат СтрокаДерево;

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

Оставить комментарий 1с, длина строки, запрос

1 2 3 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30