Сергей, Ваше замечание передано для анализа в департамент разработки продуктов.

Пока могу предложить обходное решение: в обработчике OnAfterExecute элемента БП написать код:

if (IsComplete) {
	WFSetParamValue(ActionItem.ParentItems.ParentDiagram, 'AccountID',
		ActionItem.Parameters('AccountID').Value);
}

Для работы данного решения достаточно только добавить в диаграмму параметр AccountID. Элемент "Задача" изменять нет необходимости.

Спасибо, Олег.

Сергей, добрый день.

Для решения проблемы попробуйте внести следующие изменения в функцию wa_TaskActionOnInitialize скрипта wa_TaskActionScript:

function wa_TaskActionOnInitialize(WorkflowAction, ActionItem) {
	WFConnectParams(ActionItem, 'AccountID', 'AccountID', pdtString, wpmitInOut);
	WFConnectParams(ActionItem, 'ContactID', 'ContactID', pdtString, wpmitInOut);
	/* MODULE OPPORTUNITIES */
	WFConnectParams(ActionItem, 'OpportunityID', 'OpportunityID', pdtString, wpmitInOut);
	/* ENDMODULE OPPORTUNITIES */
	WFConnectParams(ActionItem, 'ContractID', 'ContractID', pdtString, wpmitInOut);
	..............
	// аналогичные изменения для остальных параметров
}

Здравствуйте,
Мне нужна помощь, как построит такой процесс: проверить, является ли уже такой клиент в системе. Если нет - создать запись нового клиента, если да – уточнить информацию. Спасибо

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

Не стоит забывать о стандартном функционале, когда при создании нового контрагента и контакта идет проверка существования в системе таких сущностей по указанным в настройках полях (функционал проверки дублей в БД).

Конечно, Вы можете на событие AfterPost (для примера) создавать все что угодно!

--
www.it-sfera.com.ua

var TaskDataset = Services.GetNewItemByUSI('ds_Task');
TaskDataset.Append();
TaskDataset('ID') = Connector.GenGUID();
TaskDataset('Title') = 'TestTask';
TasksDataset.Post();

ну и конечно же, подумайте насчет TaskDataset.DisableEvents();

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

Олег Лабьяк,
разработчик,
3-я линия Службы поддержки Terrasoft.

С технической стороны вовсе необязательно. Даже если поле является обязательным для заполнения(в датасете), то при создании вышеописанным методом поле можно не заполнять. Оно станет обязательным при открытии карточки данной задачи пользователем. Например, если скрипт не может определить приоритет данной задачи, то это сделает пользователь. Обязательными для заполнения являются обязательные на SQL сервере.

Но с логической точки зрения, Олег абсолютно прав:

• На события изменений значений полей датасета задачи могут быть завязаны различные пересчеты
• Внешние скрипты могут использовать поля задач для пересчетов параметров других объектов системы

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

Спасибо. Получилось :)

"Глова Сергей" написал:С технической стороны вовсе необязательно. Даже если поле является обязательным для заполнения(в датасете), то при создании вышеописанным методом поле можно не заполнять.

Насчет отключения событий. Я не сторонник такого отключения по следующим соображениям: если на датасет повешены обработчики некоторых событий, то предполагается, что данные обработчики должны обрабатываться именно для датасета (а не только в карточке, в которой он используется). Таким образом гарантируется опять же целостность данных в базе:

• пересчет сумм в базовой валюте
• расчет значений других объектов системы (например, расчет трудозатрат по проекту по выполненным задачам)
• то же заполнение значений по-умолчанию

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

"Репко Артём" написал:Если поле обязательное, то для обеспечения целостности данных, в большинстве случаев его стоит объявлять обязательным как в датасете, так и в таблице. В базовой версии (конечно, смотря какой релиз) так и есть, поэтому вряд ли получится вышеописанный пример даже технически.

Кстати, насколько я помню, наличие значений в обязательных полях проверял скрипт в конфигурации на кнопочку "Ок" (в ранних версиях), а не ядро на метод пост датасета.

"Глова Сергей" написал:Но есть "логически" поля, которые обязательны только в определенном случае. Например, для типа клиент обязательно одно дополнительное поле, для типа поставщик - другое. И такие поля на целостность БД не влияют

"Глова Сергей" написал:Кстати, насколько я помню, наличие значений в обязательных полях проверял скрипт в конфигурации на кнопочку "Ок" (в ранних версиях), а не ядро на метод пост датасета.

Создал идею по обсуждаемой теме обязательных полей.

1. Какая версия сборки и на какой СУБД?
2. В разделе "Задачи" делались доработки или это базовая?

--
www.it-sfera.com.ua

Версия сборки 3.3.1, СУБД SQL 2005, раздел задач без доработок, базовый.

Если вы плюёте мне в спину, значит я впереди вас!

Только-что проверил на базовой TS XRM 3.3.1.45
не наблюдается описанная Вами проблема!

--
www.it-sfera.com.ua

Простите сборка 3.3.1.31

Если вы плюёте мне в спину, значит я впереди вас!

У меня есть только последняя 45... Возможно, в 31 и была какая-то проблема, но если конфигурация базовая - это Вам лучше на support писать! :smile:

--
www.it-sfera.com.ua

Спасибо! Обязательно так и сделаю. :smile:

Если вы плюёте мне в спину, значит я впереди вас!

если ошибка возникает хаотично то возможно нехватает этого кода

var Filter = BaseFilters.ItemsByCode('ContactIDs');
if (!Assigned(Filter)) {
Filter = BaseFilters.Items(0).ItemsByCode('ContactIDs');
}

var Parameters = Dataset.SelectQuery.Parameters;
var TeamFilter = Filter.ItemsByCode('tcTeam');

там присутствует код приведенный ниже, а переменная "Filter" уже существует, где мне сделать модификацию кода? Спасибо!
var IDs = GetContactsFilterArray();
SetAttribute(Self, 'ContactsFilterArray', IDs);
var Filter = Dataset.SelectQuery.Items(0).Filters.Items(0)
.ItemsByCode('ContactIDs');
var Parameters = Dataset.SelectQuery.Parameters;
var TeamFilter = Filter.ItemsByCode('tcTeam');
var SubSelectFilter = TeamFilter.TestExpression
.ExpressionSelectQuery.Items(0).Filters;
var OwnerIDsFilter = Filter.ItemsByCode('tcOwnerIDs');
var ContactIDsFilter = Filter.ItemsByCode('tcContactIDs');
var SubContactIDsFilter = SubSelectFilter.ItemsByCode('tcContactIDs');
ApplyIncludeFilter(OwnerIDsFilter, IDs, true, null, Parameters);
ApplyIncludeFilter(ContactIDsFilter, IDs, true, null, Parameters);
ApplyIncludeFilter(SubContactIDsFilter, IDs, true, null, Parameters);
TeamFilter.IsEnabled = true;
Filter.IsEnabled = true;

Если вы плюёте мне в спину, значит я впереди вас!

var IDs = GetContactsFilterArray();
SetAttribute(Self, 'ContactsFilterArray', IDs);
var Filter = Dataset.SelectQuery.Items(0).Filters.Items(0)
.ItemsByCode('ContactIDs');
if (!Assigned(Filter)) {
Filter = Dataset.SelectQuery.Items(0).Filters.Items(0).Items(0).ItemsByCode('ContactIDs');
}

var Parameters = Dataset.SelectQuery.Parameters;
var TeamFilter = Filter.ItemsByCode('tcTeam');
var SubSelectFilter = TeamFilter.TestExpression
.ExpressionSelectQuery.Items(0).Filters;
var OwnerIDsFilter = Filter.ItemsByCode('tcOwnerIDs');
var ContactIDsFilter = Filter.ItemsByCode('tcContactIDs');
var SubContactIDsFilter = SubSelectFilter.ItemsByCode('tcContactIDs');
ApplyIncludeFilter(OwnerIDsFilter, IDs, true, null, Parameters);
ApplyIncludeFilter(ContactIDsFilter, IDs, true, null, Parameters);
ApplyIncludeFilter(SubContactIDsFilter, IDs, true, null, Parameters);
TeamFilter.IsEnabled = true;
Filter.IsEnabled = true;

Спасибо огромное! Теперь все заработала как надо :)

Если вы плюёте мне в спину, значит я впереди вас!

Разработчики написали код... Вы его установили... А потом, кто-то подумал о значение null... Добавили заплатку... А Вам уж, звиняйте, нужно ручками дописывать :biggrin:

--
www.it-sfera.com.ua

Может попробовать забрать и снова раздать права на эти разделы.

Здравствуйте, Алексей!
Для решения возникшей у Вас проблемы могу посоветовать зайти в TSAdmin.exe, открыть таблицу, например, tbl_Account и пересохранить ее (для этого добавьте в название таблицы например пробел, потом уберите его и сохраните таблицу). Таблица пересохранится, что в результате приведет к пересозданию View-представления vw_Account на сервере.
Аналогичные действия выполните для таблиц tbl_Contacts и tbl_Task.
После этого перезапустите рабочее приложение Terrasoft CRM и протестируйте работосопосбность системы.

Также советую скопировать файл Firebird.msg из папки Firebird (с серверной машины) на клиенскую машину. Таким образом, на клиентской машине должны быть два файла fbclient.dll и Firebird.msg.

Желаю удачи!

Мельникова Екатерина

При попытке пересохранить tbl_Account получил вот это сообщение об ошибке.

violation of FOREIGN KEY constraint "PCONTACT_ID" on table "tbl_Contact"
Foreign key reference target does not exist
violation of FOREIGN KEY constraint ""
Error Code: 146
ALTER TABLE "tbl_Account" ADD CONSTRAINT "FAccountPrimaryContactID2"
FOREIGN KEY ("PrimaryContactID") REFERENCES "tbl_Contact" ("ID")

Проверил отношения, все заполнено верно. Поле ID в tbl_Contact присутствует. Странно...

При пересохранении tbl_Task получил вот это сообщение:

violation of FOREIGN KEY constraint "PCONTACTGROUP_ID" on table "tbl_ContactGroup"
Foreign key reference target does not exist
violation of FOREIGN KEY constraint ""
Error Code: 146
ALTER TABLE "tbl_Task" ADD CONSTRAINT "FTaskOwnerGroupID"
FOREIGN KEY ("OwnerGroupID") REFERENCES "tbl_ContactGroup" ("ID")

Тоже все проверил, все должно быть в норме.

tbl_Contact пересохраняется нормально. И кстати, этот сервис у пользователя заработал еще до того, как е его пере сохранил.

Такие ошибки могут появляться, если в сервисе указаны ссылки на не существующие таблицы. Проверьте Ваш сервис в части ссылок на другие таблицы. Возможно, одна из ссылок не корректна (будет содержать пустое имя таблицы для внешнего ключа).

Горелов Виталий
Компания Лабитек

Да, совершенно верно. Были ошибки в ссылках на таблицы. Исправил, сервисы пересохранил. Как только появится возможность, я тут же проверю заработали ли сервисы у пользователя.

После исправления ошибок в ссылках, таблицы пересохранились нормально. Но система ведется себя странно. Пользователь входит, сообщений об ошибках нет, но все датасеты пустые и наверху в заголовке окна террасофта, где пишется в скобках ФИО контакта - Террасофт 3.1 - Террасофт (Иванов Иван Иванович) - теперь в скобках пишет "Null".
То есть теперь заголовок окна выглядит так:

Террасофт 3.1 - Террасофт (Null)

Права проверил, стоят все какие есть на все сервисы.
Пришлось ставить галочку "Администратор" пользователю. Тогда все заработало нормально.

:-) Террасофт 3.1 - Террасофт (Null)
значит пользователь не имеет прав доступа на строку своего контакта (в разделе Администрирование , пользователь создается с привязкой к определённому контакту) , дайте ему права на чтение этой строки

Так в том-то и дело, что в Администрировании в Террасофт у пользователя стоят все галочки на группе таблиц Контакты. И конкретно на этот контакт в Детали "Доступ" указанному пользователю разрешено Запись и Чтение.

"Барабанов Алексей Александрович" написал:Так в том-то и дело, что в Администрировании ...

1)var Timer = System.CreateObject('TSWindowLibrary.Timer');
зачем его создавать , я понять немогу
2) в окне редактирования задач , на событии OnDatasetDataChange

function dlDataOnDatasetDataChange(DataField) {
if (!Assigned(DataField)) {
return;
}
var DataFieldName = DataField.Name;
if (DataFieldName == 'StatusID'){
if (DataField.Value == 'айдишник состояния выполнено' ){
dlData.Dataset.DataFields('ResultID').IsRequired = true;
} else {
dlData.Dataset.DataFields('ResultID').IsRequired = false;
}

}
}

Вместо последнего if я бы написал

dlData.Dataset.DataFields('ResultID').IsRequired = (DataField.Value == 'айдишник состояния выполнено');

Спасибо, со 2-м пунктом разобрался, а вот с первым нет. Имелось ввиду что менеджеры, когда создают задачу (чаще всего они создают ее себе сами) часто забывают запутить таймер ее выполнения со всеми вытекающими отсюда последствиями.
Руководитель отдела попросил меня, чтобы это делалось автоматически, т.к. в 90% случаев факт того, что менеджер завел задачу ознает что он уже начал ее выполнять, то есть логично было бы запускать его автоматически, а не совершать дополнительное ручное действие.

Заранее спасибо за помощь!

можно попробовать изменить под себя функцию StartTimer()
которая находится в scr_TasksWorkspace
но она может неработать для вновь созданых задачь