wmic diskdrive get Name, Manufacturer, Model, InterfaceType, MediaType, SerialNumber
GPResult /h C:\GPResult.html
secedit /configure /cfg %windir%\inf\defltbase.inf /db defltbase.sdb /verboseа далее
shutdown /r
rd /s /q "%windir%\System32\GroupPolicyUsers"а далее
gpupdate /forceну а далее
shutdown /r
wmic baseboard get Manufacturer, Model, Name, PartNumber, serialnumberв командной строке
%HOMEPATH%\AppData\Local\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe
%HOMEPATH%\AppData\Local\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbweсогласившись на замену
Процедура ПроцедураОбработчикаОжидания() Форма.Обновить(); КонецПроцедуры
Форма.ОбработкаОжидания("ПроцедураОбработчикаОжидания",1);
Функция ПолучитьСписокДокументовФильтров() АрхивТТН = СоздатьОбъект("Справочник.АрхивТТН"); СписокСТатусов = СоздатьОбъект("СписокЗначений"); СписокДокументов = СоздатьОбъект("СписокЗначений"); Если Новый = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.Новый); КонецЕсли; Если Отправлен = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.Отправлен); КонецЕсли; Если Закрыт = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.Закрыт); КонецЕсли; Если Отмена = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.Отмена); КонецЕсли; Если ПрибылоНаСкладПокупателя = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.ПрибылоНаСкладПокупателя); КонецЕсли; Если ЦПОтправлено = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.ЦПОтправлено); КонецЕсли; Если ФПОтправлено = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.ФПОтправлено); КонецЕсли; Если ВозвратТовара = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.ВозвратТовара); КонецЕсли; Если М1 = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.М1); КонецЕсли; Если М2 = 1 Тогда СписокСТатусов.ДобавитьЗначение(Перечисление.СтатусДокумента.М2); КонецЕсли; СписокСТатусов.Сортировать(0,); Для Индекс = 1 По СписокСТатусов.РазмерСписка() Цикл АрхивТТН.ВыбратьЭлементыПоРеквизиту("Статус",СписокСТатусов.ПолучитьЗначение(Индекс),,0); Пока АрхивТТН.ПолучитьЭлемент() = 1 Цикл СписокДокументов.ДобавитьЗначение(АрхивТТН.ТекущийЭлемент()); КонецЦикла; КонецЦикла; СписокДокументов.Сортировать(0,); Возврат СписокДокументов; КонецФункции
Функция УстановитьФильтры() СписокДокументов = ПолучитьСписокДокументовФильтров(); ИспользоватьСписокЭлементов(СписокДокументов); Форма.Обновить(1); КонецФункции
?(Новый = 1,УстановитьФильтры(Перечисление.СтатусДокумента.Новый,1),УстановитьФильтры(Перечисление.СтатусДокумента.Новый,0))ну типа, если флажок установлен, тогда мы в функцию передаем по какому фильтру мы
Перем АрхивТТН; Перем СписокСтатусов; Функция ПодготовитьФильтр(СтатусПоиска,ДобавитьУдалить) Если ДобавитьУдалить = 1 Тогда //добавляем АрхивТТН.ВыбратьЭлементыПоРеквизиту("Статус",СтатусПоиска,,0); Пока АрхивТТН.ПолучитьЭлемент() = 1 Цикл НайденныйЭлемент = СписокСтатусов.НайтиЗначение(АрхивТТН.ТекущийЭлемент()); Если НайденныйЭлемент= 0 Тогда //документ добавляем в список фильтров СписокСтатусов.ДобавитьЗначение(АрхивТТН.ТекущийЭлемент()); Иначе //документ уже есть в списке фильтров Продолжить; КонецЕсли; КонецЦикла; Иначе //удаляем АрхивТТН.ВыбратьЭлементыПоРеквизиту("Статус",СтатусПоиска,,0); Пока АрхивТТН.ПолучитьЭлемент() = 1 Цикл НайденныйЭлемент = СписокСтатусов.НайтиЗначение(АрхивТТН.ТекущийЭлемент()); Если НайденныйЭлемент <> 0 Тогда //элемент найден в списке фильтров СписокСтатусов.УдалитьЗначение(НайденныйЭлемент); КонецЕсли; КонецЦикла; КонецЕсли; Возврат СписокСтатусов; КонецФункции Функция УстановитьФильтры(СтатусПоиска,ДобавитьУдалить) СписокСтатусов = ПодготовитьФильтр(СтатусПоиска,ДобавитьУдалить); Если СписокСтатусов.РазмерСписка() = 0 Тогда ИспользоватьСписокЭлементов(); Иначе ИспользоватьСписокЭлементов(СписокСтатусов); КонецЕсли; КонецФункции АрхивТТН = СоздатьОбъект("Справочник.АрхивТТН"); СписокСтатусов = СоздатьОбъект("СписокЗначений");
ВЫРАЗИТЬ(ПолеНеОграниченнойДлинны КАК Строка(200))
{ХАРАКТЕРИСТИКИ
ТИП(Справочник.Номенклатура)
ВИДЫХАРАКТЕРИСТИК (ВЫБРАТЬ
СвойстваОбъектов.Ссылка,
СвойстваОбъектов.ТипЗначения,
"Свойство: " + СвойстваОбъектов.Наименование КАК Наименование
ИЗ
ПланВидовХарактеристик.СвойстваОбъектов КАК СвойстваОбъектов
ГДЕ
СвойстваОбъектов.НазначениеСвойства = ЗНАЧЕНИЕ(ПланВидовХарактеристик.НазначенияСвойствКатегорийОбъектов.Справочник_Номенклатура))
ПОЛЕКЛЮЧА Ссылка
ПОЛЕИМЕНИ Наименование
ПОЛЕТИПАЗНАЧЕНИЯ ТипЗначения
ЗНАЧЕНИЯХАРАКТЕРИСТИК РегистрСведений.ЗначенияСвойствОбъектов
ПОЛЕОБЪЕКТА Объект
ПОЛЕВИДА Свойство
ПОЛЕЗНАЧЕНИЯ Значение }
{ХАРАКТЕРИСТИКИ
ТИП(Справочник.Номенклатура)
ВИДЫХАРАКТЕРИСТИК (ВЫБРАТЬ
КатегорииОбъектов.Ссылка,
"Категория: " + КатегорииОбъектов.Наименование КАК Наименование
ИЗ
Справочник.КатегорииОбъектов КАК КатегорииОбъектов
ГДЕ
КатегорииОбъектов.НазначениеКатегории = ЗНАЧЕНИЕ(ПланВидовХарактеристик.НазначенияСвойствКатегорийОбъектов.Справочник_Номенклатура))
ПОЛЕКЛЮЧА Ссылка
ПОЛЕИМЕНИ Наименование
ЗНАЧЕНИЯХАРАКТЕРИСТИК РегистрСведений.КатегорииОбъектов
ПОЛЕОБЪЕКТА Объект
ПОЛЕВИДА Категория
}
Взято с ссылка
Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога,ФСО) Если ИдентЭлемДиалога = "Док" Тогда Если ПустоеЗначение(Док) = 0 Тогда ФСО = 0; ОткрытьФорму(Док); КонецЕсли; КонецЕсли; КонецПроцедурыТеперь при нажатии на реквизит Регистратор (Док) откроется сразу форма документа,
Процедура ПриВыбореСтроки() Если Форма.ТекущаяКолонка() = "Док" Тогда Если ПустоеЗначение(Док) = 0 Тогда ОткрытьФорму(Док); КонецЕсли; Иначе ОбТМЦ = СоздатьОбъект("Справочник.АрхивТТН"); ОбТМЦ.НайтиПоКоду(Код,0); ОткрытьФорму(ОбТМЦ.ТекущийЭлемент()); КонецЕсли; КонецПроцедуры Форма.ОбработкаВыбораСтроки(1);
Док = СоздатьОбъект("Документ.ПКО"); //назначем реквизиту Субконтотип Справочник.Номенклатура Док.НазначитьТип("Субконто","Справочник.Номенклатура");
Попытка ТекстовыйДокумент = СоздатьОбъект("Текст"); ТекстовыйДокумент.Записать("D:\1.xml"); ТекстовыйДокумент.Открыть("D:\1.xml"); ТекстовыйДокумент.ДобавитьСтроку(ИмяВыбрФайла); ТекстовыйДокумент.КодоваяСтраница(0); ТекстовыйДокумент.Записать("D:\1.xml"); Предупреждение("ОК"); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки;
CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07