Добрий вечір,

Теоретично має спрацювати:

1) Створити EnableDebugger.reg файл

2) В цьому файлі написати:

Windows Registry Editor Version 5.00

 

[HKEY_CURRENT_USER\Software\Microsoft\Windows Script\Settings]

"JITDebug"=dword:00000001

3) Виконати файл (просто відкрити його на пристрої і погодитись з попередженням)

4) Якщо користувач пристрою не адміністратор, то перевірити, що користувач входить в роль "Debugger Users"

5) Для активації Visual studio як відладника треба встановити в Visual studio опцію Script (Tools -> Options -> Debugging -> Just-In-Time)

6) Перезавантажити пристрій

Спробуйте, будь ласка, і повідомте про результат.

Добрый день, 

Верно я понимаю что проблемы возникают только на клиентской части? Вы пробовали переустановить клиентскую часть повторно?

Добрый день,

Сложно сказать в чем именно причина, без анализа выполненных настроек и проведения отладки.

Проверьте, пожалуйста, все ли шаги настройки выполнены согласно документации (файлы во вложении).

Если да, значит остается только вариант с выполнением отладки. Примеры, как активировать отладчик, есть здесь на community.

Вот некоторые ссылки:

https://community.terrasoft.ru/questions/kakie-otladchiki-mozhno-ispolzovat

https://community.terrasoft.ru/questions/ne-rabotaet-debugger

С уважением,

Кучер Виталина

Оператор

Группа компаний Terrasoft

v.kucher@creatio.com,

TSJobmanager запускается на одной из машин, и работает там без ошибок. Пытаюсь перенести его на сервер. Все настройки соответствуют мануалу. Не совсем понимаю как мне использовать дебаг. Судя по всему, проблема не в запускаемом скрипте, а в конфигурации машины. Не могу понять чего не хватает.

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

Добрый день!

Очень похоже на проблему, которую описывали в этом посте:

https://community.terrasoft.ru/articles/podderzka-ms-office-x64-v-terra…



Рекомендую ознакомиться с ним. Вероятно необходимо использовать 32 битный Office или же обновить приложение до  3.4.1.

Алексей, в первую очередь нужно уточнить версию софта. При переходе с 3.4.0 на 3.4.1 было добавлено много возможностей со шрифтами. Проверьте, может, получится и то, что хотите.

Если же делать что-то совсем нестандартное, может подойти компонент веб-браузера и программное создание HTML-файла. Именно так для продавцов квартир делалась «шахматка» — схема дома с проданными и непроданными квартирами разных цветов с возможностью открыть карточку квартиры по гиперссылке.

У меня 3.4.0.

Нашел пример кода и решил подделать под свою задачу, но не получается:

function grdDataOnGetCellDrawInfo(DataGrid, Column, Color) {

    var DataFieldValue = gvData.Items('colstopgvData').DataField.Value;

    if (!IsEmptyValue(DataFieldValue)) {

        Color.Value = clRed;

    };

}

Мне кажется, это код для цвета фона, а не шрифта.

Зверев Александр,

Не подскажете, как обратиться к объекту colstopgvData, чтобы задать ему нужный цвет шрифт и форму. Разрисовать любую ячейку.

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

Нечто получилось, но не то что хотел.

1. Включил в DataGrid два свойства: HasCustomCellDraw и HasCustomDraw. В противном случае, рисовать ничего в DataGrid не будет.

2. Добавил обработку события OnGetCellDrawInfo снабдив его функцией, где gvData - IDataGridView, а is_day - DataFieldName одной из IDataGridColumn:

function grdDataOnGetCellDrawInfo(DataGrid, Column, Color) {

    try {

        if(gvData.Items(Column).DataFieldName == 'is_block' || gvData.Items(Column).DataFieldName == 'is_day' || gvData.Items(Column).DataFieldName == 'is_stop') {       

            var DataFieldValue = gvData.Items(Column).DataField.Value;

            if (!IsEmptyValue(DataFieldValue) && DataFieldValue!=' '){

                Color.Value = clYellow;

            }

        }    

    } catch(E) {

        Log.Write(mdtError, '[grdDataOnGetCellDrawInfo] ' + E.message+' ['+E.number+']');

    } finally { }    

}

3. Добавил обработку события OnGetCellDrawInfo снабдив его функцией, где dlData - это DataSet, в котором формируются данные  для вывода в DataGrid:

function grdDataOnGetRowDrawInfo(DataGrid, Color, TextColor, ImageName, Font) {

    var Dataset = dlData.Dataset;

    var Current = GetFieldValueFromDisabledField(Dataset, 'is_block');

    if (!IsEmptyValue(Current )){

        TextColor.Value = clRed;

    }

    Current = GetFieldValueFromDisabledField(Dataset, 'is_day');

    if (!IsEmptyValue(Current )){

        TextColor.Value = clRed;

    }

    Current = GetFieldValueFromDisabledField(Dataset, 'is_stop');

    if (!IsEmptyValue(Current )){

        TextColor.Value = clRed;

    }

}

Итог сей махинации следующий:

Ряд в котором есть заполненное поле в одной из 3 колонок меняет цвет шрифта на красный, а ячейка заполненная данными окрашивается в желтый.

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

Не совсем понял, почему Вы для красного цвета в if проверяете три разных поля. Может, для всех условия выполнились? Если оставить одно, тоже весь ряд закрасится? Не смотрели в отладке, как отработало?

Алексей, в 3.Х на карточке есть возможность добавить невизуальный компонент «Таймер». Можно задать в дизайнере или программно ему длительность, включить и добавить в обработчик нужную логику.

Спасибо за подсказку. Нашел решение здесь: https://community.terrasoft.ru/articles/obnovlenie-reestra-zapisei-s-op…

Задачу решил так :

function PacientEmailForm(Window) {

    //Создание дополнительных компонентов для вывода массива данных для пациентов   

    try {

        var PacientLabel = null;

        var PacientName = null;

        var PacientDate = null;

        var PacientTest = null;

        var PacientText = null;

        var PacientNumber = 0;

        for (var i = 0; i < 2; i++) {

            //Создание метки для структуризации компонентов - ЗАГОЛОВОК

            PacientLabel = EmailFormWindowValue.CreateComponent('Label','lbPacient'+i);

            fgPacient.Add(PacientLabel);

            PacientLabel.AlignHorizontal = alhCenter;

            PacientLabel.AutoSize = true;

            PacientNumber = i+1;

            PacientLabel.Caption = 'Пациент № '+PacientNumber;

            //Создание поля вывода для имени пациента

            PacientName = EmailFormWindowValue.CreateComponent('Edit','edtPacientName'+i);

            fgPacient.Add(PacientName);

            PacientName.AlignHorizontal = alhClient;

            PacientName.Caption = 'ФИО';

            //Создание поля вывода для даты рождения пациента

            PacientDate = EmailFormWindowValue.CreateComponent('Edit','edtPacientDate'+i);

            fgPacient.Add(PacientDate);

            PacientDate.AlignHorizontal = alhClient;

            PacientDate.EditMask = '99.99.9999';

            PacientDate.Caption = 'Дата рождения';

            //Создание поля вывода для тестов

            PacientTest = EmailFormWindowValue.CreateComponent('Edit','edtPacientTest'+i);

            fgPacient.Add(PacientTest);

            PacientTest.AlignHorizontal = alhClient;

            PacientTest.Caption = 'Тесты и услуги';

            //Создание поля вывода для инвалидности

            PacientText = EmailFormWindowValue.CreateComponent('Edit','edtPacientText'+i);

            fgPacient.Add(PacientText);

            PacientText.AlignHorizontal = alhClient;

            PacientText.Caption = 'Инвалидности';

            //Скрыть все элементы и использовать по надобности

            PacientLabel.isVisible = false;

            PacientName.isVisible = false; 

            PacientDate.isVisible = false; 

            PacientTest.isVisible = false; 

            PacientText.isVisible = false;

        }        

        //var Pacient = Window.CreateComponent('Label','PacientLabel');

        //fgPacient.Add(Pacient); 

        //Pacient.Caption = 'Проверка!';

    } catch(E) {

        Log.Write(mdtError, '[PacientEmailForm] ' + E.message+' ['+E.number+']');

    } finally {}

}

Теперь возник вопрос, как удалить элемент созданный таким образом?

Алексей, если добавляли при помощи CreateComponent, то удалить, соответственно, можно по RemoveComponent. См. примеры в теме.

Зверев Александр,

Спасибо. Так и сделал. Правда со 2 попытки. Первая была DeleteComponent. А не подскажете, как событие присвоить Edit

.OnChange ?

Присваивают обработчики так, см. src_Main:

var MenuItem = Window.CreateComponent('ActionMenuItem', Name);
MenuItem.Caption = CaptionDataField.ValAsStr;
MenuItem.Tag = ParentIDDataField.ValAsStr;
SetObjectEventDispatcher(Window, MenuItem, MenuItem.Name, 'OnExecute',
	'DictionaryMenuItemOnExecute');

Если компонентов будет произвольное количество, можно обработчик сделать один и тот же, а в нём считывать значение свойства Tag, которое перед этим присвоить каждому разное.

Алексей, такое возможно, так работают гиперссылки на разные сущности системы в почте. Ссылки стандартно есть на открытие карточки (open) и на переход в раздел с нужной записью (goto). Увидеть их обе можно, в реестре нажав правую кнопку и выбрав пункт «Копировать ссылку», они скопируются в буфер.

Чтобы сделать другие обработчики, нужно вносить правки в сервис scr_HyperlinkUtils, добавить в функции RunHyperlink дополнительное ветвление к тем двум, что там есть:

function RunHyperlink(Action, Params) {
	Action = Action.toLowerCase();
	switch (Action) {
		case 'goto':
			HyperlinkGotoWorkspace(Params);
			break;
		case 'open':
			HyperlinkOpenCard(Params);
			break;
	}
}

А затем написать аналогичную упомянутым функцию, выполняющую нужные действия в зависимости от параметров. Пример с запуском так БП есть тут.

Алексей, в свойствах колонки в Dataset такое свойство настраивается, но оно предназначено для другого, общего заголовка для нескольких колонок:

Заголовок у меня есть

Но в Grid он не многострочный

Эта настройка для другого: если нескольким полям там вписать одинаковое до черты, то они сгруппируются с общей «шапкой». Пример настройки из этой темы:

Немного не то, но за это спасибо. Буду иметь ввиду функционал с |

Алексей, нашёл тему именно по тому, что Вы хотели. Увы, такого не прредумотрено.

Добрый день.

Вы можете реализовать представление (view) и использовать его в Вашем гриде.

Посмотрите похожая тема обсуждается здесь.

Возможно ли это функциями Террасофта провернуть без использования Dataset?

Сделал так

var ds = Services.GetNewItemByUSI('mds_KsCallInvitroApiTestAdds');

            ApplyDatasetFilter(ds, 'pricecode', Item['pricecode'], true); 

            var IsBlock = '';

            var IsDay = '';

            var IsStop = '';

            ds.Open();                

            IsBlock = ds.ValAsStr('is_block');

            IsDay = ds.ValAsStr('is_day');

            IsStop = ds.ValAsStr('is_stop');            

            ds.close();

            Dataset.ValAsStr('is_block') = IsBlock;                

            Dataset.ValAsStr('is_day') = IsDay;                

            Dataset.ValAsStr('is_stop') = IsStop;

Для тех кто хочет получить данные из другого dataset это прост отлично подходит

Алексей, кроме предложенного Аллой варианта есть и более простой штатный способ: можно в дизайнере sq настроить колонку-подзапрос или колонку с произвольным SQL-кодом, где и реализовать вычисление нужного значения или вызов SQL-функции.

Спасибо. Но для моей задачи подошел мой вариант. Так как основной dataset формируется не по sql, а с выборки в api и мне нужно было к нему приплюсовать еще и sq.

Алексей, сразу не заметил, что Вам нужно обязательно через программное наполнение полей MemoryDataset.

Если оба источника данных, и основной, и вспомогательный типа MemoryDataset, то так, как Вы написали.

А если вспомогательный — обычный Dataset, считывающий из базы по sq и ds, то его при желании тоже можно программно создать, наложить фильтр, открыть и считать значения полей.