evgenylavelin-xx

ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Организация"   , Организация);
ПараметрыОтбора.Вставить("БанковскийСчет", БанковскийСчет);

ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("Отбор", ПараметрыОтбора);			

ОткрытьФорму("РегистрСведений.ИмяРегистра.Форма.ФормаСписка", ПараметрыФормы);

evgenylavelin-xx

&НаКлиенте
Перем ВыполняетсяЗакрытие;

&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
	
	Если Не Модифицированность Тогда 
		Возврат;
	КонецЕсли;	
	

evgenylavelin-xx

// Процедура - Восстанавливает настройки из хранилища общих настроек
&НаСервере
Функция ВосстановитьНастройкиНаСервере()

  Перем СохраненноеЗначение;

	ключОбъекта      = "Обработка.ИмяОбработки";
	ключНастроек     = "Обработка.ИмяОбработки.ИмяСохраняемогоПараметра";
	описаниеНастроек = "Описание настройки";
	имяПользователя  = ПользователиИнформационнойБазы.ТекущийПользователь().Имя;

evgenylavelin-xx

=ЕНД(ПОИСКПОЗ(СЖПРОБЕЛЫ(a1);$B$2:$B$5000;0))

evgenylavelin-xx

fso      =    Новый COMОбъект("scripting.fileSystemObject");
Сообщить(Окр(Число(fso.getDrive(fso.GetDriveName("d:\")).freeSpace())/1024/1024, 2));

evgenylavelin-xx

[master].dbo.xp_FixedDrives

evgenylavelin-xx

&НаСервере
// Определяет, является ли символ разделителем.
//
// Параметры:
//  КодСимвола      - Число  - код проверяемого символа;
//  РазделителиСлов - Строка - символы разделителей.
//
// Возвращаемое значение:
//  Булево - истина, если символ является разделителем.
//

evgenylavelin-xx

//Получаем схему из макета
СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

//Из схемы возьмем настройки по умолчанию
Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;

//Помещаем в переменную данные о расшифровке данных
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

//Формируем макет, с помощью компоновщика макета

evgenylavelin-xx

ALTER DATABASE DATABASENАМЕ
SET MULTI_USER;
GO

evgenylavelin-xx

// Автор: Сергей (ildarovich, http://infostart.ru/profile/28527/)
Функция СтрокаВДату(Знач ФорматДаты, Знач СтрокаСДатой, Ошибка = Ложь) Экспорт 
	
	Попытка 
        тест = Формат('00010101', "ДФ=" + ФорматДаты) // - проверка корректности параметра ФорматДата
    Исключение 
        Ошибка = Истина; 
        Возврат '00010101' 
	КонецПопытки;