Попытка
#Область Подключение
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();
#КонецОбласти
Исключение
Сообщить(ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
18 нояб. 2018 г.
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> на "", т.е. пустую строку
сохранить отредактированный файл.
29 авг. 2018 г.
Получить предыдущее значения реквизита
Перем ПредыдущееЗначениеОрганизации; // значение реквизита "Организация" до записи объекта в базу
Процедура ПередЗаписью(Отказ)
ПредыдущееЗначениеОрганизации = ...; // с помощью запроса выясняем значение до записи объекта в базу
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если ПредыдущееЗначениеРеквизита <> Организация Тогда
// отрабатываем изменение значения реквизита при записи
...
КонецЕсли;
КонецПроцедуры
Перебрать \ получить значения реквизитов формы
МассивРеквизитов = ПолучитьРеквизиты();
СтруктураРеквизитов = Новый Структура;
Для Каждого Эл Из МассивРеквизитов Цикл
СтруктураРеквизитов.Вставить(Эл.Имя, ЭтаФорма[Эл.Имя]);
КонецЦикла;
Найти и удалить 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 } } } } } } }
Оригинал
######### 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 } } } } } } }
Оригинал
Подписаться на:
Сообщения (Atom)
