редактирование детали

Вопрос

16 апреля 2013 08:54

Здравствуйте,

Столкнулся с проблемой при создании карточки редактирования детали.
Грид в окошке деталей все изображает правильно. После нажатия на "Изменить" карточка заполняется правильно. Все чекбоксы проставлены как следует. Нажимаю на любой чекбокс - программа вылетает. Причину вроде бы нашел - Dataset not in edit or insert mode. Попробовал сделать то, что мне нужно вручную. Поставил точку останова, в окне Immediate стал вводить команды и получил то же самое.

var TSOTDataset = Services.GetNewItemByUSI('ds_TSOTasks');

var Filters = TSOTDataset.SelectQuery.Items(0).Filters;

var Parameters = TSOTDataset.SelectQuery.Parameters;

Filters.ItemsByCode('ID').IsEnabled = true;

ApplyDatasetFilter(TSOTDataset, 'ID', '6CA45774-34EB-4A9F-BFE7-2E7DFE471653', true);

TSOTDataset.Open();

TSOTDataset.Edit();

TSOTDataset.Values('Weak') = 0;
Dataset not in edit or insert mode
TSOTDataset.Values('OP') = 0;
Dataset not in edit or insert mode
TSOTDataset.Values('Season') = 0;
Dataset not in edit or insert mode
TSOTDataset.Values('Relief') = 0;
Dataset not in edit or insert mode
TSOTDataset.Values('Diary') = 0;
Dataset not in edit or insert mode
TSOTDataset.State = 2

Попробовал поменять TSOTDataset.State, она вроде связана с edit or insert mode
Но ничего не получилось. Напрашивается мысль, что не сделал какую-то установку. Но есть одна деталь. До того, как добавил в карточку LookupDataControl, связанный с tbi_Department, редактирование работало. Как из этой ситуации выбраться?

Нравится

3 комментария

Фильковский Павел

16 апреля 2013 09:15

Добрый день!
TSOTDataset.State - не редактируемое свойство. Для того чтобы перевести датасет в редактируемое состояние нужно вызвать метод его объекта: Dataset.Edit() - это состояние соответствуею системной константе dstEdit. Перед этим он должен быть открыт: Dataset.Open() - dstBrowse.

Все возможные состояния перечислены в scr_SysEnums:

// Constants for enum _DatasetStateEnum
dstInactive = 0x00000000;
dstBrowse = 0x00000001;
dstEdit = 0x00000002;
dstInsert = 0x00000003;
dstCalcFields = 0x00000004;

По ошибке, которая возникают у Вас могут понадобится сервисы детали и радела.
Нужно проверить как инициализируется деталь в wnd_ContactWorkspaceScript, и что в скрипте грида детали. Для примера посмотрите, пожалуйста, как организована деталь "Отрасль контрагента".

Ответить

Зеннюков В.Ю.

17 апреля 2013 09:56

Добрый день,

Попробовал сделать как в "Отрасль контрагента". Та же ошибка, что и раньше - Terrasoft has stopped working. Close the program. services.zip
В прикрепленном файле сервисы, сделал совсем просто - 1 поле, и фильтры в запросе упростил. Но все-равно та же ошибка. Похоже, что в dlDataOnDatasetBeforePost и dlDataOnDatasetAfterPost программа не попадает.

Ответить

Бондарь Наталия

17 апреля 2013 14:01

Посмотрела сервисы. Рекомендую изменить функции инициализации и обновления детали таким образом:

function InitializeContactAttempt4Detail() {
 ContactsWorkspace.ContactAttempt4Window = wndAttempt4Detail.Window;
 SetAttribute(ContactsWorkspace.ContactAttempt4Window,'DatasetUSI','ds_Attempt4');
 SetAttribute(ContactsWorkspace.ContactAttempt4Window,'EditWindowUSI', 'wnd_Attempt4Edit'); 
//добавлена строка
 SetAttribute(ContactsWorkspace.ContactAttempt4Window, 'ParentItemFieldName', 'ContactID');
//
  var DetailWindow = ContactsWorkspace.ContactAttempt4Window;
  DetailWindow.Prepare();
  ContactsWorkspace.ContactAttempt4Dataset = DetailWindow.ComponentsByName('dlData').Dataset;
}
 
function RefreshContactAttempt4Detail() { 
 if (ContactsWorkspace.InitializeDocumentsFlag !=true ) {
     InitializeContactAttempt4Detail();
     ContactsWorkspace.InitializeDocumentsFlag = true;
        }
        //ContactsWorkspace.ContactAttempt4Dataset.Open();
//добавлен блок кода
 var ContactID = BaseWorkspace.GridDataset.ValAsGUID('ID');
 SetAttribute(ContactsWorkspace.ContactAttempt4Window, 'ParentItemID', ContactID);
 RefreshDetailData(BaseWorkspace.GridDataset, 'ID', ContactsWorkspace.ContactAttempt4Dataset, 'ContactID');  
//		           
}

Обратите внимание, у Вас в функции ActualizeTSO скрипта scr_Attempt4Edit применяется фильтр:

ApplyDatasetFilter(TSODataset, 'IsDiary', 1, true);

Но фильтра с названием IsDiary в запросе sq_Attempt4 нет.

Ответить

Показать все комментарии

Публикация

редактирование детали

связь детали с карточкой редактирования

Учимся редактировать записи детали раздела из карточки редактирования записи раздела

Фильковский Павел

29 октября 2012 22:55

Полезным оказался нескольким пользователям функционал радеатирования записи детали по, скажем, контрагенту, из его карточки редактирования. Реализация не сложная, много времни не заберет ;)

Покажу на примере карточки контрагента, и Детали[Платежные реквизиты].
Предположим, в карточке контрагента нужно иметь выбрать одну из записей датели с платежными реквизитами.

Начнем с сервисов раздела контрагенты:

Запускаем Terrasoft Administrator, неходим и открываем в нем сервис Accounts\General\Main Grid\tbl_Account
Добавляем в него новое поле типа GUID, AccountINNID
Добавляем связь по вторичному ключу для этого поля (Relation)

Сохраняем сервис tbl_Account с обновлением структуры таблицы в БД.
Находим и открываем сервис Accounts\General\Main Grid\sq_Account, добавьте в него выборку поля AccountINNID
После того как в выборку будет добавленно поле AccountINNID в Select, привязываем к ней через Join таблицу tbl_AccountBillingInfo

Настраиваем привязку по полям tbl_AccountBillingInfo.ID = tbl_Account.AccountINNID
Затем добавляем в Select выборку поля INN из таблицы tbl_AccountBillingInfo и задаем ему псевдоним (Alias) = AccountINN
Теперь можно добавить поле AccountINNID справочного типа LookupDataField в Датасет Accounts\General\Main Grid\ds_Account, связав его с датасетом ds_AccountBillingInfo, и указав поле для отображения AccountINN
Открываем сервис карточки редактирования контрагента, wnd_AccountEdit, добавьте в него поле типа LookupDataControl связав его с полем AccountINNID датасета
Для этого же поля, перейдя на закладку События задаем обработчик события OnPrepareSelectWindow:

В тело обработчика вставляем код:

function edtAccountINNOnPrepareSelectWindow(LookupDataControl, SelectWindow) {

var LookupDataset = LookupDataControl.DataField.LookupDataset;
ApplyDatasetFilter(LookupDataset, 'AccountID', dlData.Dataset('ID'), true);

SelectWindow.Attributes('DisplayFieldNames') = 'Name;INN';
SelectWindow.Attributes('SearchFieldNames') = 'INN';
SelectWindow.Attributes('KeyFieldName') = 'ID';
SelectWindow.Attributes('KeyValue') = null;
SelectWindow.Attributes('SearchFieldName') = 'INN';

var DefaultValues = GetNewDictionary();
DefaultValues.Add('AccountID', dlData.Dataset('ID'));
DefaultValues.Add('INN', null);
SelectWindow.Attributes('DefaultValues') = DefaultValues;
LookupDataset.Attributes('EditWindowUSI') = 'wnd_AccountBillingInfoEdit';

}
При необходимости вывести поле Account INN в реестр контрагентов, включите его в сервисе wnd_AccountGridArea

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

В случае необходимости сделать поле INN обязательным для всех типов реквизитов, отвяжите его в настройках пользовательских полей от всех типов записей:
Файл :: Настройки :: Пользовательские поля:

И добавьте его вручную на форму редактирования платежных реквизитов в сервисе Accounts\Details\Billing Information\wnd_AccountBillingInfoEdit как строковое.