Как убить виртуальную компанию?

[glibs]

Коротко.

1. Была создана коллекция таблиц.

2. Была создана виртуальная компания. В нее была включена коллекция таблиц из п. 1.

3. Было создано несколько компаний. Все они были включены в виртуальную компанию из п. 2. В них были введены данные. Ряд данных попал в "виртуальные компании".

4. Были удалены компании. Данные, принадлежащие компаниям удалились.

5. Были удалены виртуальные компании. Данные, принадлежащие виртуальным компаниям, остались в SQL базе.

Подскажите, пожалуйста.

1. У вас тоже так все работает или у меня уникальный случай?

2. Если да, то почему при удалении виртуальной компании из нее не удаляются данные (если знаете)?

3. И наконец, существует ли штатная возможность удаления данных из виртуальных компаний? Всех сразу и из всех таблиц.

[komar]

Попробуй сделать компанию "не виртуальной" путем подкручивания признака виртуальности в таблице компаний, а потом ее удалить.

[Роман Кошелев]

<h3>Пользуйтесь <i>не</i>штатными средствами Аксапты (:</h3>
<a href=/images/ARM_DBSruct.jpg title="Нажмите чтобы увидеть ещё"><img src="/images/ARM_DBStruct_1.jpg" border=0></a>
<b>Рис 1. АРМ "Настройка стурктуры". Нажмите чтобы увидеть ещё.</b>

Мы пару недель назад приступили к перестройки структуры и поняли, что Аксапта не позаботилась не только об удобстве этих операций, но и, когда копнули глубже (уже с помощью написанного под это дело Автоматизированного Рабочего Места) выяснили, например, что многи вещи, связанные со структурой (компании, виртуальные компании, коллекции и пр.) в Аксапте просто непродуманы и даже (какое кощунство!) идеологически ошибочны.

К сожалению, мы сейчас не можем выложить на всеобщий доступ данный проект, как это делали ранее -- в первую очередь из-за того, что он зависит от Проекта "Селектор" (бывш. Абстрактный Классификатор), который как раз активно переделывается под новую структуру, чтобы учитывать области видимости объектов.

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

[Garic]

Данные действительно не удаляются:
Реальная компания:

PHP код:

void delete()
{
.....
        if (this.validateDelete())
        {
            if (SysDataArea::delete(dataAreaId))
            {
                super();
            }
} 


Виртуальная компания:

PHP код:

void delete()
{
.....
            if (sysDataArea::askDelete(dataAreaId))
            {
                super();
                delete_from virtualDataAreaList
                    where virtualDataAreaList.virtualDataArea == dataAreaId;
            }
} 


Штатной возможности ИМХО не существует. Это реализуется несколькими строчками кода:

PHP код:

void deleteCompanyData(CompanyId pFromCompany, boolean showProgress = true)
{
    #macrolib.AviFiles
    Connection              connection;
    Statement               stmt;
    Dictionary              dictionary;
    DictTable               dictTable;
    tableId                 nextTableId = 0;
    int                     retCde, tableCnt, tabTot;
    str                     sqls;
    str                     fldStr;
    SysOperationProgress    sysOperationProgress;
    ;

    connection = new Connection();
    stmt = connection.createStatement();
    dictionary = new Dictionary();
    if (showProgress)
    {
        nextTableId = dictionary.tableNext(nextTableId);
        tabTot = 0;
        while (nextTableId)
        {
            dictTable = new DictTable(nextTableId);
            if (dictTable.dataPrCompany() &&
                dictTable.enabled() &&
                !dictTable.isTmp() &&
                dictTable.isSql() &&
                !dictTable.isMap())
                tabTot++;
            nextTableId = dictionary.tableNext(nextTableId);
        }
        sysOperationProgress = new SysOperationProgress();
        sysOperationProgress.setCaption('Удаление данных компании  ' + pFromCompany);
        sysOperationProgress.setAnimation(#AviFileCopy);
        sysOperationProgress.setTotal( tabTot );
    }

    tableCnt = 1;
    nextTableId = 0;
    nextTableId = dictionary.tableNext(nextTableId);
    while (nextTableId)
    {
        dictTable = new DictTable(nextTableId);
        if (dictTable.dataPrCompany() &&
            dictTable.enabled() &&
            !dictTable.isTmp() &&
            dictTable.isSql() &&
            !dictTable.isMap())
        {
            if (showProgress)
                sysOperationProgress.setText( strFmt("Удаление данных из таблицы ", int2str(tableCnt),
                                            int2str(tabTot), dictTable.name(DbBackend::SQL)));
            sqlS = 'DELETE FROM '+dictTable.name(DbBackend::SQL)+
                            ' WHERE DATAAREAID = \''+pFromCompany+'\'';
            stmt.executeUpdate(sqlS);

            tableCnt++;
            if (showProgress)
                sysOperationProgress.setCount( tableCnt );
        }
        nextTableId = dictionary.tableNext(nextTableId);
    }
} 


Пользуйтесь

[komar]

А у меня проще :-)

[glibs]

Цитата:

Изначально опубликовано komar
Попробуй сделать компанию "не виртуальной" путем подкручивания признака виртуальности в таблице компаний, а потом ее удалить.

Спасибо,

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

Отсюдова сделал вывод - под каждую виртуальную компанию имеет смысл завести реальную. Это поможет контролировать манипуляции с компаниями, а также сделает более контролируемыми операции экспорта/импорта данных (если под каждую реальную завести двойника-реальную, но не включенную в виртуальную).

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

[komar]

Я имел в виду, что средствами базы данных изменить поле, по которому компания опознается как виртуальная (вроде бы поле называется IsVirtual), с Yes на No,
а далее удалить эту компанию.

[glibs]

Цитата:

Изначально опубликовано komar
Я имел в виду, что средствами базы данных изменить поле, по которому компания опознается как виртуальная (вроде бы поле называется IsVirtual), с Yes на No,
а далее удалить эту компанию.

Да я понял. Просто я привел более юзеровское, если можно так сказать, решение.

Цитата:

Изначально опубликовано glibs
...если под каждую реальную завести двойника-реальную, но не включенную в виртуальную...

Что-то сам не понял, что написал. Прошу считать анулированным. Sorry.