Архивы 1C - Страница 19 из 46

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);

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

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

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

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

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

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

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

Определение длины строки в запросе 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С: Выделение цветом ячеек в таблице значений на форме

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

Задача: раскрасить ячейки в ТЗ на форме в зависимости от условий.

Решение: будем использовать условное оформление, которое назначается перед выводом формы на экран. Например в процедуре «ПриСозданииНаСервере»

	ЭлементОформления = УсловноеОформление.Элементы.Добавить();	 
	Оформление  = УсловноеОформление.Элементы.Добавить();
 	Оформление.Использование = Истина;
	 Поле1 = Оформление.Поля.Элементы.Добавить();
	 Поле1.Поле = Новый ПолеКомпоновкиДанных("тчСумма");
	 Отбор = Оформление.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
	 Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.тч.СуммаПениНачисленная");
	 Отбор.ПравоеЗначение = 0;
	 Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно;
	 Отбор.Использование = Истина;
	 Оформление.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Аквамарин);

ЭлементОформления = УсловноеОформление.Элементы.Добавить();

Оформление = УсловноеОформление.Элементы.Добавить();

Оформление.Использование = Истина;

Поле1 = Оформление.Поля.Элементы.Добавить();

Поле1.Поле = Новый ПолеКомпоновкиДанных("тчСумма");

Отбор = Оформление.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.тч.СуммаПениНачисленная");

Отбор.ПравоеЗначение = 0;

Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно;

Отбор.Использование = Истина;

Оформление.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Аквамарин);

Один комментарий 1с, выделение ячеек цветом, условное оформление

1С: Удаление записи из регистра накопления по регистратору и измерению (отбор)

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

Задача: удалить записи из регистра накопления по регистратору + условию. Т.е. есть несколько записей с одним регистратором, но разными измерениями. Необходимо удалить только нужные. Казалось бы тривиальная задача..но.. «штатными » средставами это сделать не удалось.

Решение:

Сделаем отбор по регистратору
Переберем выборку, отберем те записи, которые необходимо удалить
Удалим их

Код примерно такой:

 НаборЗаписей = РегистрыНакопления.vscРасчетыСАбонентами.СоздатьНаборЗаписей();
		НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);		
        НаборЗаписей.Прочитать();
		УдаляемыеЗаписи = Новый Массив;
		Для Каждого Запись Из НаборЗаписей Цикл
			если Запись.ЛицевойСчет=объект.ЛицевойСчет тогда
				УдаляемыеЗаписи.Добавить(Запись);
			конецесли;				
		конеццикла;	
	 	Для Каждого УдаляемаяЗапись Из УдаляемыеЗаписи Цикл
     		НаборЗаписей.Удалить(УдаляемаяЗапись);
		КонецЦикла;	
		НаборЗаписей.Записать();

НаборЗаписей = РегистрыНакопления.vscРасчетыСАбонентами.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);

НаборЗаписей.Прочитать();

УдаляемыеЗаписи = Новый Массив;

Для Каждого Запись Из НаборЗаписей Цикл

если Запись.ЛицевойСчет=объект.ЛицевойСчет тогда

УдаляемыеЗаписи.Добавить(Запись);

конецесли;

конеццикла;

Для Каждого УдаляемаяЗапись Из УдаляемыеЗаписи Цикл

НаборЗаписей.Удалить(УдаляемаяЗапись);

КонецЦикла;

НаборЗаписей.Записать();

UPDATE:

А можно и еще проще и быстрее:

НаборЗаписей = РегистрыСведений.vscРасчетыСАбонентами.СоздатьНаборЗаписей(); 
НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);
НаборЗаписей.Прочитать();

ТЗНабора=НаборЗаписей.Выгрузить();
ТЗНабора = ТЗНабора.Скопировать(Новый Структура("ЛицевойСчет", ЛицевойСчет));
НаборЗаписей.Загрузить(ТЗНабора);

НаборЗаписей = РегистрыСведений.vscРасчетыСАбонентами.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(Регистратор);

НаборЗаписей.Прочитать();

ТЗНабора=НаборЗаписей.Выгрузить();

ТЗНабора = ТЗНабора.Скопировать(Новый Структура("ЛицевойСчет", ЛицевойСчет));

НаборЗаписей.Загрузить(ТЗНабора);

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

1С: Не удалось зафиксировать таблицу для чтения «Users»

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

Данная ошибка возникает при работе с хранилищем. Чистка кэша, перезагрузка всего и вся — не помогает.

Решение 1 (некоторым помогает): удалить в окне 1С предприятие строчку соединения с базой и снова её создать. Переподключиться к хранилищу.

Решение 2 : перезапустить сервер 1с Предприятие, перезагрузить серер вообще..

Оставить комментарий users, хранилище

« 1 … 17 18 19 20 21 … 46 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						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	31