Добрый день,

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

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

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

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

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

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

С уважением,
Кучер Виталина
Оператор
Группа компаний Terrasoft

v.kucher@creatio.com,

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

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

Алексей, в первую очередь нужно уточнить версию софта. При переходе с 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, то его при желании тоже можно программно создать, наложить фильтр, открыть и считать значения полей.

Алексей, почему сразу неверно? В коде написали CreateLikeFilter, вот он и применяется. А у фильтра параметр типа равен ltContain, означающий поиск по вхождению. Эта константа, как и другие, определена в скрипте scr_SysEnums:

// Constants for enum _LikeTypeEnum
ltEqual = 0x00000000;
ltContain = 0x00000001;
ltStartsWith = 0x00000002;
ltEndsWith = 0x00000003;

Попробуйте для начала заменить ltContain на ltEqual.

Спасибо, помогли.