Здравствуйте!
Если Вам необходимо реализовать возможность отправки E-mail контрагенту через действие "Отправить E-mail", то Вы можете воспользоваться следующим алгоритмом (пример реализации для версии Terrasoft CRM 3.3):
1. В скрипте scr_MailUtils реализовать функцию получения e-mail адреса текущего контрагента:
function GetCurrentAccountEmailAddress(AccountDataset) {
var AccountEMailAddress = '';
var Email = GetEmailCommunicationTypeID();
for (var i = 1; i = 4; i++) {
var CommunicationTypeName = FormatStr('Communication%1TypeID', i);
var CommunicationType = GetFieldValueFromDisabledField(AccountDataset,
CommunicationTypeName);
if (CommunicationType == Email) {
var CommunicationName = FormatStr('Communication%1', i)
AccountEMailAddress = GetFieldValueFromDisabledField(AccountDataset,
CommunicationName);
continue;
}
}
var AccountName = GetFieldValueFromDisabledField(AccountDataset, 'Name');
if (IsEmptyStr(AccountEMailAddress)) {
Dataset = GetAccountCommunicationDataset(Email);
ApplyDatasetFilter(Dataset, 'AccountID',
AccountDataset.Values('ID'), true);
Dataset.Open();
try {
AccountEMailAddress = Dataset.ValAsStr('Number');
} finally {
Dataset.Close();
}
}
if (!IsEmptyStr(AccountEMailAddress)) {
if (!IsEmptyStr(AccountName)) {
AccountEMailAddress = AccountName + '' + AccountEMailAddress + '>';
}
} else {
AccountEMailAddress = '';
}
return AccountEMailAddress;
}
function GetAccountCommunicationDataset(EmailTypeID) {
if (!Assigned(MailUtilsScript.AccountCommunicationDataset)) {
var Dataset = Services.GetNewItemByUSI('ds_AccountCommunication');
MailUtilsScript.AccountCommunicationDataset = Dataset;
ApplyDatasetFilter(Dataset, 'CommunicationTypeID', EmailTypeID, true);
}
return MailUtilsScript.AccountCommunicationDataset;
}
2. Далее в скрипте scr_AccountsWorkspace реализовать функцию отправки сообщения :
function SendMailWithoutTemplate() {
var Dataset = Services.GetNewItemByUSI('ds_Account');
EnableDatasetFilters(Dataset, false);
Dataset.FetchRecordsCount = -1;
var IDs = GetArrayByCollection(BaseWorkspace.Grid.SelectedIDs);
var KeyDataFieldName = Dataset.KeyDataField.Name;
var AccountEMailAddress = '';
for (var i = 0; i IDs.length; i++){
Dataset.Close();
ApplyDatasetFilter(Dataset, 'ID', IDs[i], true);
Dataset.Open();
var SingleAccountEMailAddress = GetCurrentAccountEmailAddress(Dataset);
AccountEMailAddress += IsEmptyValue(SingleAccountEMailAddress) ? '' :
(IsEmptyValue(AccountEMailAddress) ? '' : ';') +
SingleAccountEMailAddress;
}
CreateEmptyMessage(AccountEMailAddress);
Dataset.Close();
}
3. В окне wnd_AccountsWorkspace добавить на закладке невизуальных компонентов одно действие, например, amiSendEmail и на событие OnExecute прописать вызов функции:
SendMailWithoutTemplate();
В результате с помощью действия будет создано письмо с e-mail адресом контрагента, действие в гриде продублируется автоматически.
Полная инструкция со скриншотами прикреплена.
Приятной работы!
