Добрый день!
Маленький пример по сохранению данных в формат XML

function SaveXMLToFile() {
	var Dataset = Services.GetNewItemByUSI('ds_Account');
	Dataset.Open();
	var XMLStorage = GetNewXMLStorage();
	XMLStorage.LoadFromDataset(Dataset, 'QueryData');
	XMLStorage.SaveToFile('c:\\qq.xml');
	Dataset.Close();
}

Еще можно посмотреть примеры работой с XML в сервисе wnd_CalendarExchangeScript, начиная с функции SaveCalendarToFile

Спасибо

Та же проблема, обошли костылем

Так ведь шаблоны можно редактировать не вручную, а по вкладке Add-Ins в редакторе письма. Если в Аутлуке включена интеграция с Террасофтом, там есть кнопки "Макросы" и "Детали".

У меня при попытке сгенерировать макрос для детали в ячейку таблицы написало:

<#Контакты в задаче.Номер>

Попробуйте так, с диезом только в начале.

используйте

System.OpenFile(URL, 1);

система сама разберется, что это URL, а не FilePath и откроет браузер по-умолчанию

"Андросов Дмитрий" написал:
System.OpenFile(URL, 1);

Здравствуйте.
Рекомендую ознакомиться с материалами:
https://www.fast-report.com/ru/download/documentation/
https://www.youtube.com/playlist?list=PLZiHwzd4brhQhi8RfziKQX7v0Xp6Cxx0b
Возможно будет полезным.

Должно работать на SD 3.x.
Почему у вас не получилось? Какие то ошибки? Предоставьте, пожалуйста, более подробную информацию.

Никаких ошибок, но и действий никаких не происходит. Оно должно отработать на Файлы - Операции - Сохранить в файл?

По идее да. Но нужно выделить через Ctrl несколько файлов на детали. Если будет выделен один - один и сохранится.

Выяснил, что не проходит проверка
if (Dat('ItemTypeID') != ft_File) {
continue;
}
и оно улетает на следующий круг цикла

Это проверка необходима, т.к. на детали файлы могут хранится не только файлы, но и ссылки.
Возможно у вас были какие либо доработки? Посмотрите в отладчике что у вас здесь

Dat('ItemTypeID')

при сохранении именно файла, и если это значение не совпадает с ft_File - замените.

Не пойму, как заполучить Dat('ItemTypeID'). Инструкция Log.Write(1, Dat('ItemTypeID')) падает на ошибке типов

Какой у вас отладчик стоит?

Боюсь, что никакого, потому и ковыряю через запись в лог :-) Или что-то подтянулось при установке ServiceDesk, но не знаю как это запустить.

Есть возможность поставить Visual Studio? Думаю, все ровно пригодится, если будете дорабатывать конфигурацию в будущем.

Если поставите, то перед строкой
if (Dat('ItemTypeID') != ft_File) {

наберите

debugger;

и посмотрите что же все таки в Dat('ItemTypeID').

пс: перед этим не забудьте включить в реестре отладчик:

HKEY_CURRENT_USER\Software\Microsoft\Windows Script\Settings

JitDebug = 1

переустановил SreviceDesk с предлагаемыми дебаггерами. Теперь на точке "debugger;" открывается microsoft script debugger. Как в нём значение переменной посмотреть?

Здравствуйте.
Посмотрите, пожалуйста, рекомендации по использованию "debugger", перейдя по ссылке: file:///C:/Windows/help/debug/SDbug.htm

Александр, спасибо за подсказку!
Dat('ItemTypeID')=null после Dat.Open()!
Почему? IDs[i] не пуст и вполне реальный.

Андрей, Dataset.RecordsCount возвращает 1?
Если да - значит либо колонка как-то по другому называется, либо действительно у вас в колонке "Тип файла" пусто. Может вы их как-то нестандартно заливали?

пс: чтобы наверняка, выполните SELECT на сервере.

Что-то вроде (покажет все файлы для контрагента горсовет)

SELECT ItemTypeID from tbl_Files
where FileID in (select FileID from tbl_FileInAccount where AccountID in (select ID from tbl_Account where Name = 'ОАО Горсовет'))

А null там потому, что Dat открывается пустым. А пустой он потому, что в sq_FileInItem есть связка
INNER JOIN
[dbo].[tbl_FileInAccount] AS [FileInItem] ON [FileInItem].[FileID] = [tbl_Files].[ID]
На каком-то этапе [dbo].[tbl_FileInAccount] должно было подмениться на [dbo].[tbl_FileInIncident]?
Собственно, по тексту заменил
var Dat = Services.GetNewItemByUSI('ds_FileInItem');
на
var Dat = Services.GetNewItemByUSI('ds_FileInIncident');
И счастье получил. Но ведь это не правильно. При сохранении файлов из задачи или ещё откуда-то косяк будет.

Андрей, в более новых версиях уже есть массовое сохранение. Вот коробочная функция:

function SaveToFile(){
	var Dataset = FilesDetailGridArea.Dataset;
	var SelectedIDs = grdData.SelectedIDs;
	if (SelectedIDs.Count == 0) {
		return;
	}
	var Message;
	var InitialDir = EmptyStr;
	var FileName = System.CreateObject('TSObjectLibrary.Value');
	if (SelectedIDs.Count > 1) {
		var WindowCaption = "Сохранить файлы";
		var DirectoryName = System.CreateObject('TSObjectLibrary.Value');
		if (!(System.SelectDirectory(WindowCaption, InitialDir, 
			DirectoryName))) {
			return;	
		}
		var SavedFilesCount = 0;
		Dataset.DisableEvents();
		for (var i = 0; i < SelectedIDs.Count; i++) {
			var RecordID = SelectedIDs(i);
			Dataset.Locate('ID', RecordID);
			var FileType = GetFieldValueFromDisabledField(Dataset, 'ItemTypeID');
			FileName.Value =
				GetFieldValueFromDisabledField(Dataset, 'Link');
			if (!SaveToFileByFileType(Dataset, RecordID, FileName, 
				DirectoryName.Value, FileType)) {
				continue;
			}	
			SavedFilesCount++;
		}
		Dataset.EnableEvents();
		Message = FormatStr(FilesSavedMessage, SavedFilesCount, 
			SelectedIDs.Count);
		ShowInformationDialog(Message);
	} else {
		FileName.Value =
			GetFieldValueFromDisabledField(Dataset, 'Link');
		if (!SaveToFileByFileType(Dataset, FilesDetailGridArea.RecordID, 
			FileName, '', FilesDetailGridArea.FileType)) {
			return;
		}	
		if (FilesDetailGridArea.FileType != ft_File) {
			return;
		}
		Message = FormatStr(OpenFileForEditMessage,	FileName.Value);
		if (ShowConfirmationDialog(Message) == mrYes) {
			if (!OpenFileWithFullAccess(FileName.Value, true, ft_File)) {
				return;
			}
		}
	}
}
 
function SaveToFileByFileType(Dataset, RecordID, FileName, FilePath, FileType) {
	if (!FilePath) {
		FilePath = '';
	}	
	switch(FileType) {
		case ft_File:
			var FileExtension = '.' + ExtractFileExtension(FileName.Value);
			var FileFilterValue = '*' + FileExtension;
			FileFilterValue = FileFilterValue + '|' + FileFilterValue;
			var WindowCaption = "Сохранить файл";
			var InitialDir = EmptyStr;
			var IsSaving = true;
			if (FileName.Value == EmptyStr) {
				return false;
			}
			if (FilePath != '') {
				FileName.Value = FilePath + '\\' + FileName.Value;
			} else 
				if (!(System.PromptForFileName(FileName, 
					FileFilterValue, FileExtension,	WindowCaption, 
					InitialDir, IsSaving))) {
					return false;
				}
			var File = LoadFileFromDatabase(RecordID, 
				FileName.Value, false);	    
			if (!File) {
				return false;
			}
			break;
		case ft_Link:
		case ft_FolderLink:
			var FileExtension = 'lnk';
			var FileFilterValue = '*lnk';
			FileFilterValue = FileFilterValue + '|' + FileFilterValue;
			var WindowCaption = "Сохранить файл";
			var InitialDir = EmptyStr;
			var IsSaving = true;
			if (FileName.Value == EmptyStr) {
				return false;
			}
			var DestinationFileName = FileName.Value;
			FileName.Value = ExtractFileNameWithoutExtension(FileName.Value);
			if (FilePath != '') {
				FileName.Value += '.' + FileExtension;
				FileName.Value = FilePath + '\\' + FileName.Value;
			} else 
				if (!(System.PromptForFileName(FileName, 
					FileFilterValue, FileExtension,	WindowCaption, 
					InitialDir, IsSaving))) {
					return false;
				}
			var LinkCaption = ExtractFileNameWithoutExtension(FileName.Value);
			System.CreateFileLink(DestinationFileName, '', 
				LinkCaption, ExtractFilePath(FileName.Value));
			break;
		case ft_URL:
			var FileExtension = 'url';
			var FileFilterValue = '*url';
			FileFilterValue = FileFilterValue + '|' + FileFilterValue;
			var WindowCaption = "Сохранить файл";
			var InitialDir = EmptyStr;
			var IsSaving = true;
			if (FileName.Value == EmptyStr) {
				return false;
			}
			var URLPath = new String(FileName.Value);
			var Index = URLPath.indexOf('://') == -1 ? 0 : 
				URLPath.indexOf('://') + 3;
			var URLFileName = URLPath.substr(Index, URLPath.length);
			Index = URLFileName.indexOf('/') == -1 ? URLFileName.length : 
				URLFileName.indexOf('/');
			URLFileName = new String(URLFileName.substr(0, Index));
			FileName.Value = URLFileName;
			if (FilePath != '') {
				FileName.Value += '.' + FileExtension;
				FileName.Value = FilePath + '\\' + FileName.Value;
			} else 
				if (!(System.PromptForFileName(FileName, 
					FileFilterValue, FileExtension,	WindowCaption, 
					InitialDir, IsSaving))) {
					return false;
				}
			var URLFileStream = new ActiveXObject('ADODB.Stream');
			URLFileStream.Type = 2;
			URLFileStream.Mode = 3;
			URLFileStream.Open();
			URLFileStream.WriteText("[InternetShortcut]",1);
			URLFileStream.WriteText("URL=" + URLPath,1);
			URLFileStream.Position = 0;
			URLFileStream.SaveToFile(FileName.Value, 2);
			URLFileStream.Close();
			URLFileStream = null;	
			break;	
	}	
	return true;
}

Дмитрий, это был суперский вариант!
Не понятыми остались строки

                Message = FormatStr(FilesSavedMessage, SavedFilesCount, 
                        SelectedIDs.Count);
                ShowInformationDialog(Message);

на них вылетало в дебагер. Прикрыл эти строчки и всё работает!

В этих строках просто выводится сообщение пользователю сколько файлов сохранено. Можете заменить эти 2 строки на:

ShowInformationDialog('Операция завершена. Файлов сохранено: ' + SavedFilesCount);

Да, без завершающего окошка как-то скучно.
В общем, спасибо всем, вопрос изначальный можно считать решенным.
И всё-таки интересно, жесткая привязка tbl_FileInAccount в общей выборке sq_FileInItem - это ошибка, или так задумано?

Так задумано. Она действительно меняется "на лету" в зависимости от раздела, но в инструкции, на которую вы дали ссылку, этот момент не учтен.

Здравствуйте. Нет, к сожалению это функционал визуального компонента (ядро). Можно только дописать пост обработку - к примеру в базовом реестре (wnd_BaseGridArea) для компонента grdData обработать OnClick или другие доступные события.
А бизнес задача какая?

делал что-то похожее, подписывался из совсем другого места так:

var Self = Services.GetNewItemByUSI('wnd_FilesDetailGridArea');
	var fnFiles = Self.ComponentsByName('fnFiles');
	fnFiles.UnsubscribeFileEvents(FileID);
	fnFiles.SubscribeFileEvents(FileName, FileID);	

Добрый день!

Ограничить доступ возможно только пользователям, администратор в любом случае будет иметь полный доступ.

Можно конечно и фильтрик какой на грид приделать, чтобы всегда для администратора применялся... тем более в 3ке это не проблема - новый GridView с фильтром и код, чтобы его включал несчастному ограниченному админу. Но это как то идеологически неверно.
Менять надо такого администратора, которому доверия нет :wink:

"Alex GF" написал:Можно ли закрыть Администратору доступ к определенным записям грида, как обычным Пользователям?

"Александр Кудряшов" написал:фильтрик какой на грид приделать

Угадайка?

Выбор контрагентов, указанных для активных пользователей системы.
В каком месте хранится искать неохота.

Можно exists убрать и условие ядреное, через inner join как мне кажется... только надо ли?

"Александр Кудряшов" написал:Можно exists убрать

SELECT
        [vw_Account].[ID] AS [ID],
        [vw_Account].[Name] AS [Name]
FROM
        [dbo].[vw_Account] AS [vw_Account]
WHERE IsUserAccount IS NOT NULL

Мне кажется отработает раз в 100 быстрее

SELECT
        [vw_Account].[ID] AS [ID],
        [vw_Account].[Name] AS [Name]
FROM
        [dbo].[[tbl_AdminUnit] AS [[tbl_AdminUnit]
inner join [vw_Contact] on [tbl_AdminUnit].[UserContactID] = [vw_Contact].[ID]
inner join [vw_Account] on [vw_Contact].[AccountID] = [vw_Account].[ID]
 
WHERE [tbl_AdminUnit].[UserIsEnabled] = @P1
 
ORDER BY
        2 ASC',N'@P1 int',1

формируется именно из системы, где-то сервис запроса есть, можно его переписать...

а что реально долго работает и тормозит систему???

ps почитал изыскания пытливых умов - вроде как exists в такой ситуации даже быстрее inner'а отработает

затер сообщение. был неправ :lol:

"AlexLS" написал:в которое запихивать 1 при создании нового юзера с новым юзерКонтрагентом

"Андросов Дмитрий" написал:не правильно - надо это поле перезаписывать при изменении признака Активен любого пользователя, привязанного к этому контрагенту и выставлять в 0, если активных пользователей не осталось

"Александр Кудряшов" написал:а что реально долго работает и тормозит систему???

а вообще это похоже на запрос для какого-то справочника типа "Контрагенты ответсвенных"
поищите UserIsEnabled с помощью GREP (у меня есть только в wnd_LicenseManagerScript, но там не то)
вот для сравнения запрос для справочника Ответсвенный (поиск по имени)

exec sp_executesql N'SELECT TOP 2
	[tbl_Contact].[ID] AS [ID],
	[tbl_Contact].[Name] AS [Name]
FROM
	[dbo].[vw_Contact] AS [tbl_Contact]
INNER JOIN
	[dbo].[tbl_AdminUnit] AS [tbl_AdminUnit] ON [tbl_AdminUnit].[UserContactID] = [tbl_Contact].[ID]
WHERE([tbl_AdminUnit].[UserIsEnabled] = @P1 AND
	[tbl_Contact].[Name] LIKE @P2 + ''%'')
ORDER BY
	1 ASC',N'@P1 int,@P2 nvarchar(4000)',1,N'слепо'

"Андросов Дмитрий" написал:но там не то

"Андросов Дмитрий" написал:поищите UserIsEnabled с помощью GREP

"Александр Кудряшов" написал:Похожие запросы есть в Users, LicenseManager, но вот точно такого же не было

этот запрос выполняется перед function wnd_MainOnPrepare(Window). Как я понимаю, его и ядро юзает...

Выполняется он при старте перед:

exec sp_executesql N'SELECT
	[tbl_SystemSetting].[ID] AS [ID],
	[tbl_SystemSetting].[Code] AS [Code],
	[tbl_SystemSetting].[ValueTypeID] AS [ValueTypeID],
	[tbl_SystemSetting].[StringValue] AS [StringValue],
	[tbl_SystemSetting].[FloatValue] AS [FloatValue],
	[tbl_SystemSetting].[IntegerValue] AS [IntegerValue],
	[tbl_SystemSetting].[BooleanValue] AS [BooleanValue],
	[tbl_SystemSetting].[DateTimeValue] AS [DateTimeValue],
	[tbl_SystemSetting].[DictionaryRecordID] AS [DictionaryRecordID],
	[tbl_SystemSetting].[EnumItemID] AS [EnumItemID],
	[tbl_SystemSetting].[IsCaching] AS [IsCaching]
FROM
	[dbo].[tbl_SystemSetting] AS [tbl_SystemSetting]
WHERE([tbl_SystemSetting].[Code] = @P1)',N'@P1 nvarchar(4000)',N'UpdateActiveSessionPeriod'

Так это... раз уж во все тяжкие (с)
Дебаггер в scr_Main и по шагам идем, ждем появления в профайлере заветных строчек

"Александр Кудряшов" написал:

Так это... раз уж во все тяжкие (с)

Дебаггер в scr_Main и по шагам идем, ждем появления в профайлере заветных строчек

"AlexLS" написал:а есть код выполняющийся перед wnd_MainOnPrepare?

Это уже пограничная область знаний, тут То Самое Ядро может что-то вызывать. Это за пределами моих знаний:smile:
Там раньше окно авторизации и проверка лицензии как раз идет, окно авторизации вроде бы в конфигурации от греха подальше спрятали

"Александр Кудряшов" написал:Там раньше окно авторизации и проверка лицензии как раз идет

"Александр Кудряшов" написал:тут То Самое Ядро может что-то вызывать

Кстати, оно же (запрос) вызывается и Outlook'ом...

"Андросов Дмитрий" написал:по всем вопросам, связанным с лицензиями все заканчивается заявлением, что механизм лицензирования закрыт и сакрален

Кстати, очередной банальный (уж простите) вопрос: если выгрузить все сервисы в файлы и потом какой-нить утилиткой "поиск текста в xml" пройтись, тогда шансы на поиск увеличатся?

"AlexLS" написал:чтобы такой идиотский код

"Александр Кудряшов" написал:И проверка лицензии не то, ради чего стоит ломать имеющийся движок обращения к данным.

Судя по Grep-поиску в скриптах и нахождению етого слова в wnd_LicenseManagerScript ... закрываю тему, благо ясно что этот код зашит

Так надо посмотреть что там в случае Записи или Клиента в параметре DataGridColumn передается, и по условию ваш код применять

один обработчик для клика по всем lookup-колонкам

"Андросов Дмитрий" написал:один обработчик для клика по всем lookup-колонкам

Так можно же

if (DataGridColumn.Name == 'colRecord')

а если не выполняется, вызывать родительский

scr_BaseGridArea.grdDataOnLookupColumnClick(DataGrid, DataGridColumn, Shift);

Да, так и сделал.

"Александр Кудряшов" написал:Так можно же

"Андросов Дмитрий" написал:но обработчик-то один

Идея понравилась, решила использовать.
Но у меня при открытии ссылки выдается просто окно "Error:"
Это происходит только при нажатии на новую созданную колонку.
Я создавала строковое поле, и заполняла его так: \\server\папка\имя_файла.jpeg
Доступ к этому ресурсу в сети у меня есть.

"Тихенко Виктория" написал:\\server\папка\имя_файла.jpeg

Поменяла на двойные, не помогло. Так же выскакивает "Error:"

Можно попробовать в консоли посмотреть, что же там происходит и куда идет обращение