craftonec

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

craftonec

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

craftonec

 <center><?php
 print get_num_queries(). ' - столько SQL запросов к базе1.<br />'.
 timer_stop(0, 6). ' - за столько сгенерировалась страница.';
 ?></center>

craftonec

SELECT  @@Servername AS ServerName ,
        create_date AS  ServerStarted ,
        DATEDIFF(s, create_date, GETDATE()) / 86400.0 AS DaysRunning ,
        DATEDIFF(s, create_date, GETDATE()) AS SecondsRunnig
FROM    sys.databases
WHERE   name = 'tempdb';

craftonec

	Попытка
		
		//версия программного обеспечения
		Shell = Новый COMОбъект("WScript.Shell");
		Ключ = "HKEY_LOCAL_MACHINE\SOFTWARE\1C-Rarus\SoftPhone\Versions\";
		ВерсияПанели = Shell.RegRead(Ключ + "Client 2.0");
		
		//версия windows
		Shell = Новый COMОбъект("WScript.Shell");
		Ключ  = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\";

craftonec

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	
	ПараметрСКД         = Новый ПараметрКомпоновкиДанных("Владелец");
	ЗначениеПараметрСКД = Справочники.Клиенты.Личное;
		
	КомпоновщикНастроек.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра(ПараметрСКД, ЗначениеПараметрСКД);
	
КонецПроцедуры

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)