Отбор в ТаблицеЗначений через ПостроительЗапроса

Построитель = Новый ПостроительЗапроса; Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТаблицаЗначений);

тОтбор = Построитель.Отбор.Добавить("КолонкаТЗ"); тОтбор.ВидСравнения = ВидСравнения.Равно; тОтбор.Значение = 1; тОтбор.Использование = Истина;

Построитель.Выполнить(); ТЗ_НЕХватаетНаФОП = Построитель.Результат.Выгрузить();

Несколько запросов в одном ADODB.Connection

Попытка #Область Подключение Connection = Новый COMОбъект("ADODB.Connection"); Connection.Open("driver=MySQL ODBC 5.1 Driver;database="+СокрЛП(DSN)+";server="+СокрЛП(ServerName)+";uid="+СокрЛП(UID)+";pwd="+СокрЛП(PWD)+";STMT=set character_set_results=cp1251;"); #КонецОбласти #Область Запрос Выборка = Connection.Execute("INSERT INTO orders |(id_user, status, first_name, last_name, phone, email, delivery, pay_method, address, comments, cost, price_delivery, name, liqpay_status, city, department, street, house, house_number, sale, city_np_code, department_np_code, promocod, bonus, is_no_call_me, is_gift, first_name_recipient, last_name_recipient, phone_recipient, created_at, updated_at) |VALUES |('429', 'new', 'Ivan', 'Ivanov', '0991234567', 'admin@admin.com', 'in_ukraine', 'nal_pay', 'Kiev, Ivanova 38', 'do 14:00', '228', '40', '', '0', 'Kiev', 'Отделение №3...', 'Ivanova', '38', '306', '0', 'Nova Poshta City Code Here', 'Nova Poshta Department Code Here', '', '96', '0', '1', 'Petr', 'Petrov', '0501234567', CURRENT_TIMESTAMP(), CURRENT_TIMESTAMP());"); Выборка = Connection.Execute("SET @last_id = LAST_INSERT_ID();"); Выборка = Connection.Execute("INSERT INTO orders_product (id_order, id_product, count, price, params, sale) VALUES (@last_id, '113', '1', '350', '', '0');"); Выборка = Connection.Execute("SELECT @last_id;"); #КонецОбласти #Область ВыполнитьЗапрос Пока Выборка.EOF() = 0 Цикл LastID = Выборка.Fields("@last_id").Value; Выборка.MoveNext(); КонецЦикла; #КонецОбласти #Область ЗакрытьСоедениение Выборка.Close(); #КонецОбласти Исключение Сообщить(ОписаниеОшибки()); Возврат Неопределено; КонецПопытки;

Remote Desktop Connection Manager (RDCMan) Failed to decrypt error

Если при открытии desktop connection manager появляеться длинна ошибка с "Remote Desktop Connection Manager (RDCMan) Failed to decrypt error" тогда нужно открыть файл охраненных настроек, например в notepad++, найти и заменить строку <logonCredentials[\s\S]*?<\/logonCredentials> на "", т.е. пустую строку

   

сохранить отредактированный файл.

Получить предыдущее значения реквизита

Перем ПредыдущееЗначениеОрганизации; // значение реквизита "Организация" до записи объекта в базу Процедура ПередЗаписью(Отказ) ПредыдущееЗначениеОрганизации = ...; // с помощью запроса выясняем значение до записи объекта в базу КонецПроцедуры Процедура ПриЗаписи(Отказ) Если ПредыдущееЗначениеРеквизита <> Организация Тогда // отрабатываем изменение значения реквизита при записи ... КонецЕсли; КонецПроцедуры

Перебрать \ получить значения реквизитов формы

МассивРеквизитов = ПолучитьРеквизиты(); СтруктураРеквизитов = Новый Структура; Для Каждого Эл Из МассивРеквизитов Цикл СтруктураРеквизитов.Вставить(Эл.Имя, ЭтаФорма[Эл.Имя]); КонецЦикла;

Найти и удалить Windows (универсальные) приложения

How To Find Removable AppxPackages

######### Create Variables ################ $appxpackages = Get-AppxPackage -AllUsers | % {if($_.SignatureKind -eq “store”){$_.name}} $output = “$env:USERPROFILE\desktop\appxpackages.txt” ######### Get All AppxPackges That Are Removable ################ foreach ($app in $appxpackages){ ######### Get The Location Of The AppxPackage ################ foreach ($location in (Get-AppxPackage -name $app).InstallLocation){ ######### Get The Executable Files Of The AppxPackage ################ $exes = Get-Childitem $location *.exe -Recurse ######### Get Each Individual Executable File Of The AppxPackage ################ foreach ($exe in $exes){ ######### Get The Name Executable File Of The AppxPackage ################ $name = ($exe).name ######### Verify Accesabiliy To The Executable File Of The AppxPackage ################ $testpath = Test-Path “$location\$name“ if ($testpath -eq $true){ foreach ($n in $name) { ######### Get The Application Name Of The Executable File Of The AppxPackage ################ $appname = (Get-Item “$location\$name“).versioninfo.productname if ($appname -ne $null){ ######### Output The Application Name And AppxPackage Name To The User’s Desktop ################ if ($appname -ne “”){ “Application Name: $appname“| Out-File $output -NoClobber -Append “AppxPackage Name: $app” | Out-File $output -NoClobber -Append “———————————-” | Out-File $output -NoClobber -Append } } } } } } }

Оригинал

Открыть форму выбора с отбором 1С

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

Установить курсор на строке таблицы значений 1С

Что бы установить курсор на последней строке таблицы значений, пишем

Элементы.ТаблицаЗначений.ТекущаяСтрока = ЭтаФорма.ТаблицаЗначений.Получить(ТаблицаЗначений.Количество()-1).ПолучитьИдентификатор();

Элементы.ТаблицаЗначений.ТекущаяСтрока = Объект.ТаблицаЗначений.Получить(Объект.ТаблицаЗначений.Количество()-1).ПолучитьИдентификатор(); //установить актиувную строку