Доброго дня!
Столкнулся со следующей задачей:
При изменении значения поля необходимо установить свойство "обязательно для заполнения" других полей. С этим я справился.
Также мне необходимо при активации чек-бокса установить свойство "только для чтения" для других полей

case ('OfferingInOrderID'):
if ((Name == 'OfferingInOrderID') && (Value == '{42D3DE40-55D1-46F6-B5A5-AFB1EAAE181E}'))      
{
Dataset.DataFields.ItemsByName('DateOfPlacing').IsRequired = true;
Dataset.DataFields.ItemsByName('PlaningDateOfDelivery').IsRequired = true;
}
else
{
Dataset.DataFields.ItemsByName('DateOfPlacing').IsRequired = false;
Dataset.DataFields.ItemsByName('PlaningDateOfDelivery').IsRequired = false;                    
}
break;

Это на обязательность заполнения.
Функция SelfOnDatasetDataChange
Подскажите пожалуйста, как реализовать свойство "только для чтения" для этих же полей?
Пробовал и "IsVisible" и "IsEnabled" - безрезультатно
//case ('OnStock'):
//if  ((Name == 'OnStock') && (Value == 1)) //На складе
//{
//Dataset.DataFields.ItemByName('DateOfPlacing').IsEnabled = false;
//Dataset.DataFields.ItemByName('PlaningDateOfDelivery').IsEnabled = false;
//}
//else
//{
//Dataset.DataFields.ItemByName('DateOfPlacing').IsEnabled = true;
//Dataset.DataFields.ItemByName('PlaningDateOfDelivery').IsEnabled = true;
//}
//break;

Заранее спасибо

Нравится

1 комментарий

Дмитрий, Вы можете менять свойство «IsEnabled» не у поля датасета, а у контрола:

edtDateOfPlacing.IsEnabled = true;

Учтите только, что делать это можно в скрипте карточки на событии «DataChange», но не скрипте датасета.

Также см. подробнее тут.

Показать все комментарии

Здравствуйте!

Возможно мой вопрос покажется простым, но все-таки я его задам.
Есть созданный бизнес-процесс. При его старте инициализируются параметры в нем.
Есть скрипт, выполняемый при добавлении новой записи в датасете Задачи.
В этом скрипте надо получить значение одного параметра из юизнес-процесса и записать его в поле датасета.
Подскажите, пожалуйста, как это правильно сделать.

Заранее благодарю за ответы!

С уважением,
Александр

Нравится

3 комментария

Здравствуйте, Александр!

Для реализации Вашей задачи Вы можете установить требуемое значение в поле датасета прямо в элементе бизнес процесса, а именно в скрипте wa_TaskActionScript в обработчике события wa_TaskActionOnExecute.

Благодарю!
Получилось!

Спасибо.

Нам вдвойне приятно получать от клиентов такой фидбек!

Показать все комментарии

Здравствуйте! Я в террасофте совсем новичок, только начинаю изучать. Версия ТС - 3.4.0.38. По форуму искала, вроде подходящего решения не нашла, либо не поняла что это "оно". Подскажите пожалуйста!
Была поставлена задача - по расписанию формировать файл с отчетом для Excel (есть аналог для работы пользователя в FR), выкладывать его в сеть и отправлять группе лиц.
Вроде как все решила через SQL, правда экселевский файл сформировала через spread xls на xml.
Несущественная проблема - при открытии на некоторых компьютерах ругается на несоответствие формата, с этим можно жить, но вот на телефонах этот файл не открывается в приложениях, но очень нужно.
В итоге встал вопрос о другом формате.. Возможно ли как то через sql или сам террасофт выполнить по расписанию формирование файла в формате xlsx или pdf (редактируемый)? Либо конвертацию сделать, может что-то вроде - открыть файл в sql через sp_OACreate 'Excel.Application', и сохранить его в xlsx..

Нравится

4 комментария

С помощью Terrasoft, также можно выполнить такую задачу, для этого необходимо на сервер создать задачу (Task Scheduler), которая будет запускаться по времени и вызывать Terrasoft командой TSClient.exe /wnd=wnd_ExportRep.

Где в окне wnd_ExportRep будет прописана логика экспорта.
Обратите внимание на сервисы scr_MSExcelLibrary, scr_MSExcelLibraryConsts, а также на сервис scr_UserReportCommon, в особенности на функцию GetExcelObject - которая возвращает Com объект на Excel.

Также можно изучить работу сервиса scr_ImportExcelWizardUtils, который автоматически создает отчеты в Excel, на основании его работы можете создать свой экспорт.

Хороший вариант! Спасибо! Правда мне очень много стоит изучить для реализации подобного..
А клиент терры будет открыватся на сервере или только процесс висеть? Если есть возможность подсказать подобные примеры решения буду очень признательна.

Пробовала запускать excel на террасофте через var ExcelApp = new ActiveXObject("Excel.Application");
но система выругалась на меня и клиент вылетел..

Можете взять мой пример запуска коннектора и создание Excel файла.
Алгоритм следующий:
1. Создайте файле с расширением js
2. Пропишите в нем следующий код:

function WSLog(LogText) {
	WScript.stdout.WriteLine(LogText);
}
 
function GetExcelObject() {
	var Excel = new ActiveXObject('Excel.Application');
	var Excel_wb = Excel.Workbooks.Add();
	Excel.Sheets(1).Name = "Данные";
	var SheetsCount = Excel.Sheets.Count;
	for (var i = 2; i <= SheetsCount; i++) {
		Excel.Sheets(2).Delete();
	}
	Excel.Visible = false;
	return Excel;
}
 
function Main() {
	var args = WScript.arguments;
	var ConfigurationName = "TS_3.4.1.113_XRM_SD_SoftKey_ENU_Tereshchuk";
	var AuthenticationMode = 1; //1 - DatabaseServer, 0 - Windows
	var UserName = "Supervisor";
	var UserPassword = "";
	var ExcelFileName = 'C:\\Temp\\TestExcel.xlsx';
	WSLog("Start!");
	var Connector =  new ActiveXObject('TSObjectLibrary.Connector');
	var Config;
	if (AuthenticationMode) {
		Config = Connector.OpenConfigurationByName(ConfigurationName, AuthenticationMode, UserName, UserPassword);
	} else {
		Config = Connector.OpenConfigurationByName(ConfigurationName, AuthenticationMode);
	}
	var Excel = GetExcelObject();
	Excel.Sheets(1).SaveAs(ExcelFileName);
	Excel.Visible = true;
	Connector.Logoff();
	WSLog("Finish!");
}
 
Main();

3. Создайте файл с расширением bat и пропишите в нем код:
%WinDir%/SysWOW64/cscript.exe /d D:\Projects\JS\RunTS.js

4. Запустите bat файл

Исходники: js.zip

Спасибо!
Так как задача была горящей, а 'Excel.Application' наотрез отказывается работать, временно решила через excelcnv.exe. Там правда очень много нюансов, за счет чего код получился совсем извращенным, но главное рабочим.. позже вернусь к приведению в нормальный вид ) попробую все-таки решить через террасофт по #1 предложенному ответу.

Показать все комментарии

Как можно открыть справочник с кнопки на отдельно взятой странице, не из меню ?
пытался открыть вот так:
var wnd = Services.GetNewItemByUSI('wnd_BranchesGridArea');
wnd.Prepare();
wnd.ShowModal();
так нельзя, окно открывается, но данных нет в нем и ошибки лезут.

Нравится

2 комментария

Вашу задачу можно решить несколькими способами:
1. Свой вариант

	var wndContactsGridArea =  Services.GetNewItemByUSI('wnd_ContactGridArea');
	wndContactsGridArea.Prepare();
	var Dataset = wndContactsGridArea.ComponentsByName('dlData').Dataset;
	RefreshDataset(Dataset);
	wndContactsGridArea.ShowModal();

Результат:

2. Стандартный вариант

	var Dataset = Services.GetNewItemByUSI('ds_Contact');
    var SelectDataWindow = GetSingleItemByCode('wnd_SelectData', 'Contacts');
	SetAttribute(SelectDataWindow, 'Dataset', Dataset);
	SetAttribute(SelectDataWindow, 'DisplayFieldNames', 'Name;AccountID;ContactTypeID');
	SetAttribute(SelectDataWindow, 'SearchFieldNames', 'Name;AccountID');
	SetAttribute(SelectDataWindow, 'KeyFieldName', 'ID');
	SetAttribute(SelectDataWindow, 'SearchFieldName', 'Name');
	SetAttribute(SelectDataWindow, 'NotifyObject', Self);
	SetAttribute(SelectDataWindow, 'IsReadOnly', true);
	SelectDataWindow.Prepare();
	SelectDataWindow.Show();

Результат:

3. Использовать функцию ShowSelectDataWindow из сервиса scr_WindowUtils
4. Свой вариант решения. Где создается свое окно выбора, со своей логикой работы.

спасибо!

Показать все комментарии

Как можно открыть справочник с кнопки на отдельно взятой странице, не из меню ?
пытался открыть вот так:
var wnd = Services.GetNewItemByUSI('wnd_BranchesGridArea');
wnd.Prepare();
wnd.ShowModal();
так нельзя, окно открывается, но данных нет в нем и ошибки лезут.

Нравится

1 комментарий

Хочу пользоваться современными функциями JS, например array.prototype.forEach
подключаю библиотеку расширяющую до es5, подключается без проблем (https://github.com/es-shims/es5-shim)
В свой скрипт подключаю библиотеку и вроде бы все должно работать, но
но при попытке использования функции array.forEach - ошибка.
Видимо связано с тем, что если сделать var a = new array, typeof a = 'object' !! (должно быть array)
Вопрос: Возможно ли расширить функционал jscript до es5, если да - то как ?

Нравится

1 комментарий

Доброго дня!
Столкнулся со след. задачей:
Имеется 2 раздела: "Заказы" и "Инженерная спецификация"
Оба раздела имеют свою древовидную деталь "Продукты"
Мне необходимо скопировать выделенные продукты из раздела "Инженерная спецификация" в раздел "Заказы". Копироваться должны только определенные поля.
Подскажите пожалуйста, как это можно реализовать?

Нравится

3 комментария

Здравствуйте.

У каждого грида есть свойство SelectedIDs - возвращаемое массив идентификаторов выделенных записей. Зная идентификатор записи, можете выполнить обновление продуктов в древовидном реестре другого реестре. Обновление можно реализовать несколькими способами:

  1. 1. Используя датасет
  2. 2. Используя запрос на обновление
  3. 3. Используя хранимую процедуру

Рекомендую использовать первый способ, выполнить обновление через датасет.
Как за пример, можете взять логику обновления данных детали [Средства связи] раздела [Контрагент] реализованной в функции ActualizeCommunication сервиса scr_Account.

Cпасибо, сейчас попробую!

Можно еще посмотреть реализацию копирования дерева продуктов в scr_DocumentUtils...
Функция CopyOfferingInItemDetail. И далее из нее вызовы...

Показать все комментарии

Доброго дня.
Столкнулся с проблемой:
Необходимо перегнать значения из строкового поля в blob поле, но при запуске скрипта выдает ошибку
"Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

function Main()
{  
        var TaskDataset = Services.GetNewItemByUSI('ds_Task');
        EnableDatasetFilters(TaskDataset, false);
        var ID = '{332C64BC-245B-4A08-B345-C392F4A8FCFF}';
        ApplyDatasetFilter(TaskDataset, 'ID', ID, true);
        TaskDataset.Open();
        while(!TaskDataset.IsEOF)
        {
                var Detalization = TaskDataset('Detalization');
                var Stream = new ActiveXObject('ADODB.Stream');
                Stream.CharSet = 'windows-1251';
                Stream.Mode = 3;        
                Stream.Type = 2;
                Stream.Open(Detalization);
                var Field = TaskDataset.DataFields.ItemsByName('DetalizationRich');
                Field.SetValAsBlob(Stream);
                Stream.Close();        
                TaskDataset.GotoNext();        
        }      
        TaskDataset.Post();
        TaskDataset.Close();
}

В чем может быть проблема? Заранее спасибо

Нравится

3 комментария

Здравствуйте.

Сообщение говорит, что не правильно открываете Stream.

Пример записи значения поля [ФИО] Контакта на деталь [Описание] раздела Контакты:

	var ID = '{251FB9AC-C17E-4DF7-A0CB-D591FDB97462}';
 
	var ContactDataset = Services.GetNewItemByUSI('ds_Contact');
	EnableDatasetFilters(ContactDataset, false);    
    ApplyDatasetFilter(ContactDataset, 'ID', ID, true);
    ContactDataset.Open();
 
    var DescriptionDataset = Services.GetNewItemByUSI('ds_Description');
	ApplyDatasetFilter(ContactDataset, 'ID', ID, true);
 
	var SubjectSelectQuery = ContactDataset.SelectQuery;
	var DetailSelectQuery = DescriptionDataset.SelectQuery;
	var FromTable = SubjectSelectQuery.Items(0).FromTable;
	DetailSelectQuery.Items(0).FromTable = FromTable;
	DescriptionDataset.Open(); 
 
    var FieldName = ContactDataset.DataFields.ItemsByName('Name');
    var FieldDescription = DescriptionDataset.DataFields.ItemsByName('Description');
 
 
    var Stream = new ActiveXObject('ADODB.Stream');
	Stream.CharSet = 'windows-1251';
    Stream.Mode = 3;
    Stream.Type = 2;
	Stream.Open();
    Stream.Position = 0;
    Stream.WriteText(FieldName.Value); 
 
    DescriptionDataset.Edit();
    FieldDescription.SetValAsBlob(Stream);
    Stream.Close();
    DescriptionDataset.Post();
 
    DescriptionDataset.Close();
    ContactDataset.Close();

Результат:

Cпасибо большое!
Теперь все работает, правда если я хочу перегнать все записи, то выдает ошибку "Out of memory"
Можно с этим как то бороться?

Попробуйте вызывать функцию CollectGarbage(0.001);
Выполняйте Post() в цикле, а также создание Strem-а вне цикла.

Показать все комментарии

Доброго дня.
Дорогие форумчане, подскажите пожалуйста. Необходимо реализовать автоматическую подпись на вкладке "Ход задачи" (например: "Тестовый Сергей Сергеевич - 27 июля 2016 г. 14:22:00")
Я уже реализовал на страничке "Описание задачи" вот только там RichDataControl
а Ход задачи - MemoDataControl.
Заранее спасибо.

Нравится

2 комментария

Если Вы хотите при каждой правке текста в поле добавлять туда какие-то дополнительные данные, то можно завязаться на событие DataChange датасета, добавив ветвь с этим полем в обработчик dlDataOnDatasetDataChange на уровне карточки задачи или аналогичную SelfOnDatasetDataChange на уровне объекта датасета ds_Task. Главное при этом не получить вечную рекурсию, когда программное добавление текста вызовет повторное срабатывание.

Имя текущего пользователя получается в коде как CurrentUser.ContactName, дата — System.Now().

Спасибо, сейчас попробую

Показать все комментарии

Подскажите как правильно сделать:

Есть простой fr (sq + ds) отчет который выводит все Счета.
Хочу установить фильтр (в sq)

WHERE([tbl_vwInvoiceManager].[ContactID] = :ContactID)

, чтобы менеджеры при открытии отчета видели только свои Счета.
На какое событие в ds установить:

ApplyDatasetFilter(ds_InvoiceManager, 'ContactID', ContactID, true);

К примеру, как передать параметр :ContactID в sq (см. рисунок) для фильтра (на какое событие ds скрипта?). Пробовал разные варианты, но фильтрации не происходит. Если же в самом фильтре (в sq)прописать значение для параметра , то фильтр срабатывает.

Как правильно реализовать данный пример?

Нравится

3 комментария

Попробуйте применять фильтр в обработчике события OnDatasetBeforeOpen Вашего датасета для отчета:

var ContactID = Connector.CurrentUser.ContactID;
ApplyDatasetFilter(ds_InvoiceManager, 'ContactID', ContactID, true);

"Савельева Алла" написал:

Попробуйте применять фильтр в обработчике события OnDatasetBeforeOpen Вашего датасета для отчета:

var ContactID = Connector.CurrentUser.ContactID;

ApplyDatasetFilter(ds_InvoiceManager, 'ContactID', ContactID, true);


Именно так я и делал, но при ds_InvoiceManager.Open(); цикл опять повторяется в данном обработчике и открытие отчета FastReport не происходит.
В случае, если это не отчет FR, то все нормально срабатывает.

Спасибо, вопрос решился.

Показать все комментарии