Проблема: одинаковые клиенты

[Lelya]

Добрый день!
В систему по ошибке внесли одного и того же клиента два раза, естественно, под разными кодами. Есть заказы, подтверждения, счета на оплату и платежи и на того и на другого. Нет отгрузок и сопоставлений. В идеале хотелось бы программно исправить эту ситуацию, оставив одного клиента, или хотя бы оценить масштаб трагедии. Подскажите, плиз, в каких таблицах еще необходимо исправить, кроме следующих: SalesTable, SalesLine, InventTrans, CustConfirmJour, CustInvoice4PaymJour_RU, LedgerJournalTrans, CustVendPaymJournalFee. Заранее спасибо.

P.S. Ахарта 3.0, SP3.

[ppson]

CustTrans
CustTransOpen

P.S. Отсторнировать платежи и поменять клиентов в заказах не прокатит?

[belugin]

В качестве бреда:
1. Посмотреть на таблицы, где код клиента - часть ПК
2. Слить данные в жтих таблицах
3. Снести одного клиента
4. Переименовать первичный ключ второго в первого.

[Lelya]

2 ppson "Отсторнировать платежи и поменять клиентов в заказах"
Прицениваемся и к этому

[mazzy]

Quote:

Originally Posted by Lelya

В идеале хотелось бы программно исправить эту ситуацию, оставив одного клиента, или хотя бы оценить масштаб трагедии.

Не надо программно.
Надо в общем журнале сделать проводку зачета между клиентами.
сопоставить. Неправильного клиента полностью заблокировать (есть такой реквизит в клиенте)

[fazer]

Quote:

Originally Posted by belugin

В качестве бреда:
1. Посмотреть на таблицы, где код клиента - часть ПК
2. Слить данные в жтих таблицах
3. Снести одного клиента
4. Переименовать первичный ключ второго в первого.

А что такое "код клиента - часть ПК"?
Вроде достаточно п.3.4.

[Ned]

Если такие ошибки часто появляются, то:

void merge(RecId  mainRecordId,RecId secondRecordId)
{
    CustTable       _tableMain;
    CustTable       _tableLine;
    SalesJournalAutoSummary     journalSummary;
    SalesPrintCopies            printCopies;
    CustBankAccount             custBankAccount;
    RContractTable              contractTable;
    RContractTable              contractTableNew;

    LedgerBalancesDimTrans      dimTrans;

    Dimensions                  dim, dimNew;
    ;

    startLengthyOperation();

    ttsbegin;

    select forUpdate _tableMain
    where _tableMain.RecId == mainRecordId;

    if (_tableMain.RecId == 0)
    {
        ttsabort;
        throw error('??? ??????? ??????!');
    }

        select forUpdate _tableLine
        where _tableLine.RecId == secondRecordId;

        if (_tableLine.RecId != 0)
        {
            delete_from journalSummary where journalSummary.CustAccount == _tableLine.AccountNum;
            delete_from printCopies where printCopies.CustAccount == _tableLine.AccountNum;
            delete_from custBankAccount where custBankAccount.CustAccount == _tableLine.AccountNum;

            while select forUpdate contractTable
            where contractTable.RContractPartnerType == RContractPartnerType::Cust &&
                contractTable.RContractPartnerCode == _tableLine.AccountNum
            exists join contractTableNew
            where contractTableNew.RContractPartnerType == RContractPartnerType::Cust &&
                contractTableNew.RContractPartnerCode == _tableMain.AccountNum &&
                contractTableNew.RContractAccount == contractTable.RContractAccount &&
                contractTableNew.RContractCode == contractTable.RContractCode
            {
                contractTable.delete();
            }

            select forUpdate dimNew
            where dimNew.DimensionCode == SysDimension::Partner &&
                dimNew.Num == _tableMain.AccountNum;

            if (dim.RecId == 0 || dimNew.RecId == 0)
            {
                ttsabort;
                throw error('?? ??????? ?????????, ??????????????? ????????????!');
            }

            _tableLine.merge(_tableMain);
            dim.merge(dimNew);
        }


    ttscommit;

    endLengthyOperation();
}

В коде чуток мусора может - это под конкретную базу, нет времени править.

[Ned]

В связанных таблицах править руками - не самый лучший способ когда есть и прекрасно работает custTable.merge(xxx);

[MironovI]

Присоединюсь пожалуй, чем не устраивает вариант Belugin?

3. Снести одного клиента
4. Переименовать первичный ключ второго в первого.

[Ned]

Если никто не обратил внимание, то мой код как раз и реализует вариант, предложенный Белугиным.

[belugin]

Quote:

Originally Posted by fazer

А что такое "код клиента - часть ПК"?
Вроде достаточно п.3.4.

Допустим есть таблицы с первичным ключем

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

[belugin]

А еще могут быть связи по recID