Платежные реквизиты

"Fishi" написал:как реализовать проверку на наличие отметки и формирование отчета только для этого Платежного реквизита и на каком этапе формирования отчета осуществлять проверку?

Да, действительно так работает. Спасибо большое!
Оказалось проще, чем я предполагал:smile:

Всегда пожалуйста :)

Хотел еще сделать проверку по полю "Основной", является ли он единственным (по примеру поля "Базовая" для Валют)

//-----------------------------------------------------------------------------
// ds_AccountBillingInfoScript
//-----------------------------------------------------------------------------
 
function SetDefaultDatasetValues(Dataset) {
	Dataset.Values('IsDefault') = false;
}
 
function CheckIsDefault(Dataset) {
	var IsDefaultField = Dataset.DataFields.ItemsByName('IsDefault');
	if (IsDefaultField.Value == true) {
		var OldDefaultID = GetDatasetFieldValueFromDatasetByUSI(
			'ds_AccountBillingInfo', 'IsDefault', true, 'ID');
		if ((OldDefaultID != Dataset.Values('ID')) &&
			!(IsEmptyGUID(OldDefaultID))) {			
			IsDefaultField.Value = false;
			System.MessageDialog(CouldntBeMoreThenOneDefaultAccountBilling, mdtWarning, mdbYes, 0); 
		}
	}
}
 
// ----------------------------------------------------------------------------
// Event handlers
// ----------------------------------------------------------------------------
 
function SelfOnDatasetAfterAppend(Dataset) {
	SetDefaultDatasetValues(Dataset);
 
}
 
function SelfOnDatasetBeforePost(Dataset) {
	CheckIsDefault(Dataset);
 
}

Но при закрытии окна редактирования вместо окна уведомления System.MessageDialog выскакивает ошибка: "Ошибка выполнения метода 'SelfOnDatasetBeforePost'. Exception thrown and not caught"
Не подскажете что я пропустил?

Возможно, у Вас не создан фильтр 'IsDefault' в sq_AccountBillingInfo.

Так и есть..надо быть повнимательней))
Еще раз спасибо!
Но теперь System.MessageDialog всплывает при смене значения поля "Основной", даже если в других значение не установлено. Видимо надо как-то обнулять значение переменной OldDefaultID?

var OldDefaultID = GetDatasetFieldValueFromDatasetByUSI(
                        'ds_AccountBillingInfo', 'IsDefault', true, 'ID');

В этой строчке реализовано получение значения записи с галочкой в поле "Основной", но при этом не учтено, что ее нужно искать впределах текущего контрагента.

Действительно, результат один и тот же..
Пробую использовать фильтр вида

ApplyDatasetIDFilter(AccountDataset, AccountID, true);

но никакого результата(( Наверное как всегда не то и не туда влепил.

Вместо строчки

var OldDefaultID = GetDatasetFieldValueFromDatasetByUSI(
                        'ds_AccountBillingInfo', 'IsDefault', true, 'ID');

можно написать

var AccountBillingInfoDataset = GetSingleItemByCode('ds_AccountBillingInfo', 'DefaultInfo');
ApplyDatasetFilter(AccountBillingInfoDataset, 'AccountID', Dataset('AccountID'), true);
ApplyDatasetFilter(AccountBillingInfoDataset, 'IsDefault', true, true);
AccountBillingInfoDataset.Open();
var OldDefaultID = AccountBillingInfoDataset('ID');
AccountBillingInfoDataset.Close();

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

Первый фильтр

ApplyDatasetFilter(AccountBillingInfoDataset, 'AccountID', Dataset('AccountID'), true);

работает нормально. Но вот второй - нет. Значение OldDefaultID каждый раз равно ID первой добавленной записи Платежные реквизиты, следовательно при установке признака Основной на других Реквизитах срабатывает System.MessageDialog и изменения не сохраняются.

Немного подправила предыдущий пост, там была ошибка.

Перенес изменения, но ничего нового не происходит...результат действий второго фильтра не изменился(((
Кстати, что за значение в GetSingleItemByCode - DefaultInfo? (подумал что опечатка, изменил на IsDefault, а на результате это не отобразилось)

Services.GetNewItemByUSI(USI) - всегда создает новый экземпляр сервиса.
Services.GetSingleItemByUSI(USI) - сначала ищет среди закешированных сервисов, созданных этим же методом, если находит, возвращает ссылку, иначе создает, кеширует и тоже возвращает ссылку.
GetSingleItemByCode(USI, UniqueCode) - сначала ищет среди закешированных сервисов, при поиске использует еще и параметр UniqueCode, если не находит также создает экземпляр, кеширует, используя UniqueCode и возвращает ссылку.

"Fishi" написал:DefaultInfo? (подумал что опечатка, изменил на IsDefault, а на результате это не отобразилось)

AccountBillingInfoDataset.Open();

посмотрите

Connector.DBEngine.GetSelectQuerySQLText(AccountBillingInfoDataset.SelectQuery)

или после прохождения этой строчки, какой запрос идет в базу.

Получается вот такой запрос:

SELECT
	[tbl_AccountBillingInfo].[ID] AS [ID],
	[tbl_AccountBillingInfo].[BankAccountNumber] AS [AccountNumber],
	[tbl_AccountBillingInfo].[Description] AS [Description],
	[tbl_Bank].[Name] AS [BankName],
	[tbl_AccountBillingInfo].[BankID] AS [BankID],
	[tbl_AccountBillingInfo].[AccountID] AS [AccountID],
	[tbl_Bank].[MFO] AS [MFO],
	[tbl_Bank].[Address] AS [Address],
	[tbl_AccountBillingInfo].[IsDefault] AS [IsDefault]
FROM
	[dbo].[tbl_AccountBillingInfo] AS [tbl_AccountBillingInfo]
LEFT OUTER JOIN
	[dbo].[tbl_Bank] AS [tbl_Bank] ON [tbl_Bank].[ID] = [tbl_AccountBillingInfo].[BankID]

Причем значение OldDefaultID присваеваеются в том порядке, в котором отображается результат запроса в Администраторе, что в принципе логично) но непонятно почему так и не работает фильтр по полю IsDefault и его значению true.

Часто бывает, что в результате использования GetSingleItemByCode фильтры датасета не обновляются. Попробуйте перед применением фильтров вставить:

EnableDatasetFilters(AccountBillingInfoDataset, false);

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

1.

"Лабьяк Олег Игоревич" написал:Попробуйте перед применением фильтров вставить:

EnableDatasetFilters(AccountBillingInfoDataset, false);

var ContactDataset = GetSingleItemByUSI('ds_Contact');
ApplyDatasetFilter(ContactDataset, 'AccountID', Dataset('SupplierID'), true);
ApplyDatasetFilter(ContactDataset, 'DecisionRoleID', '{ID значения из справочника}', true);

Но на GetSingleItemByUSI выдает ошибку "Ошибка выполнения метода 'ds_DocumentMyReport'. Object expected «Call Stack»"

По поводу второго вопроса как раз всё понятно, такой функции нет. Есть функция GetSingleItemByCode, а GetSingleItemByUSI - метод объекта Services, так же, как и GetNewItemByUSI. Правильно будет: Services.GetSingleItemByUSI('ds_Contact'). Но в данном случае лучше использовать GetSingleItemByCode.

Над первым вопросом ещё подумаю.

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

Насчет первого вопроса: какое у Вас значение параметра IsDefault? Попробуйте в SelectQuery установить значение этого параметра равным 1, а в скрипте использовать функцию EnableDatasetFilters:

var AccountBillingInfoDataset = GetSingleItemByCode('ds_AccountBillingInfo', 'DefaultInfo');
EnableDatasetFilters(AccountBillingInfoDataset, false);
ApplyDatasetFilter(AccountBillingInfoDataset, 'AccountID', Dataset('AccountID'), true);
EnableDatasetFilters(AccountBillingInfoDataset, true, 'IsDefault');
AccountBillingInfoDataset.Open();
var OldDefaultID = AccountBillingInfoDataset('ID');
AccountBillingInfoDataset.Close();

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

1.

"Лабьяк Олег Игоревич" написал:Насчет первого вопроса: какое у Вас значение параметра IsDefault? Попробуйте в SelectQuery установить значение этого параметра равным 1, а в скрипте использовать функцию EnableDatasetFilters

"Лабьяк Олег Игоревич" написал:Но в данном случае лучше использовать GetSingleItemByCode

По второму вопросу - скорее всего, к скрипту отчёта не подключен скрипт scr_DB. Упомянутые функции находятся именно в нём.

По первому - теряюсь в догадках... Можете выложить скрипт с функцией (и остальные сервисы, необходимые для корректной его работы)? Уточните, пожалуйста, Вашу версию.

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

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

Спасибо! Второй вопрос закрыт!!!
Осталось дело за малым:wink:
Вот скрипт функции с подключенным scr_DB

// ds_AccountBillingInfoScript
 
function SetDefaultDatasetValues(Dataset) {
	Dataset.Values('IsDefault') = false;
}
 
function CheckIsDefault(Dataset) {
   var IsDefaultField = Dataset.DataFields.ItemsByName('IsDefault');
   var DatasetID = Dataset.Values('ID');
   if (IsDefaultField.Value == true) {
	var AccountBillingInfoDataset = GetSingleItemByCode('ds_AccountBillingInfo','DefaultInfo');
        EnableDatasetFilters(AccountBillingInfoDataset, false);
        ApplyDatasetFilter(AccountBillingInfoDataset, 'AccountID', Dataset('AccountID'), true);
        EnableDatasetFilters(AccountBillingInfoDataset, true, 'IsDefault');
        AccountBillingInfoDataset.Open();
        var OldDefaultID = AccountBillingInfoDataset('ID');
        AccountBillingInfoDataset.Close();
        if ((OldDefaultID != Dataset.Values('ID')) &&
			!(IsEmptyGUID(OldDefaultID))) {	
	  IsDefaultField.Value = false;
          System.MessageDialog(CouldntBeMoreThenOneDefaultAccountBilling, 
					mdtWarning, mdbYes, 0); 
	}
   }
}
----------------
// Event handlers
----------------
 
function SelfOnDatasetAfterAppend(Dataset) {
	SetDefaultDatasetValues(Dataset);
}
 
function SelfOnDatasetBeforePost(Dataset) {
		CheckIsDefault(Dataset);
}

и запрос sq_AccountBillingInfo

SELECT
	[tbl_AccountBillingInfo].[ID] AS [ID],
	[tbl_AccountBillingInfo].[BankAccountNumber] AS [AccountNumber],
	[tbl_AccountBillingInfo].[Description] AS [Description],
	[tbl_Bank].[Name] AS [BankName],
	[tbl_AccountBillingInfo].[BankID] AS [BankID],
	[tbl_AccountBillingInfo].[AccountID] AS [AccountID],
	[tbl_Bank].[MFO] AS [MFO],
	[tbl_Bank].[Address] AS [Address],
	[tbl_AccountBillingInfo].[IsDefault] AS [IsDefault]
FROM
	[dbo].[tbl_AccountBillingInfo] AS [tbl_AccountBillingInfo]
LEFT OUTER JOIN
	[dbo].[tbl_Bank] AS [tbl_Bank] ON [tbl_Bank].[ID] = [tbl_AccountBillingInfo].[BankID]

Хотел уточнить, какая функциональность всё-таки требуется в итоге. Дело в том, что я реализовал у себя доработки по Вашему описанию, и не заметил каких-либо проблем в работе, фильтры срабатывают корректно.

Насколько я понимаю, сейчас ситуация следующая: первая запись на детали у Вас с признаком IsDefault = true. Соответственно, в данной реализации Вы никогда не измените её на false, а любую другую - на true, поскольку запрос всегда находит эту запись и срабатывает условие if ((OldDefaultID != Dataset.Values('ID')) && !(IsEmptyGUID(OldDefaultID))).

Возможно, Вам поможет следующий вариант функции CheckIsDefault:

function CheckIsDefault(Dataset) {
	var IsDefaultField = Dataset.DataFields.ItemsByName('IsDefault');
	var DatasetID = Dataset.Values('ID');
	if (IsDefaultField.Value == true) {
		var AccountBillingInfoDataset = GetSingleItemByCode('ds_AccountBillingInfo','DefaultInfo');
		EnableDatasetFilters(AccountBillingInfoDataset, false);
		ApplyDatasetFilter(AccountBillingInfoDataset, 'AccountID', Dataset('AccountID'), true);
		EnableDatasetFilters(AccountBillingInfoDataset, true, 'IsDefault');
		AccountBillingInfoDataset.Open();
		try {
			var OldDefaultID = AccountBillingInfoDataset('ID');
			if ((OldDefaultID != Dataset.Values('ID')) &&
				!(IsEmptyGUID(OldDefaultID))) {
				if (ShowConfirmationDialog("Запись с признаком 'IsDefault' уже существует. " +
					"Вы хотите установить этот признак для текущей записи?") == wmrYes) {
					AccountBillingInfoDataset.DisableEvents();
					AccountBillingInfoDataset.Edit();
					AccountBillingInfoDataset('IsDefault') = false;
					AccountBillingInfoDataset.Post();
					AccountBillingInfoDataset.EnableEvents();
				} else {
					IsDefaultField.Value = false;
				}
			}
		}
		finally {
			AccountBillingInfoDataset.Close();
		}
	}
}

Для её корректной работы необходимо подключить скрипт scr_WindowUtils. Результат работы будет виден после обновления реестра детали.

Функция проверяет, существует ли на детали контрагента запись с признаком IsDefault. Если да, предлагает установить этот признак для текущей записи и убрать его для прежней.

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

"Лабьяк Олег Игоревич" написал:Насколько я понимаю, сейчас ситуация следующая: первая запись на детали у Вас с признаком IsDefault = true. Соответственно, в данной реализации Вы никогда не измените её на false, а любую другую - на true, поскольку запрос всегда находит эту запись и срабатывает условие if ((OldDefaultID != Dataset.Values('ID')) && !(IsEmptyGUID(OldDefaultID))).

"Лабьяк Олег Игоревич" написал:Функция проверяет, существует ли на детали контрагента запись с признаком IsDefault. Если да, предлагает установить этот признак для текущей записи и убрать его для прежней.

Понятно, сейчас проверю на Вашей версии.

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

Проверил на версии 3.1.1.26, работает корректно. Попробуйте поставить debugger перед AccountBillingInfoDataset.Open(); и посмотреть, какой запрос выполняется в профайлере во время открытия датасета.

Проверьте, пожалуйста, если заменить

var AccountBillingInfoDataset = GetSingleItemByCode('ds_AccountBillingInfo','DefaultInfo');

на

var AccountBillingInfoDataset = Services.GetNewItemByUSI('ds_AccountBillingInfo');

фильтрация тоже не работает?

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

Если заменить GetSingleItemByCode на Services.GetNewItemByUSI результат не изменился.

"Лабьяк Олег Игоревич" написал:Попробуйте поставить debugger перед AccountBillingInfoDataset.Open(); и посмотреть, какой запрос выполняется в профайлере во время открытия датасета.

Если у Вас не Express, а более полная версия, то он находится в меню Tools->SQL Server Profiler. Если Express, то бесплатный профайлер, говорили, можно здесь скачать: http://sqlprofiler.googlepages.com/

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