Ввести на основании (на клиенте)

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

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

Записать документ без проведения

ДокОбъект = Ссылка.ПолучитьОбъект(); 

Если  ДокОбъект.Проведен Тогда
    ДокОбъект.Проведен = Истина; 
ИначеЕсли  ДокОбъект.Проведен = Ложь Тогда

ИначеЕсли  ДокОбъект.ПомеченНаУдаления Тогда
    ДокОбъект.ПомеченНаУдаление = Истина;
КонецЕсли;

ДокОбъект.ОбменДанными.Загрузка = Истина; 
ДокОбъект.Записать();

Сократить ссылки через 1С

Что бы сократить ссылку через 1С используя сайт https://clck.ru/ пишем

Процедура КнопкаВыполнитьНажатие(Кнопка)
 Сообщить(СократитьСсылку("http://copyraite.blogspot.com"));    
КонецПроцедуры

Функция СократитьСсылку(Ссылка) Экспорт 
 Ссылка = КодироватьСтроку(Ссылка, СпособКодированияСтроки.КодировкаURL,); 
 Адрес = "https://clck.ru/--?url="+Ссылка;
 
 ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");
 ХМЛХТТП.Open("GET", Адрес, Ложь);
 ХМЛХТТП.Send(Null);
 Возврат СокрЛП(ХМЛХТТП.ResponseText);
КонецФункции

для использования https://is.gd/ сервиса изменяем только адрес сервиса и описания параметров

Процедура КнопкаВыполнитьНажатие(Кнопка)
 Сообщить(СократитьСсылку("http://copyraite.blogspot.com")); 
КонецПроцедуры

Функция СократитьСсылку(Ссылка) Экспорт 
 Ссылка = КодироватьСтроку(Ссылка, СпособКодированияСтроки.КодировкаURL,); 
 Адрес = "https://is.gd/create.php?format=simple&url="+Ссылка;
 
 ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");
 ХМЛХТТП.Open("GET", Адрес, Ложь);
 ХМЛХТТП.Send(Null);
 Возврат СокрЛП(ХМЛХТТП.ResponseText);
КонецФункции

Автоподключение vpn Windows 10

Для автоподключения делаем .bat файл с содержимым
rasdial "VpnAddress" UserName UserPassword

А что бы при каждой авторизации впн соединение "поднималось" закинем его в Task Scheduler с такими настройками

Проверить открыта ли форма?

&НаКлиенте Функция ДокументЗаказНаОтгрузкуОткрыт() Заказ = ПолучитьЗаказНаОтгрузку(); // Ссылка на заказ Если Заказ.Пустая() Тогда Возврат Ложь; КонецЕсли; Окна = ПолучитьОкна(); Для Каждого Окно Из Окна Цикл Если Окно.Заголовок = Строка(Заказ) Тогда Если Вопрос("Для правильной работы формы контроля, открытый подчиненный документ ""ЗаказНаОтгрузку"" должен быть закрыт. Закрыть документ?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда Предупреждение("Команда не может быть выполнена, если есть открытый подчиненный документ ""ЗаказНаОтгрузку"""); Возврат Истина; //ошибка Иначе Если Окно.Содержимое.Количество() = 0 Тогда Предупреждение("Ошибка при закрытии подчиненной формы ""ЗаказКлиента"""); Возврат Истина; //ошибка КонецЕсли; Форма = Окно.ПолучитьСодержимое(); Если Форма <> Неопределено И ТипЗнч(Форма) = Тип("УправляемаяФорма") Тогда Форма.Закрыть(); КонецЕсли; Возврат Ложь; //открытая форма закрыта КонецЕсли; КонецЕсли; КонецЦикла; Возврат Ложь; //открытая форма не найдена КонецФункции