/*
    SPDX-FileCopyrightText: 2000-2004 Michael Edwardes <mte@users.sourceforge.net>
    SPDX-FileCopyrightText: 2000-2004 Javier Campos Morales <javi_c@users.sourceforge.net>
    SPDX-FileCopyrightText: 2000-2004 Felix Rodriguez <frodriguez@users.sourceforge.net>
    SPDX-FileCopyrightText: 2000-2004 John C <thetacoturtle@users.sourceforge.net>
    SPDX-FileCopyrightText: 2000-2004 Thomas Baumgart <ipwizard@users.sourceforge.net>
    SPDX-FileCopyrightText: 2000-2004 Kevin Tambascio <ktambascio@users.sourceforge.net>
    SPDX-FileCopyrightText: 2018 Łukasz Wojniłowicz <lukasz.wojnilowicz@gmail.com>
    SPDX-License-Identifier: GPL-2.0-or-later
*/

#include "mymoneygncreader.h"

// ----------------------------------------------------------------------------
// QT Includes
#include <QFile>
#include <QMap>
#include <QIcon>
#include <QInputDialog>
#include <QFileDialog>
#include <QTextCodec>
#include <QTextStream>
#include <QDebug>
#include <QXmlAttributes>
#include <QXmlInputSource>
#include <QXmlSimpleReader>
#include <QPointer>
#if QT_VERSION >= QT_VERSION_CHECK(5,10,0)
#include <QRandomGenerator>
#endif

// ----------------------------------------------------------------------------
// KDE Includes
#ifndef _GNCFILEANON
#include <KConfig>
#include <KMessageBox>
#endif
#include <KLocalizedString>

// ----------------------------------------------------------------------------
// Third party Includes

// ------------------------------------------------------------Box21----------------
// Project Includes
#include <config-kmymoney.h>
#include "mymoneystoragemgr.h"
#ifndef _GNCFILEANON
#include "kmymoneyutils.h"
#include "mymoneyfile.h"
#include "mymoneyaccount.h"
#include "mymoneysecurity.h"
#include "mymoneyschedule.h"
#include "mymoneyprice.h"
#include "mymoneypayee.h"
#include "mymoneysplit.h"
#include "mymoneytransaction.h"
#include "mymoneyexception.h"
#include "kgncimportoptionsdlg.h"
#include "kgncpricesourcedlg.h"
#include "keditscheduledlg.h"
#include "mymoneymoney.h"
#include "kmymoneymoneyvalidator.h"
#define TRY try
#define CATCH catch (const MyMoneyException &)
#define PASS catch (const MyMoneyException &) { throw; }
#else
#include "mymoneymoney.h"
#include <KTextEdit>
//  #define i18n QObject::tr
#define TRY
#define CATCH
#define PASS
#define MYMONEYEXCEPTION QString
#define MyMoneyException QString
#define PACKAGE "KMyMoney"
#endif // _GNCFILEANON

#include "mymoneyenums.h"

using namespace eMyMoney;

// init static variables
double MyMoneyGncReader::m_fileHideFactor = 0.0;
double GncObject::m_moneyHideFactor;

// user options
void MyMoneyGncReader::setOptions()
{
#ifndef _GNCFILEANON
    KGncImportOptionsDlg dlg; // display the dialog to allow the user to set own options
    if (dlg.exec()) {
        // set users input options
        m_dropSuspectSchedules = dlg.scheduleOption();
        m_investmentOption = dlg.investmentOption();
        m_useFinanceQuote = dlg.quoteOption();
        m_useTxNotes = dlg.txNotesOption();
        m_decoder = dlg.decodeOption();
        gncdebug = dlg.generalDebugOption();
        xmldebug = dlg.xmlDebugOption();
        bAnonymize = dlg.anonymizeOption();
    } else {
        // user declined, so set some sensible defaults
        m_dropSuspectSchedules = false;
        // investment option - 0, create investment a/c per stock a/c, 1 = single new investment account, 2 = prompt for each stock
        // option 2 doesn't really work too well at present
        m_investmentOption = 0;
        m_useFinanceQuote = false;
        m_useTxNotes = false;
        m_decoder = 0;
        gncdebug = false; // general debug messages
        xmldebug = false; // xml trace
        bAnonymize = false; // anonymize input
    }
    // no dialog option for the following; it will set base currency, and print actual XML data
    developerDebug = false;
    // set your fave currency here to save getting that enormous dialog each time you run a test
    // especially if you have to scroll down to USD...
    if (developerDebug) m_storage->setValue("kmm-baseCurrency", "GBP");
#endif // _GNCFILEANON
}

GncObject::GncObject() :
    pMain(0),
    m_subElementList(0),
    m_subElementListCount(0),
    m_dataElementList(0),
    m_dataElementListCount(0),
    m_dataPtr(0),
    m_state(0),
    m_anonClassList(0),
    m_anonClass(0)
{
}

// Check that the current element is of a version we are coded for
void GncObject::checkVersion(const QString& elName, const QXmlAttributes& elAttrs, const map_elementVersions& map)
{
    TRY {
        if (map.contains(elName)) { // if it's not in the map, there's nothing to check
            if (!map[elName].contains(elAttrs.value("version")))
                throw MYMONEYEXCEPTION(QString::fromLatin1("%1 : Sorry. This importer cannot handle version %2 of element %3").arg(Q_FUNC_INFO, elAttrs.value("version"), elName));
        }
        return ;
    }
    PASS
}

// Check if this element is in the current object's sub element list
GncObject *GncObject::isSubElement(const QString& elName, const QXmlAttributes& elAttrs)
{
    TRY {
        uint i;
        GncObject *next = 0;
        for (i = 0; i < m_subElementListCount; i++) {
            if (elName == m_subElementList[i]) {
                m_state = i;
                next = startSubEl(); // go create the sub object
                if (next != 0) {
                    next->initiate(elName, elAttrs); // initialize it
                    next->m_elementName = elName;    // save it's name so we can identify the end
                }
                break;
            }
        }
        return (next);
    }
    PASS
}

// Check if this element is in the current object's data element list
bool GncObject::isDataElement(const QString &elName, const QXmlAttributes& elAttrs)
{
    TRY {
        uint i;
        for (i = 0; i < m_dataElementListCount; i++) {
            if (elName == m_dataElementList[i]) {
                m_state = i;
                dataEl(elAttrs); // go set the pointer so the data can be stored
                return (true);
            }
        }
        m_dataPtr = 0; // we don't need this, so make sure we don't store extraneous data
        return (false);
    }
    PASS
}

// return the variable string, decoded if required
QString GncObject::var(int i) const
{
    /* This code was needed because the Qt3 XML reader apparently did not process
     the encoding parameter in the <?xml header.
     This SEEMS to have been rectified in Qt4 though I have little test data
     to prove this conclusively.
     If true, we can remove the encoding option in the import options dialog
     and this code too.*/
    return (pMain->m_decoder == 0
            ? m_v[i]
            : pMain->m_decoder->toUnicode(m_v[i].toUtf8()));
}

const QString GncObject::getKvpValue(const QString& key, const QString& type) const
{
    QList<GncKvp>::const_iterator it;
    // first check for exact match
    for (it = m_kvpList.begin(); it != m_kvpList.end(); ++it) {
        if (((*it).key() == key) && ((type.isEmpty()) || ((*it).type() == type)))
            return (*it).value();
    }
    // then for partial match
    for (it = m_kvpList.begin(); it != m_kvpList.end(); ++it) {
        if (((*it).key().contains(key)) && ((type.isEmpty()) || ((*it).type() == type)))
            return (*it).value();
    }
    return (QString());
}

void GncObject::adjustHideFactor()
{
#if QT_VERSION >= QT_VERSION_CHECK(5,10,0)
    m_moneyHideFactor = pMain->m_fileHideFactor * (1.0 + (int)(200.0 * QRandomGenerator::system()->generate() / (RAND_MAX + 1.0))) / 100.0;
#else
    m_moneyHideFactor = pMain->m_fileHideFactor * (1.0 + (int)(200.0 * qrand() / (RAND_MAX + 1.0))) / 100.0;
#endif
}

// data anonymizer
QString GncObject::hide(QString data, unsigned int anonClass)
{
    TRY {
        if (!pMain->bAnonymize) return (data); // no anonymizing required
        // counters used to generate names for anonymizer
        static int nextAccount;
        static int nextEquity;
        static int nextPayee;
        static int nextSched;
        static QMap<QString, QString> anonPayees; // to check for duplicate payee names
        static QMap<QString, QString> anonStocks; // for reference to equities

        QString result(data);
        QMap<QString, QString>::const_iterator it;
        MyMoneyMoney in, mresult;
        switch (anonClass) {
        case ASIS:     // this is not personal data
            break;
        case SUPPRESS: // this is personal and is not essential
            result = "";
            break;
        case NXTACC:   // generate account name
            result = ki18n("Account%1").subs(++nextAccount, -6).toString();
            break;
        case NXTEQU:   // generate/return an equity name
            it = anonStocks.constFind(data);
            if (it == anonStocks.constEnd()) {
                result = ki18n("Stock%1").subs(++nextEquity, -6).toString();
                anonStocks.insert(data, result);
            } else {
                result = (*it);
            }
            break;
        case NXTPAY:   // generate/return a payee name
            it = anonPayees.constFind(data);
            if (it == anonPayees.constEnd()) {
                result = ki18n("Payee%1").subs(++nextPayee, -6).toString();
                anonPayees.insert(data, result);
            } else {
                result = (*it);
            }
            break;
        case NXTSCHD:  // generate a schedule name
            result = ki18n("Schedule%1").subs(++nextSched, -6).toString();
            break;
        case MONEY1:
            in = MyMoneyMoney(data);
            if (data == "-1/0") in = MyMoneyMoney();  // spurious gnucash data - causes a crash sometimes
            mresult = MyMoneyMoney(m_moneyHideFactor) * in;
            mresult.convert(10000);
            result = mresult.toString();
            break;
        case MONEY2:
            in = MyMoneyMoney(data);
            if (data == "-1/0") in = MyMoneyMoney();
            mresult  = MyMoneyMoney(m_moneyHideFactor) * in;
            mresult.convert(10000);
            mresult.setThousandSeparator(' ');
            result = mresult.formatMoney("", 2);
            break;
        }
        return (result);
    }
    PASS
}

// dump current object data values // only called if gncdebug set
void GncObject::debugDump()
{
    uint i;
    qDebug() << "Object" << m_elementName;
    for (i = 0; i < m_dataElementListCount; i++) {
        qDebug() << m_dataElementList[i] << "=" << m_v[i];
    }
}
//*****************************************************************
GncFile::GncFile()
{
    static const QString subEls[] = {"gnc:book", "gnc:count-data", "gnc:commodity", "price",
                                     "gnc:account", "gnc:transaction", "gnc:template-transactions",
                                     "gnc:schedxaction"
                                    };
    m_subElementList = subEls;
    m_subElementListCount = END_FILE_SELS;
    m_dataElementListCount = 0;
    m_processingTemplates = false;
    m_bookFound = false;
}

GncFile::~GncFile() {}

GncObject *GncFile::startSubEl()
{
    TRY {
        if (pMain->xmldebug) qDebug("File start subel m_state %d", m_state);
        GncObject *next = 0;
        switch (m_state) {
        case BOOK:
            if (m_bookFound) MYMONEYEXCEPTION(QString::fromLatin1("This version of the importer cannot handle multi-book files."));
            m_bookFound = true;
            break;
        case COUNT:
            next = new GncCountData;
            break;
        case CMDTY:
            next = new GncCommodity;
            break;
        case PRICE:
            next = new GncPrice;
            break;
        case ACCT:
            // accounts within the template section are ignored
            if (!m_processingTemplates) next = new GncAccount;
            break;
        case TX:
            next = new GncTransaction(m_processingTemplates);
            break;
        case TEMPLATES:
            m_processingTemplates = true;
            break;
        case SCHEDULES:
            m_processingTemplates = false;
            next = new GncSchedule;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncFile rcvd invalid state");
        }
        return (next);
    }
    PASS
}

void GncFile::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("File end subel");
    if (!m_processingTemplates) delete subObj; // template txs must be saved awaiting schedules
    m_dataPtr = 0;
    return ;
}
//****************************************** GncDate *********************************************
GncDate::GncDate()
{
    m_subElementListCount = 0;
    static const QString dEls[] = {"ts:date", "gdate"};
    m_dataElementList = dEls;
    m_dataElementListCount = END_Date_DELS;
    static const unsigned int anonClasses[] = {ASIS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncDate::~GncDate() {}
//*************************************GncCmdtySpec***************************************
GncCmdtySpec::GncCmdtySpec()
{
    m_subElementListCount = 0;
    static const QString dEls[] = {"cmdty:space", "cmdty:id"};
    m_dataElementList = dEls;
    m_dataElementListCount = END_CmdtySpec_DELS;
    static const unsigned int anonClasses[] = {ASIS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncCmdtySpec::~GncCmdtySpec() {}

QString GncCmdtySpec::hide(QString data, unsigned int)
{
    // hide equity names, but not currency names
    unsigned int newClass = ASIS;
    switch (m_state) {
    case CMDTYID:
        if (!isCurrency()) newClass = NXTEQU;
    }
    return (GncObject::hide(data, newClass));
}
//************* GncKvp********************************************
GncKvp::GncKvp()
{
    m_subElementListCount = END_Kvp_SELS;
    static const QString subEls[] = {"slot"}; // kvp's may be nested
    m_subElementList = subEls;
    m_dataElementListCount = END_Kvp_DELS;
    static const QString dataEls[] = {"slot:key", "slot:value"};
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncKvp::~GncKvp() {}

void GncKvp::dataEl(const QXmlAttributes& elAttrs)
{
    switch (m_state) {
    case VALUE:
        m_kvpType = elAttrs.value("type");
    }
    m_dataPtr = &(m_v[m_state]);
    if (key().contains("formula")) {
        m_anonClass = MONEY2;
    } else {
        m_anonClass = ASIS;
    }
    return ;
}

GncObject *GncKvp::startSubEl()
{
    if (pMain->xmldebug) qDebug("Kvp start subel m_state %d", m_state);
    TRY {
        GncObject *next = 0;
        switch (m_state) {
        case KVP:
            next = new GncKvp;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncKvp rcvd invalid m_state ");
        }
        return (next);
    }
    PASS
}

void GncKvp::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("Kvp end subel");
    m_kvpList.append(*(static_cast <GncKvp*>(subObj)));
    m_dataPtr = 0;
    return ;
}
//*********************************GncLot*********************************************
GncLot::GncLot()
{
    m_subElementListCount = 0;
    m_dataElementListCount = 0;
}

GncLot::~GncLot() {}

//*********************************GncCountData***************************************
GncCountData::GncCountData()
{
    m_subElementListCount = 0;
    m_dataElementListCount = 0;
    m_v.append(QString());  // only 1 data item
}

GncCountData::~GncCountData() {}

void GncCountData::initiate(const QString&, const QXmlAttributes& elAttrs)
{
    m_countType = elAttrs.value("cd:type");
    m_dataPtr = &(m_v[0]);
    return ;
}

void GncCountData::terminate()
{
    int i = m_v[0].toInt();
    if (m_countType == "commodity") {
        pMain->setGncCommodityCount(i);
        return ;
    }
    if (m_countType == "account") {
        pMain->setGncAccountCount(i);
        return ;
    }
    if (m_countType == "transaction") {
        pMain->setGncTransactionCount(i);
        return ;
    }
    if (m_countType == "schedxaction") {
        pMain->setGncScheduleCount(i);
        return ;
    }
    if (i != 0) {
        if (m_countType == "budget") pMain->setBudgetsFound(true);
        else if (m_countType.left(7) == "gnc:Gnc") pMain->setSmallBusinessFound(true);
        else if (pMain->xmldebug) qDebug() << "Unknown count type" << m_countType;
    }
    return ;
}
//*********************************GncCommodity***************************************
GncCommodity::GncCommodity()
{
    m_subElementListCount = 0;
    static const QString dEls[] = {"cmdty:space", "cmdty:id", "cmdty:name", "cmdty:fraction"};
    m_dataElementList = dEls;
    m_dataElementListCount = END_Commodity_DELS;
    static const unsigned int anonClasses[] = {ASIS, NXTEQU, SUPPRESS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncCommodity::~GncCommodity() {}

void GncCommodity::terminate()
{
    TRY {
        pMain->convertCommodity(this);
        return ;
    }
    PASS
}
//************* GncPrice********************************************
GncPrice::GncPrice()
{
    static const QString subEls[] = {"price:commodity", "price:currency", "price:time"};
    m_subElementList = subEls;
    m_subElementListCount = END_Price_SELS;
    m_dataElementListCount = END_Price_DELS;
    static const QString dataEls[] = {"price:value"};
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
    m_vpCommodity = 0;
    m_vpCurrency = 0;
    m_vpPriceDate = 0;
}

GncPrice::~GncPrice()
{
    delete m_vpCommodity;
    delete m_vpCurrency;
    delete m_vpPriceDate;
}

GncObject *GncPrice::startSubEl()
{
    TRY {
        GncObject *next = 0;
        switch (m_state) {
        case CMDTY:
            next = new GncCmdtySpec;
            break;
        case CURR:
            next = new GncCmdtySpec;
            break;
        case PRICEDATE:
            next = new GncDate;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncPrice rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncPrice::endSubEl(GncObject *subObj)
{
    TRY {
        switch (m_state) {
        case CMDTY:
            m_vpCommodity = static_cast<GncCmdtySpec *>(subObj);
            break;
        case CURR:
            m_vpCurrency = static_cast<GncCmdtySpec *>(subObj);
            break;
        case PRICEDATE:
            m_vpPriceDate = static_cast<GncDate *>(subObj);
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncPrice rcvd invalid m_state");
        }
        return;
    }
    PASS
}

void GncPrice::terminate()
{
    TRY {
        pMain->convertPrice(this);
        return ;
    }
    PASS
}
//************* GncAccount********************************************
GncAccount::GncAccount()
{
    m_subElementListCount = END_Account_SELS;
    static const QString subEls[] = {"act:commodity", "slot", "act:lots"};
    m_subElementList = subEls;
    m_dataElementListCount = END_Account_DELS;
    static const QString dataEls[] = {"act:id", "act:name", "act:description",
                                      "act:type", "act:parent"
                                     };
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, NXTACC, SUPPRESS, ASIS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
    m_vpCommodity = 0;
}

GncAccount::~GncAccount()
{
    delete m_vpCommodity;
}

GncObject *GncAccount::startSubEl()
{
    TRY {
        if (pMain->xmldebug) qDebug("Account start subel m_state %d", m_state);
        GncObject *next = 0;
        switch (m_state) {
        case CMDTY:
            next = new GncCmdtySpec;
            break;
        case KVP:
            next = new GncKvp;
            break;
        case LOTS:
            next = new GncLot();
            pMain->setLotsFound(true); // we don't handle lots; just set flag to report
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncAccount rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncAccount::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("Account end subel");
    switch (m_state) {
    case CMDTY:
        m_vpCommodity = static_cast<GncCmdtySpec *>(subObj);
        break;
    case KVP:
        m_kvpList.append(*(static_cast <GncKvp*>(subObj)));
    }
    return ;
}

void GncAccount::terminate()
{
    TRY {
        pMain->convertAccount(this);
        return ;
    }
    PASS
}
//************* GncTransaction********************************************
GncTransaction::GncTransaction(bool processingTemplates)
{
    m_subElementListCount = END_Transaction_SELS;
    static const QString subEls[] = {"trn:currency", "trn:date-posted", "trn:date-entered",
                                     "trn:split", "slot"
                                    };
    m_subElementList = subEls;
    m_dataElementListCount = END_Transaction_DELS;
    static const QString dataEls[] = {"trn:id", "trn:num", "trn:description"};
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, SUPPRESS, NXTPAY};
    m_anonClassList = anonClasses;
    adjustHideFactor();
    m_template = processingTemplates;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
    m_vpCurrency = 0;
    m_vpDateEntered = m_vpDatePosted = 0;
}

GncTransaction::~GncTransaction()
{
    delete m_vpCurrency;
    delete m_vpDatePosted;
    delete m_vpDateEntered;
}

GncObject *GncTransaction::startSubEl()
{
    TRY {
        if (pMain->xmldebug) qDebug("Transaction start subel m_state %d", m_state);
        GncObject *next = 0;
        switch (m_state) {
        case CURRCY:
            next = new GncCmdtySpec;
            break;
        case POSTED:
        case ENTERED:
            next = new GncDate;
            break;
        case SPLIT:
            if (isTemplate()) {
                next = new GncTemplateSplit;
            } else {
                next = new GncSplit;
            }
            break;
        case KVP:
            next = new GncKvp;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncTransaction rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncTransaction::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("Transaction end subel");
    switch (m_state) {
    case CURRCY:
        m_vpCurrency = static_cast<GncCmdtySpec *>(subObj);
        break;
    case POSTED:
        m_vpDatePosted = static_cast<GncDate *>(subObj);
        break;
    case ENTERED:
        m_vpDateEntered = static_cast<GncDate *>(subObj);
        break;
    case SPLIT:
        m_splitList.append(subObj);
        break;
    case KVP:
        m_kvpList.append(*(static_cast <GncKvp*>(subObj)));
    }
    return ;
}

void GncTransaction::terminate()
{
    TRY {
        if (isTemplate()) {
            pMain->saveTemplateTransaction(this);
        } else {
            pMain->convertTransaction(this);
        }
        return ;
    }
    PASS
}
//************* GncSplit********************************************
GncSplit::GncSplit()
{
    m_subElementListCount = END_Split_SELS;
    static const QString subEls[] = {"split:reconcile-date"};
    m_subElementList = subEls;
    m_dataElementListCount = END_Split_DELS;
    static const QString dataEls[] = {"split:id", "split:memo", "split:reconciled-state", "split:value",
                                      "split:quantity", "split:account"
                                     };
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, SUPPRESS, ASIS, MONEY1, MONEY1, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
    m_vpDateReconciled = 0;
}

GncSplit::~GncSplit()
{
    delete m_vpDateReconciled;
}

GncObject *GncSplit::startSubEl()
{
    TRY {
        GncObject *next = 0;
        switch (m_state) {
        case RECDATE:
            next = new GncDate;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncTemplateSplit rcvd invalid m_state ");
        }
        return (next);
    }
    PASS
}

void GncSplit::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("Split end subel");
    switch (m_state) {
    case RECDATE:
        m_vpDateReconciled = static_cast<GncDate *>(subObj);
        break;
    }
    return ;
}
//************* GncTemplateSplit********************************************
GncTemplateSplit::GncTemplateSplit()
{
    m_subElementListCount = END_TemplateSplit_SELS;
    static const QString subEls[] = {"slot"};
    m_subElementList = subEls;
    m_dataElementListCount = END_TemplateSplit_DELS;
    static const QString dataEls[] = {"split:id", "split:memo", "split:reconciled-state", "split:value",
                                      "split:quantity", "split:account"
                                     };
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, SUPPRESS, ASIS, MONEY1, MONEY1, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncTemplateSplit::~GncTemplateSplit() {}

GncObject *GncTemplateSplit::startSubEl()
{
    if (pMain->xmldebug) qDebug("TemplateSplit start subel m_state %d", m_state);
    TRY {
        GncObject *next = 0;
        switch (m_state) {
        case KVP:
            next = new GncKvp;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncTemplateSplit rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncTemplateSplit::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("TemplateSplit end subel");
    m_kvpList.append(*(static_cast <GncKvp*>(subObj)));
    m_dataPtr = 0;
    return ;
}
//************* GncSchedule********************************************
GncSchedule::GncSchedule()
{
    m_subElementListCount = END_Schedule_SELS;
    static const QString subEls[] = {"sx:start", "sx:last", "sx:end", "gnc:freqspec", "gnc:recurrence", "sx:deferredInstance"};
    m_subElementList = subEls;
    m_dataElementListCount = END_Schedule_DELS;
    static const QString dataEls[] = {"sx:name", "sx:enabled", "sx:autoCreate", "sx:autoCreateNotify",
                                      "sx:autoCreateDays", "sx:advanceCreateDays", "sx:advanceRemindDays",
                                      "sx:instanceCount", "sx:num-occur",
                                      "sx:rem-occur", "sx:templ-acct",
                                     };
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {NXTSCHD, ASIS, ASIS, ASIS, ASIS, ASIS, ASIS, ASIS, ASIS, ASIS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
    m_vpStartDate = m_vpLastDate = m_vpEndDate = 0;
    m_vpFreqSpec = 0;
    m_vpRecurrence.clear();
    m_vpSchedDef = 0;
}

GncSchedule::~GncSchedule()
{
    delete m_vpStartDate;
    delete m_vpLastDate;
    delete m_vpEndDate;
    delete m_vpFreqSpec;
    delete m_vpSchedDef;
}

GncObject *GncSchedule::startSubEl()
{
    if (pMain->xmldebug) qDebug("Schedule start subel m_state %d", m_state);
    TRY {
        GncObject *next = 0;
        switch (m_state) {
        case STARTDATE:
        case LASTDATE:
        case ENDDATE:
            next = new GncDate;
            break;
        case FREQ:
            next = new GncFreqSpec;
            break;
        case RECURRENCE:
            next = new GncRecurrence;
            break;
        case DEFINST:
            next = new GncSchedDef;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncSchedule rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncSchedule::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("Schedule end subel");
    switch (m_state) {
    case STARTDATE:
        m_vpStartDate = static_cast<GncDate *>(subObj);
        break;
    case LASTDATE:
        m_vpLastDate = static_cast<GncDate *>(subObj);
        break;
    case ENDDATE:
        m_vpEndDate = static_cast<GncDate *>(subObj);
        break;
    case FREQ:
        m_vpFreqSpec = static_cast<GncFreqSpec *>(subObj);
        break;
    case RECURRENCE:
        m_vpRecurrence.append(static_cast<GncRecurrence *>(subObj));
        break;
    case DEFINST:
        m_vpSchedDef = static_cast<GncSchedDef *>(subObj);
        break;
    }
    return ;
}

void GncSchedule::terminate()
{
    TRY {
        pMain->convertSchedule(this);
        return ;
    }
    PASS
}
//************* GncFreqSpec********************************************
GncFreqSpec::GncFreqSpec()
{
    m_subElementListCount = END_FreqSpec_SELS;
    static const QString subEls[] = {"gnc:freqspec"};
    m_subElementList = subEls;
    m_dataElementListCount = END_FreqSpec_DELS;
    static const QString dataEls[] = {"fs:ui_type", "fs:monthly", "fs:daily", "fs:weekly", "fs:interval",
                                      "fs:offset", "fs:day"
                                     };
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, ASIS, ASIS, ASIS, ASIS, ASIS, ASIS      };
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncFreqSpec::~GncFreqSpec() {}

GncObject *GncFreqSpec::startSubEl()
{
    TRY {
        if (pMain->xmldebug) qDebug("FreqSpec start subel m_state %d", m_state);

        GncObject *next = 0;
        switch (m_state) {
        case COMPO:
            next = new GncFreqSpec;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncFreqSpec rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncFreqSpec::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("FreqSpec end subel");
    switch (m_state) {
    case COMPO:
        m_fsList.append(subObj);
        break;
    }
    m_dataPtr = 0;
    return ;
}

void GncFreqSpec::terminate()
{
    pMain->convertFreqSpec(this);
    return ;
}
//************* GncRecurrence********************************************
GncRecurrence::GncRecurrence() :
    m_vpStartDate(0)
{
    m_subElementListCount = END_Recurrence_SELS;
    static const QString subEls[] = {"recurrence:start"};
    m_subElementList = subEls;
    m_dataElementListCount = END_Recurrence_DELS;
    static const QString dataEls[] = {"recurrence:mult", "recurrence:period_type"};
    m_dataElementList = dataEls;
    static const unsigned int anonClasses[] = {ASIS, ASIS};
    m_anonClassList = anonClasses;
    for (uint i = 0; i < m_dataElementListCount; i++) m_v.append(QString());
}

GncRecurrence::~GncRecurrence()
{
    delete m_vpStartDate;
}

GncObject *GncRecurrence::startSubEl()
{
    TRY {
        if (pMain->xmldebug) qDebug("Recurrence start subel m_state %d", m_state);

        GncObject *next = 0;
        switch (m_state) {
        case STARTDATE:
            next = new GncDate;
            break;
        default:
            throw MYMONEYEXCEPTION_CSTRING("GncRecurrence rcvd invalid m_state");
        }
        return (next);
    }
    PASS
}

void GncRecurrence::endSubEl(GncObject *subObj)
{
    if (pMain->xmldebug) qDebug("Recurrence end subel");
    switch (m_state) {
    case STARTDATE:
        m_vpStartDate = static_cast<GncDate *>(subObj);
        break;
    }
    m_dataPtr = 0;
    return ;
}

void GncRecurrence::terminate()
{
    pMain->convertRecurrence(this);
    return ;
}

QString GncRecurrence::getFrequency() const
{
    // This function converts a gnucash 2.2 recurrence specification into it's previous equivalent
    // This will all need re-writing when MTE finishes the schedule re-write
    if (periodType() == "once") return("once");
    if ((periodType() == "day") && (mult() == "1")) return("daily");
    if (periodType() == "week") {
        if (mult() == "1") return ("weekly");
        if (mult() == "2") return ("bi_weekly");
        if (mult() == "4") return ("four-weekly");
    }
    if (periodType() == "month") {
        if (mult() == "1") return ("monthly");
        if (mult() == "2") return ("two-monthly");
        if (mult() == "3") return ("quarterly");
        if (mult() == "4") return ("tri_annually");
        if (mult() == "6") return ("semi_yearly");
        if (mult() == "12") return ("yearly");
        if (mult() == "24") return ("two-yearly");
    }
    return ("unknown");
}

//************* GncSchedDef********************************************
GncSchedDef::GncSchedDef()
{
    // process ing for this sub-object is undefined at the present time
    m_subElementListCount = 0;
    m_dataElementListCount = 0;
}

GncSchedDef::~GncSchedDef() {}

/************************************************************************************************
                         XML Reader
************************************************************************************************/
XmlReader::XmlReader(MyMoneyGncReader *pM) :
    m_source(0),
    m_reader(0),
    m_co(0),
    pMain(pM),
    m_headerFound(false)
{
}

void XmlReader::processFile(QIODevice* pDevice)
{
    m_source = new QXmlInputSource(pDevice);  // set up the Qt XML reader
    m_reader = new QXmlSimpleReader;
    m_reader->setContentHandler(this);
    // go read the file
    if (!m_reader->parse(m_source))
        throw MYMONEYEXCEPTION(QString::fromLatin1("Input file cannot be parsed; may be corrupt\n%1").arg(errorString()));

    delete m_reader;
    delete m_source;
    return ;
}

// XML handling routines
bool XmlReader::startDocument()
{
    m_co = new GncFile; // create initial object, push to stack , pass it the 'main' pointer
    m_os.push(m_co);
    m_co->setPm(pMain);
    m_headerFound = false;
#ifdef _GNCFILEANON
    pMain->oStream << "<?xml version=\"1.0\"?>";
    lastType = -1;
    indentCount = 0;
#endif // _GNCFILEANON
    return (true);
}

bool XmlReader::startElement(const QString&, const QString&, const QString& elName,
                             const QXmlAttributes& elAttrs)
{
    try {
        if (pMain->gncdebug) qDebug() << "XML start -" << elName;
#ifdef _GNCFILEANON
        int i;
        QString spaces;
        // anonymizer - write data
        if (elName == "gnc:book" || elName == "gnc:count-data" || elName == "book:id") lastType = -1;
        pMain->oStream << endl;
        switch (lastType) {
        case 0:
            indentCount += 2;
        // tricky fall through here

        case 2:
            spaces.fill(' ', indentCount);
            pMain->oStream << spaces.toLatin1();
            break;
        }
        pMain->oStream << '<' << elName;
        for (i = 0; i < elAttrs.count(); ++i) {
            pMain->oStream << ' ' << elAttrs.qName(i) << '='  << '"' << elAttrs.value(i) << '"';
        }
        pMain->oStream << '>';
        lastType = 0;
#else
        if ((!m_headerFound) && (elName != "gnc-v2"))
            throw MYMONEYEXCEPTION(QString::fromLatin1("Invalid header for file. Should be 'gnc-v2'"));
        m_headerFound = true;
#endif // _GNCFILEANON
        m_co->checkVersion(elName, elAttrs, pMain->m_versionList);
        // check if this is a sub object element; if so, push stack and initialize
        GncObject *temp = m_co->isSubElement(elName, elAttrs);
        if (temp != 0) {
            m_os.push(temp);
            m_co = m_os.top();
            m_co->setVersion(elAttrs.value("version"));
            m_co->setPm(pMain);  // pass the 'main' pointer to the sub object
            // return true;   // removed, as we hit a return true anyway
        }
#if 0
        // check for a data element
        if (m_co->isDataElement(elName, elAttrs))
            return (true);
#endif
        else {
            // reduced the above to
            m_co->isDataElement(elName, elAttrs);
        }
    } catch (const MyMoneyException &e) {
#ifndef _GNCFILEANON
        // we can't pass on exceptions here coz the XML reader won't catch them and we just abort
        KMessageBox::error(0, i18n("Import failed:\n\n%1", QString::fromLatin1(e.what())), PACKAGE);
        qWarning("%s", e.what());
#else
        qWarning("%s", e->toLatin1());
#endif // _GNCFILEANON
    }
    return true; // to keep compiler happy
}

bool XmlReader::endElement(const QString&, const QString&, const QString&elName)
{
    try {
        if (pMain->xmldebug) qDebug() << "XML end -" << elName;
#ifdef _GNCFILEANON
        QString spaces;
        switch (lastType) {
        case 2:
            indentCount -= 2;
            spaces.fill(' ', indentCount);
            pMain->oStream << endl << spaces.toLatin1();
            break;
        }
        pMain->oStream << "</" << elName << '>' ;
        lastType = 2;
#endif // _GNCFILEANON
        m_co->resetDataPtr(); // so we don't get extraneous data loaded into the variables
        if (elName == m_co->getElName()) { // check if this is the end of the current object
            if (pMain->gncdebug) m_co->debugDump(); // dump the object data (temp)
            // call the terminate routine, pop the stack, and advise the parent that it's done
            m_co->terminate();
            GncObject *temp = m_co;
            m_os.pop();
            m_co = m_os.top();
            m_co->endSubEl(temp);
        }
        return (true);
    } catch (const MyMoneyException &e) {
#ifndef _GNCFILEANON
        // we can't pass on exceptions here coz the XML reader won't catch them and we just abort
        KMessageBox::error(0, i18n("Import failed:\n\n%1", QString::fromLatin1(e.what())), PACKAGE);
        qWarning("%s", e.what());
#else
        qWarning("%s", e->toLatin1());
#endif // _GNCFILEANON
    }
    return (true); // to keep compiler happy
}

bool XmlReader::characters(const QString &data)
{
    if (pMain->xmldebug) qDebug("XML Data received - %d bytes", data.length());
    QString pData = data.trimmed(); // data may contain line feeds and indentation spaces
    if (!pData.isEmpty()) {
        if (pMain->developerDebug) qDebug() << "XML Data -" << pData;
        m_co->storeData(pData);  //go store it
#ifdef _GNCFILEANON
        QString anonData = m_co->getData();
        if (anonData.isEmpty()) anonData = pData;
        // there must be a Qt standard way of doing the following but I can't ... find it
        anonData.replace('<', "&lt;");
        anonData.replace('>', "&gt;");
        anonData.replace('&', "&amp;");
        pMain->oStream << anonData; // write original data
        lastType = 1;
#endif // _GNCFILEANON
    }
    return (true);
}

bool XmlReader::endDocument()
{
#ifdef _GNCFILEANON
    pMain->oStream << endl << endl;
    pMain->oStream << "<!-- Local variables: -->" << endl;
    pMain->oStream << "<!-- mode: xml        -->" << endl;
    pMain->oStream << "<!-- End:             -->" << endl;
#endif // _GNCFILEANON
    return (true);
}

/*******************************************************************************************
                                 Main class for this module
  Controls overall operation of the importer
********************************************************************************************/
//***************** Constructor ***********************
MyMoneyGncReader::MyMoneyGncReader() :
    m_dropSuspectSchedules(0),
    m_investmentOption(0),
    m_useFinanceQuote(0),
    m_useTxNotes(0),
    gncdebug(0),
    xmldebug(0),
    bAnonymize(0),
    developerDebug(0),
    m_xr(0),
    m_progressCallback(0),
    m_ccCount(0),
    m_orCount(0),
    m_scCount(0),
    m_potentialTransfer(0),
    m_suspectSchedule(false)
{
#ifndef _GNCFILEANON
    m_storage = 0;
#endif // _GNCFILEANON
// to hold gnucash count data (only used for progress bar)
    m_gncCommodityCount = m_gncAccountCount = m_gncTransactionCount = m_gncScheduleCount = 0;
    m_smallBusinessFound = m_budgetsFound = m_lotsFound = false;
    m_commodityCount = m_priceCount = m_accountCount = m_transactionCount = m_templateCount = m_scheduleCount = 0;
    m_decoder = 0;
    // build a list of valid versions
    static const QString versionList[] = {"gnc:book 2.0.0", "gnc:commodity 2.0.0", "gnc:pricedb 1",
                                          "gnc:account 2.0.0", "gnc:transaction 2.0.0", "gnc:schedxaction 1.0.0",
                                          "gnc:schedxaction 2.0.0", // for gnucash 2.2 onward
                                          "gnc:freqspec 1.0.0", "zzz" // zzz = stopper
                                         };
    unsigned int i;
    for (i = 0; versionList[i] != "zzz"; ++i)
        m_versionList[versionList[i].section(' ', 0, 0)].append(versionList[i].section(' ', 1, 1));
}

//***************** Destructor *************************
MyMoneyGncReader::~MyMoneyGncReader() {}

//**************************** Main Entry Point ************************************
#ifndef _GNCFILEANON
void MyMoneyGncReader::readFile(QIODevice* pDevice, MyMoneyStorageMgr* storage)
{
    Q_CHECK_PTR(pDevice);
    Q_CHECK_PTR(storage);

    m_storage = storage;
    qDebug("Entering gnucash importer");
    setOptions();
    // get a file anonymization factor from the user
    if (bAnonymize) setFileHideFactor();
    //m_defaultPayee = createPayee (i18n("Unknown payee"));

    MyMoneyFile::instance()->attachStorage(m_storage);
    MyMoneyFileTransaction ft;
    m_xr = new XmlReader(this);
    bool blocked = MyMoneyFile::instance()->signalsBlocked();
    MyMoneyFile::instance()->blockSignals(true);
    try {
        m_xr->processFile(pDevice);
        terminate();  // do all the wind-up things
        ft.commit();
    } catch (const MyMoneyException &e) {
        KMessageBox::error(0, i18n("Import failed:\n\n%1", QString::fromLatin1(e.what())), PACKAGE);
        qWarning("%s", e.what());
    } // end catch
    MyMoneyFile::instance()->blockSignals(blocked);
    MyMoneyFile::instance()->detachStorage(m_storage);
    signalProgress(0, 1, i18n("Import complete"));  // switch off progress bar
    delete m_xr;
    signalProgress(0, 1, i18nc("Application is ready to use", "Ready.")); // application is ready for input
    qDebug("Exiting gnucash importer");
}
#else
// Control code for the file anonymizer
void MyMoneyGncReader::readFile(QString in, QString out)
{
    QFile pDevice(in);
    if (!pDevice.open(QIODevice::ReadOnly)) qWarning("Can't open input file");
    QFile outFile(out);
    if (!outFile.open(QIODevice::WriteOnly)) qWarning("Can't open output file");
    oStream.setDevice(&outFile);
    bAnonymize = true;
    // get a file anonymization factor from the user
    setFileHideFactor();
    m_xr = new XmlReader(this);
    try {
        m_xr->processFile(&pDevice);
    } catch (const MyMoneyException &e) {
        qWarning("%s", e->toLatin1());
    } // end catch
    delete m_xr;
    pDevice.close();
    outFile.close();
    return ;
}

#include <QApplication>
int main(int argc, char ** argv)
{
    QApplication a(argc, argv);
    MyMoneyGncReader m;
    QString inFile, outFile;

    if (argc > 0) inFile = a.argv()[1];
    if (argc > 1) outFile = a.argv()[2];
    if (inFile.isEmpty()) {
        inFile = KFileDialog::getOpenFileName("",
                                              "Gnucash files(*.nc *)",
                                              0);
    }
    if (inFile.isEmpty()) qWarning("Input file required");
    if (outFile.isEmpty()) outFile = inFile + ".anon";
    m.readFile(inFile, outFile);
    exit(0);
}
#endif // _GNCFILEANON

void MyMoneyGncReader::setFileHideFactor()
{
#define MINFILEHIDEF 0.01
#define MAXFILEHIDEF 99.99
#if QT_VERSION >= QT_VERSION_CHECK(5,10,0)
    m_fileHideFactor = 0.0;
    while (m_fileHideFactor == 0.0) {
        m_fileHideFactor = QInputDialog::getDouble(0,
                           i18n("Disguise your wealth"),
                           i18n("Each monetary value on your file will be multiplied by a random number between 0.01 and 1.99\n"
                                "with a different value used for each transaction. In addition, to further disguise the true\n"
                                "values, you may enter a number between %1 and %2 which will be applied to all values.\n"
                                "These numbers will not be stored in the file.", MINFILEHIDEF, MAXFILEHIDEF),
                           (1.0 + (int)(1000.0 * QRandomGenerator::system()->generate() / (RAND_MAX + 1.0))) / 100.0,
                           MINFILEHIDEF, MAXFILEHIDEF, 2);
    }
#else
    srand(QTime::currentTime().second());  // seed randomizer for anonymize
    m_fileHideFactor = 0.0;
    while (m_fileHideFactor == 0.0) {
        m_fileHideFactor = QInputDialog::getDouble(0,
                           i18n("Disguise your wealth"),
                           i18n("Each monetary value on your file will be multiplied by a random number between 0.01 and 1.99\n"
                                "with a different value used for each transaction. In addition, to further disguise the true\n"
                                "values, you may enter a number between %1 and %2 which will be applied to all values.\n"
                                "These numbers will not be stored in the file.", MINFILEHIDEF, MAXFILEHIDEF),
                           (1.0 + (int)(1000.0 * qrand() / (RAND_MAX + 1.0))) / 100.0,
                           MINFILEHIDEF, MAXFILEHIDEF, 2);
    }
#endif
}
#ifndef _GNCFILEANON

//********************************* convertCommodity *******************************************
void MyMoneyGncReader::convertCommodity(const GncCommodity *gcm)
{
    Q_CHECK_PTR(gcm);
    MyMoneySecurity equ;
    if (m_commodityCount == 0) signalProgress(0, m_gncCommodityCount, i18n("Loading commodities..."));
    if (!gcm->isCurrency()) { // currencies should not be present here but...
        equ.setName(gcm->name());
        equ.setTradingSymbol(gcm->id());
        equ.setTradingMarket(gcm->space());  // the 'space' may be market or quote source, dep on what the user did
        // don't set the source here since he may not want quotes
        //equ.setValue ("kmm-online-source", gcm->space()); // we don't know, so use it as both
        equ.setTradingCurrency("");  // not available here, will set from pricedb or transaction
        equ.setSecurityType(Security::Type::Stock);  // default to it being a stock
        //tell the storage objects we have a new equity object.
        equ.setSmallestAccountFraction(gcm->fraction().toInt());
        m_storage->addSecurity(equ);

        //assign the gnucash id as the key into the map to find our id
        if (gncdebug) qDebug() << "mapping, key =" << gcm->id() << "id =" << equ.id();
        m_mapEquities[gcm->id().toUtf8()] = equ.id();
    } else {
        try {
            const QString id = gcm->id();
            const auto file = MyMoneyFile::instance();
            const auto currencyList = file->availableCurrencyList();
            bool currencyFound = false;
            MyMoneySecurity currency;
            foreach (currency, currencyList) {
                if (currency.id() == id) {
                    m_storage->addCurrency(currency);
                    currencyFound = true;
                    break;
                }
            }
            if (!currencyFound) {
                MyMoneySecurity newCurrency(id, id);
                m_storage->addCurrency(newCurrency);
            }
            currency = file->security(id);

            MyMoneyPrice price = file->ancientCurrencies().value(currency, MyMoneyPrice());
            if (price != MyMoneyPrice()) {
                m_storage->addPrice(price);
            }
        } catch (const MyMoneyException &e) {
            qDebug("Error %s creating currency", e.what());
        }
    }
    signalProgress(++m_commodityCount, 0);
    return ;
}

//******************************* convertPrice ************************************************
void MyMoneyGncReader::convertPrice(const GncPrice *gpr)
{
    Q_CHECK_PTR(gpr);
    // add this to our price history
    if (m_priceCount == 0) signalProgress(0, 1, i18n("Loading prices..."));
    MyMoneyMoney rate(convBadValue(gpr->value()));
    if (gpr->commodity()->isCurrency()) {
        MyMoneyPrice exchangeRate(gpr->commodity()->id().toUtf8(), gpr->currency()->id().toUtf8(),
                                  gpr->priceDate(), rate, i18n("Imported History"));
        if (!exchangeRate.rate(QString()).isZero())
            m_storage->addPrice(exchangeRate);
    } else {
        MyMoneySecurity e = m_storage->security(m_mapEquities[gpr->commodity()->id().toUtf8()]);
        if (gncdebug) qDebug() << "Searching map, key = " << gpr->commodity()->id()
                                   << ", found id =" << e.id().data();
        e.setTradingCurrency(gpr->currency()->id().toUtf8());
        MyMoneyPrice stockPrice(e.id(), gpr->currency()->id().toUtf8(), gpr->priceDate(), rate, i18n("Imported History"));
        if (!stockPrice.rate(QString()).isZero())
            m_storage->addPrice(stockPrice);
        m_storage->modifySecurity(e);
    }
    signalProgress(++m_priceCount, 0);
    return ;
}

//*********************************convertAccount ****************************************
void MyMoneyGncReader::convertAccount(const GncAccount* gac)
{
    Q_CHECK_PTR(gac);
    TRY {
        // we don't care about the GNC root account
        if ("ROOT" == gac->type()) {
            m_rootId = gac->id().toUtf8();
            return;
        }

        MyMoneyAccount acc;
        if (m_accountCount == 0) signalProgress(0, m_gncAccountCount, i18n("Loading accounts..."));
        acc.setName(gac->name());

        acc.setDescription(gac->desc());

        QDate currentDate = QDate::currentDate();
        acc.setOpeningDate(currentDate);
        acc.setLastModified(currentDate);
        acc.setLastReconciliationDate(currentDate);
        if (gac->commodity()->isCurrency()) {
            acc.setCurrencyId(gac->commodity()->id().toUtf8());
            m_currencyCount[gac->commodity()->id()]++;
        }

        acc.setParentAccountId(gac->parent().toUtf8());
        // now determine the account type and its parent id
        /* This list taken from
        # Feb 2006: A RELAX NG Compact schema for gnucash "v2" XML files.
        # SPDX-FileCopyrightText: 2006 Joshua Sled <jsled@asynchronous.org>
        "NO_TYPE" "BANK" "CASH" "CREDIT" "ASSET" "LIABILITY" "STOCK" "MUTUAL" "CURRENCY"
        "INCOME" "EXPENSE" "EQUITY" "RECEIVABLE" "PAYABLE" "CHECKING" "SAVINGS" "MONEYMRKT" "CREDITLINE"
        Some don't seem to be used in practice. Not sure what CREDITLINE s/be converted as.
        */
        if ("BANK" == gac->type() || "CHECKING" == gac->type()) {
            acc.setAccountType(Account::Type::Checkings);
        } else if ("SAVINGS" == gac->type()) {
            acc.setAccountType(Account::Type::Savings);
        } else if ("ASSET" == gac->type()) {
            acc.setAccountType(Account::Type::Asset);
        } else if ("CASH" == gac->type()) {
            acc.setAccountType(Account::Type::Cash);
        } else if ("CURRENCY" == gac->type()) {
            acc.setAccountType(Account::Type::Cash);
        } else if ("STOCK" == gac->type() || "MUTUAL" == gac->type()) {
            // gnucash allows a 'broker' account to be denominated as type STOCK, but with
            // a currency balance. We do not need to create a stock account for this
            // actually, the latest version of gnc (1.8.8) doesn't seem to allow you to do
            // this any more, though I do have one in my own account...
            if (gac->commodity()->isCurrency()) {
                acc.setAccountType(Account::Type::Investment);
            } else {
                acc.setAccountType(Account::Type::Stock);
            }
        } else if ("EQUITY" == gac->type()) {
            acc.setAccountType(Account::Type::Equity);
        } else if ("LIABILITY" == gac->type()) {
            acc.setAccountType(Account::Type::Liability);
        } else if ("CREDIT" == gac->type()) {
            acc.setAccountType(Account::Type::CreditCard);
        } else if ("INCOME" == gac->type()) {
            acc.setAccountType(Account::Type::Income);
        } else if ("EXPENSE" == gac->type()) {
            acc.setAccountType(Account::Type::Expense);
        } else if ("RECEIVABLE" == gac->type()) {
            acc.setAccountType(Account::Type::Asset);
        } else if ("PAYABLE" == gac->type()) {
            acc.setAccountType(Account::Type::Liability);
        } else if ("MONEYMRKT" == gac->type()) {
            acc.setAccountType(Account::Type::MoneyMarket);
        } else { // we have here an account type we can't currently handle
            throw MYMONEYEXCEPTION(QString::fromLatin1("Current importer does not recognize GnuCash account type %1").arg(gac->type()));
        }
        // if no parent account is present, assign to one of our standard accounts
        if ((acc.parentAccountId().isEmpty()) || (acc.parentAccountId() == m_rootId)) {
            switch (acc.accountGroup()) {
            case Account::Type::Asset:
                acc.setParentAccountId(m_storage->asset().id());
                break;
            case Account::Type::Liability:
                acc.setParentAccountId(m_storage->liability().id());
                break;
            case Account::Type::Income:
                acc.setParentAccountId(m_storage->income().id());
                break;
            case Account::Type::Expense:
                acc.setParentAccountId(m_storage->expense().id());
                break;
            case Account::Type::Equity:
                acc.setParentAccountId(m_storage->equity().id());
                break;
            default:
                break; // not necessary but avoids compiler warnings
            }
        }

        // extra processing for a stock account
        if (acc.accountType() == Account::Type::Stock) {
            // save the id for later linking to investment account
            m_stockList.append(gac->id());
            // set the equity type
            MyMoneySecurity e = m_storage->security(m_mapEquities[gac->commodity()->id().toUtf8()]);
            if (gncdebug) qDebug() << "Acct equity search, key =" << gac->commodity()->id()
                                       << "found id =" << e.id();
            acc.setCurrencyId(e.id());  // actually, the security id
            if ("MUTUAL" == gac->type()) {
                e.setSecurityType(Security::Type::MutualFund);
                if (gncdebug) qDebug() << "Setting" << e.name() << "to mutual";
                m_storage->modifySecurity(e);
            }

            QString priceSource = gac->getKvpValue("price-source", "string");
            if (!priceSource.isEmpty()) getPriceSource(e, priceSource);
        }

        if (gac->getKvpValue("tax-related", "integer") == QChar('1')) acc.setValue("Tax", "Yes");
        // all the details from the file about the account should be known by now.
        // calling addAccount will automatically fill in the account ID.
        m_storage->addAccount(acc);
        m_mapIds[gac->id().toUtf8()] = acc.id(); // to link gnucash id to ours for tx posting

        if (gncdebug)
            qDebug() << "Gnucash account" << gac->id() << "has id of" << acc.id()
                     << ", type of" << MyMoneyAccount::accountTypeToString(acc.accountType())
                     << "parent is" << acc.parentAccountId();

        signalProgress(++m_accountCount, 0);
        return ;
    }
    PASS
}

//********************************************** convertTransaction *****************************
void MyMoneyGncReader::convertTransaction(const GncTransaction *gtx)
{
    Q_CHECK_PTR(gtx);
    MyMoneyTransaction tx;
    MyMoneySplit split;
    unsigned int i;

    if (m_transactionCount == 0) signalProgress(0, m_gncTransactionCount, i18n("Loading transactions..."));
    // initialize class variables related to transactions
    m_txCommodity = "";
    m_txPayeeId = "";
    m_potentialTransfer = true;
    m_splitList.clear();
    m_liabilitySplitList.clear();
    m_otherSplitList.clear();
    // payee, dates, commodity
    if (!gtx->desc().isEmpty()) m_txPayeeId = createPayee(gtx->desc());
    tx.setEntryDate(gtx->dateEntered());
    tx.setPostDate(gtx->datePosted());
    m_txDatePosted = tx.postDate(); // save for use in splits
    m_txChequeNo = gtx->no(); // ditto
    tx.setCommodity(gtx->currency().toUtf8());
    m_txCommodity = tx.commodity(); // save in storage, maybe needed for Orphan accounts
    // process splits
    for (i = 0; i < gtx->splitCount(); i++) {
        convertSplit(static_cast<const GncSplit *>(gtx->getSplit(i)));
    }
    // handle the odd case of just one split, which gnc allows,
    // by just duplicating the split
    // of course, we should change the sign but this case has only ever been seen
    // when the balance is zero, and can cause kmm to crash, so...
    if (gtx->splitCount() == 1) {
        convertSplit(static_cast<const GncSplit *>(gtx->getSplit(0)));
    }
    m_splitList += m_liabilitySplitList += m_otherSplitList;
    // the splits are in order in splitList. Link them to the tx. also, determine the
    // action type, and fill in some fields which gnc holds at transaction level
    // first off, is it a transfer (can only have 2 splits?)
    // also, a tx with just 2 splits is shown by GnuCash as non-split
    bool nonSplitTx = true;
    if (m_splitList.count() != 2) {
        m_potentialTransfer = false;
        nonSplitTx = false;
    }
    QString slotMemo = gtx->getKvpValue(QString("notes"));
    if (!slotMemo.isEmpty())  tx.setMemo(slotMemo);

    QList<MyMoneySplit>::iterator it = m_splitList.begin();
    while (!m_splitList.isEmpty()) {
        split = *it;
        // at this point, if m_potentialTransfer is still true, it is actually one!
        if (m_potentialTransfer) split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Transfer));
        if ((m_useTxNotes) // if use txnotes option is set
                && (nonSplitTx) // and it's a (GnuCash) non-split transaction
                && (!tx.memo().isEmpty())) // and tx notes are present
            split.setMemo(tx.memo());  // use the tx notes as memo
        tx.addSplit(split);
        it = m_splitList.erase(it);
    }
    m_storage->addTransaction(tx, true); // all done, add the transaction to storage
    signalProgress(++m_transactionCount, 0);
    return ;
}
//******************************************convertSplit********************************
void MyMoneyGncReader::convertSplit(const GncSplit *gsp)
{
    Q_CHECK_PTR(gsp);
    MyMoneySplit split;
    MyMoneyAccount splitAccount;
    // find the kmm account id corresponding to the gnc id
    QString kmmAccountId;
    map_accountIds::const_iterator id = m_mapIds.constFind(gsp->acct().toUtf8());
    if (id != m_mapIds.constEnd()) {
        kmmAccountId = id.value();
    } else { // for the case where the acs not found (which shouldn't happen?), create an account with gnc name
        kmmAccountId = createOrphanAccount(gsp->acct());
    }
    // find the account pointer and save for later
    splitAccount = m_storage->account(kmmAccountId);
    // print some data so we can maybe identify this split later
    // TODO : prints personal data
    //if (gncdebug) qDebug ("Split data - gncid %s, kmmid %s, memo %s, value %s, recon state %s",
    //                        gsp->acct().toLatin1(), kmmAccountId.data(), gsp->memo().toLatin1(), gsp->value().toLatin1(),
    //                        gsp->recon().toLatin1());
    // payee id
    split.setPayeeId(m_txPayeeId.toUtf8());
    // reconciled state and date
    switch (gsp->recon().at(0).toLatin1()) {
    case 'n':
        split.setReconcileFlag(eMyMoney::Split::State::NotReconciled);
        break;
    case 'c':
        split.setReconcileFlag(eMyMoney::Split::State::Cleared);
        break;
    case 'y':
        split.setReconcileFlag(eMyMoney::Split::State::Reconciled);
        break;
    }
    split.setReconcileDate(gsp->reconDate());
    // memo
    split.setMemo(gsp->memo());
    // accountId
    split.setAccountId(kmmAccountId);
    // cheque no
    split.setNumber(m_txChequeNo);
    // value and quantity
    MyMoneyMoney splitValue(convBadValue(gsp->value()));
    if (gsp->value() == "-1/0") { // treat gnc invalid value as zero
        // it's not quite a consistency check, but easier to treat it as such
        m_messageList["CC"].append
        (i18n("Account or Category %1, transaction date %2; split contains invalid value; please check",
              splitAccount.name(), m_txDatePosted.toString(Qt::ISODate)));
    }
    MyMoneyMoney splitQuantity(convBadValue(gsp->qty()));
    split.setValue(splitValue);
    // if split currency = tx currency, set shares = value (14/10/05)
    if (splitAccount.currencyId() == m_txCommodity) {
        split.setShares(splitValue);
    } else {
        split.setShares(splitQuantity);
    }

    // in kmm, the first split is important. in this routine we will
    // save the splits in our split list with the priority:
    // 1. assets
    // 2. liabilities
    // 3. others (categories)
    // but keeping each in same order as gnucash

    switch (splitAccount.accountGroup()) {
    case Account::Type::Asset:
        if (splitAccount.accountType() == Account::Type::Stock) {
            split.value().isZero() ?
            split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::AddShares)) :      // free shares?
            split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::BuyShares));
            m_potentialTransfer = false; // ?
            // add a price history entry
            MyMoneySecurity e = m_storage->security(splitAccount.currencyId());
            MyMoneyMoney price;
            if (!split.shares().isZero()) {
                static const signed64 NEW_DENOM = 10000;
                price = split.value() / split.shares();
                price = MyMoneyMoney(price.toDouble(), NEW_DENOM);
            }
            if (!price.isZero()) {
                TRY {
                    // we can't use m_storage->security coz security list is not built yet
                    m_storage->currency(m_txCommodity);   // will throw exception if not currency
                    e.setTradingCurrency(m_txCommodity);
                    if (gncdebug) qDebug() << "added price for" << e.name()
                                               << price.toString() << "date" << m_txDatePosted.toString(Qt::ISODate);
                    m_storage->modifySecurity(e);
                    MyMoneyPrice dealPrice(e.id(), m_txCommodity, m_txDatePosted, price, i18n("Imported Transaction"));
                    m_storage->addPrice(dealPrice);
                } CATCH {
                    // stock transfer; treat like free shares?
                    split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::AddShares));
                }
            }
        } else { // not stock
            if (split.value().isNegative()) {
                bool isNumeric = false;
                if (!split.number().isEmpty()) {
                    split.number().toLong(&isNumeric);    // No QString.isNumeric()??
                }
                if (isNumeric) {
                    split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Check));
                } else {
                    split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Withdrawal));
                }
            } else {
                split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Deposit));
            }
        }
        m_splitList.append(split);
        break;
    case Account::Type::Liability:
        split.value().isNegative() ?
        split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Withdrawal)) :
        split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Deposit));
        m_liabilitySplitList.append(split);
        break;
    default:
        m_potentialTransfer = false;
        m_otherSplitList.append(split);
    }
// backdate the account opening date if necessary
    if (m_txDatePosted < splitAccount.openingDate()) {
        splitAccount.setOpeningDate(m_txDatePosted);
        m_storage->modifyAccount(splitAccount);
    }
    return ;
}
//********************************* convertTemplateTransaction **********************************************
MyMoneyTransaction MyMoneyGncReader::convertTemplateTransaction(const QString& schedName, const GncTransaction *gtx)
{

    Q_CHECK_PTR(gtx);
    MyMoneyTransaction tx;
    MyMoneySplit split;
    unsigned int i;
    if (m_templateCount == 0) signalProgress(0, 1, i18n("Loading templates..."));

    // initialize class variables related to transactions
    m_txCommodity = "";
    m_txPayeeId = "";
    m_potentialTransfer = true;
    m_splitList.clear();
    m_liabilitySplitList.clear();
    m_otherSplitList.clear();

    // payee, dates, commodity
    if (!gtx->desc().isEmpty()) {
        m_txPayeeId = createPayee(gtx->desc());
    } else {
        m_txPayeeId = createPayee(i18n("Unknown payee"));  // schedules require a payee tho normal tx's don't. not sure why...
    }
    tx.setEntryDate(gtx->dateEntered());
    tx.setPostDate(gtx->datePosted());
    m_txDatePosted = tx.postDate();
    tx.setCommodity(gtx->currency().toUtf8());
    m_txCommodity = tx.commodity(); // save for possible use in orphan account
    // process splits
    for (i = 0; i < gtx->splitCount(); i++) {
        convertTemplateSplit(schedName, static_cast<const GncTemplateSplit *>(gtx->getSplit(i)));
    }
    // determine the action type for the splits and link them to the template tx

    if (!m_otherSplitList.isEmpty()) m_potentialTransfer = false; // tfrs can occur only between assets and asset/liabilities
    m_splitList += m_liabilitySplitList += m_otherSplitList;
    // the splits are in order in splitList. Transfer them to the tx
    // also, determine the action type. first off, is it a transfer (can only have 2 splits?)
    if (m_splitList.count() != 2) m_potentialTransfer = false;
    // at this point, if m_potentialTransfer is still true, it is actually one!
    QString txMemo = "";
    QList<MyMoneySplit>::iterator it = m_splitList.begin();
    while (!m_splitList.isEmpty()) {
        split = *it;
        if (m_potentialTransfer) {
            split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Transfer));
        } else {
            if (split.value().isNegative()) {
                //split.setAction (negativeActionType);
                split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Withdrawal));
            } else {
                //split.setAction (positiveActionType);
                split.setAction(MyMoneySplit::actionName(eMyMoney::Split::Action::Deposit));
            }
        }
        split.setNumber(gtx->no()); // set cheque no (or equivalent description)
        // Arbitrarily, save the first non-null split memo as the memo for the whole tx
        // I think this is necessary because txs with just 2 splits (the majority)
        // are not viewable as split transactions in kmm so the split memo is not seen
        if ((txMemo.isEmpty()) && (!split.memo().isEmpty())) txMemo = split.memo();
        tx.addSplit(split);
        it = m_splitList.erase(it);
    }
    // memo - set from split
    tx.setMemo(txMemo);
    signalProgress(++m_templateCount, 0);
    return (tx);
}
//********************************* convertTemplateSplit ****************************************************
void MyMoneyGncReader::convertTemplateSplit(const QString& schedName, const GncTemplateSplit *gsp)
{
    Q_CHECK_PTR(gsp);
    // convertTemplateSplit
    MyMoneySplit split;
    MyMoneyAccount splitAccount;
    unsigned int i, j;
    bool nonNumericFormula = false;

    // action, value and account will be set from slots
    // reconcile state, always Not since it hasn't even been posted yet (?)
    split.setReconcileFlag(eMyMoney::Split::State::NotReconciled);
    // memo
    split.setMemo(gsp->memo());
    // payee id
    split.setPayeeId(m_txPayeeId.toUtf8());
    // read split slots (KVPs)
    int xactionCount = 0;
    int validSlotCount = 0;
    QString gncAccountId;
    for (i = 0; i < gsp->kvpCount(); i++) {
        const GncKvp& slot = gsp->getKvp(i);
        if ((slot.key() == "sched-xaction") && (slot.type() == "frame")) {
            bool bFoundStringCreditFormula = false;
            bool bFoundStringDebitFormula = false;
            bool bFoundGuidAccountId = false;
            QString gncCreditFormula, gncDebitFormula;
            for (j = 0; j < slot.kvpCount(); j++) {
                const GncKvp& subSlot = slot.getKvp(j);
                // again, see comments above. when we have a full specification
                // of all the options available to us, we can no doubt improve on this
                if ((subSlot.key() == "credit-formula") && (subSlot.type() == "string")) {
                    gncCreditFormula = subSlot.value();
                    bFoundStringCreditFormula = true;
                }
                if ((subSlot.key() == "debit-formula") && (subSlot.type() == "string")) {
                    gncDebitFormula = subSlot.value();
                    bFoundStringDebitFormula = true;
                }
                if ((subSlot.key() == "account") && (subSlot.type() == "guid")) {
                    gncAccountId = subSlot.value();
                    bFoundGuidAccountId = true;
                }
            }
            // all data read, now check we have everything
            if ((bFoundStringCreditFormula) && (bFoundStringDebitFormula) && (bFoundGuidAccountId)) {
                if (gncdebug) qDebug() << "Found valid slot; credit" << gncCreditFormula
                                           << "debit" << gncDebitFormula << "acct" << gncAccountId;
                validSlotCount++;
            }
            // validate numeric, work out sign
            MyMoneyMoney exFormula;
            exFormula.setNegativeMonetarySignPosition(eMyMoney::Money::PreceedQuantityAndSymbol);
            QString numericTest;
            char crdr = 0 ;
            if (!gncCreditFormula.isEmpty()) {
                crdr = 'C';
                numericTest = gncCreditFormula;
            } else if (!gncDebitFormula.isEmpty()) {
                crdr = 'D';
                numericTest = gncDebitFormula;
            }
            KMyMoneyMoneyValidator v(0);
            int pos; // useless, but required for validator
            if (v.validate(numericTest, pos) == QValidator::Acceptable) {
                switch (crdr) {
                case 'C':
                    exFormula = QString("-" + numericTest);
                    break;
                case 'D':
                    exFormula = numericTest;
                }
            } else {
                if (gncdebug) qDebug() << numericTest << "is not numeric";
                nonNumericFormula = true;
            }
            split.setValue(exFormula);
            xactionCount++;
        } else {
            m_messageList["SC"].append(
                i18n("Schedule %1 contains unknown action (key = %2, type = %3)",
                     schedName, slot.key(), slot.type()));
            m_suspectSchedule = true;
        }
    }
    // report this as untranslatable tx
    if (xactionCount > 1) {
        m_messageList["SC"].append(
            i18n("Schedule %1 contains multiple actions; only one has been imported",
                 schedName));
        m_suspectSchedule = true;
    }
    if (validSlotCount == 0) {
        m_messageList["SC"].append(
            i18n("Schedule %1 contains no valid splits", schedName));
        m_suspectSchedule = true;
    }
    if (nonNumericFormula) {
        m_messageList["SC"].append(
            i18n("Schedule %1 appears to contain a formula. GnuCash formulae are not convertible",
                 schedName));
        m_suspectSchedule = true;
    }
    // find the kmm account id corresponding to the gnc id
    QString kmmAccountId;
    map_accountIds::const_iterator id = m_mapIds.constFind(gncAccountId.toUtf8());
    if (id != m_mapIds.constEnd()) {
        kmmAccountId = id.value();
    } else { // for the case where the acs not found (which shouldn't happen?), create an account with gnc name
        kmmAccountId = createOrphanAccount(gncAccountId);
    }
    splitAccount = m_storage->account(kmmAccountId);
    split.setAccountId(kmmAccountId);
    // if split currency = tx currency, set shares = value (14/10/05)
    if (splitAccount.currencyId() == m_txCommodity) {
        split.setShares(split.value());
    } /* else {  //FIXME: scheduled currency or investment tx needs to be investigated
    split.setShares (splitQuantity);
  }  */
    // add the split to one of the lists
    switch (splitAccount.accountGroup()) {
    case Account::Type::Asset:
        m_splitList.append(split);
        break;
    case Account::Type::Liability:
        m_liabilitySplitList.append(split);
        break;
    default:
        m_otherSplitList.append(split);
    }
    // backdate the account opening date if necessary
    if (m_txDatePosted < splitAccount.openingDate()) {
        splitAccount.setOpeningDate(m_txDatePosted);
        m_storage->modifyAccount(splitAccount);
    }
    return ;
}
//********************************* convertSchedule  ********************************************************
void MyMoneyGncReader::convertSchedule(const GncSchedule *gsc)
{
    TRY {
        Q_CHECK_PTR(gsc);
        MyMoneySchedule sc;
        MyMoneyTransaction tx;
        m_suspectSchedule = false;
        QDate nextDate, lastDate, endDate;  // for date calculations
        QDate today = QDate::currentDate();
        int numOccurs, remOccurs;

        if (m_scheduleCount == 0) signalProgress(0, m_gncScheduleCount, i18n("Loading schedules..."));
        // schedule name
        sc.setName(gsc->name());
        // find the transaction template as stored earlier
        QList<GncTransaction*>::const_iterator itt;
        for (itt = m_templateList.constBegin(); itt != m_templateList.constEnd(); ++itt) {
            // the id to match against is the split:account value in the splits
            if (static_cast<const GncTemplateSplit *>((*itt)->getSplit(0))->acct() == gsc->templId()) break;
        }
        if (itt == m_templateList.constEnd()) {
            throw MYMONEYEXCEPTION(QString::fromLatin1("Cannot find template transaction for schedule %1").arg(sc.name()));
        } else {
            tx = convertTemplateTransaction(sc.name(), *itt);
        }
        tx.clearId();

// define the conversion table for intervals
        struct convIntvl {
            QString gncType; // the gnucash name
            unsigned char interval; // for date calculation
            unsigned int intervalCount;
            Schedule::Occurrence occ; // equivalent occurrence code
            Schedule::WeekendOption wo;
        };
        /* other intervals supported by gnc according to Josh Sled's schema (see above)
         "none" "semi_monthly"
         */
        /* some of these type names do not appear in gnucash and are difficult to generate for
        pre 2.2 files.They can be generated for 2.2 however, by GncRecurrence::getFrequency() */
        static convIntvl vi [] = {
            {"once", 'o', 1, Schedule::Occurrence::Once, Schedule::WeekendOption::MoveNothing },
            {"daily", 'd', 1, Schedule::Occurrence::Daily, Schedule::WeekendOption::MoveNothing },
            //{"daily_mf", 'd', 1, Schedule::Occurrence::Daily, Schedule::WeekendOption::MoveAfter }, doesn't work, need new freq in kmm
            {"30-days", 'd', 30, Schedule::Occurrence::EveryThirtyDays, Schedule::WeekendOption::MoveNothing },
            {"weekly", 'w', 1, Schedule::Occurrence::Weekly, Schedule::WeekendOption::MoveNothing },
            {"bi_weekly", 'w', 2, Schedule::Occurrence::EveryOtherWeek, Schedule::WeekendOption::MoveNothing },
            {"three-weekly", 'w', 3, Schedule::Occurrence::EveryThreeWeeks, Schedule::WeekendOption::MoveNothing },
            {   "four-weekly", 'w', 4, Schedule::Occurrence::EveryFourWeeks,
                Schedule::WeekendOption::MoveNothing
            },
            {"eight-weekly", 'w', 8, Schedule::Occurrence::EveryEightWeeks, Schedule::WeekendOption::MoveNothing },
            {"monthly", 'm', 1, Schedule::Occurrence::Monthly, Schedule::WeekendOption::MoveNothing },
            {   "two-monthly", 'm', 2, Schedule::Occurrence::EveryOtherMonth,
                Schedule::WeekendOption::MoveNothing
            },
            {"quarterly", 'm', 3, Schedule::Occurrence::Quarterly, Schedule::WeekendOption::MoveNothing },
            {"tri_annually", 'm', 4, Schedule::Occurrence::EveryFourMonths, Schedule::WeekendOption::MoveNothing },
            {"semi_yearly", 'm', 6, Schedule::Occurrence::TwiceYearly, Schedule::WeekendOption::MoveNothing },
            {"yearly", 'y', 1, Schedule::Occurrence::Yearly, Schedule::WeekendOption::MoveNothing },
            {   "two-yearly", 'y', 2, Schedule::Occurrence::EveryOtherYear,
                Schedule::WeekendOption::MoveNothing
            },
            {"zzz", 'y', 1, Schedule::Occurrence::Yearly, Schedule::WeekendOption::MoveNothing},
            // zzz = stopper, may cause problems. what else can we do?
        };

        QString frequency = "unknown"; // set default to unknown frequency
        bool unknownOccurs = false; // may have zero, or more than one frequency/recurrence spec
        QString schedEnabled;
        if (gsc->version() == "2.0.0") {
            if (gsc->m_vpRecurrence.count() != 1) {
                unknownOccurs = true;
            } else {
                const GncRecurrence *gre = gsc->m_vpRecurrence.first();
                //qDebug (QString("Sched %1, pt %2, mu %3, sd %4").arg(gsc->name()).arg(gre->periodType())
                // .arg(gre->mult()).arg(gre->startDate().toString(Qt::ISODate)));
                frequency = gre->getFrequency();
                schedEnabled = gsc->enabled();
            }
            sc.setOccurrence(Schedule::Occurrence::Once); // FIXME - how to convert
        } else {
            // find this interval
            const GncFreqSpec *fs = gsc->getFreqSpec();
            if (fs == 0) {
                unknownOccurs = true;
            } else {
                frequency = fs->intervalType();
                if (!fs->m_fsList.isEmpty()) unknownOccurs = true; // nested freqspec
            }
            schedEnabled = 'y'; // earlier versions did not have an enable flag
        }

        int i;
        for (i = 0; vi[i].gncType != "zzz"; i++) {
            if (frequency == vi[i].gncType) break;
        }
        if (vi[i].gncType == "zzz") {
            m_messageList["SC"].append(
                i18n("Schedule %1 has interval of %2 which is not currently available",
                     sc.name(), frequency));
            i = 0; // treat as single occurrence
            m_suspectSchedule = true;
        }
        if (unknownOccurs) {
            m_messageList["SC"].append(
                i18n("Schedule %1 contains unknown interval specification; please check for correct operation",
                     sc.name()));
            m_suspectSchedule = true;
        }
        // set the occurrence interval, weekend option, start date
        sc.setOccurrence(vi[i].occ);
        sc.setWeekendOption(vi[i].wo);
        sc.setStartDate(gsc->startDate());
        // if a last date was specified, use it, otherwise try to work out the last date
        sc.setLastPayment(gsc->lastDate());
        numOccurs = gsc->numOccurs().toInt();
        if (sc.lastPayment() == QDate()) {
            nextDate = lastDate = gsc->startDate();
            while ((nextDate < today) && (numOccurs-- != 0)) {
                lastDate = nextDate;
                nextDate = incrDate(lastDate, vi[i].interval, vi[i].intervalCount);
            }
            sc.setLastPayment(lastDate);
        }
        // under Tom's new regime, the tx dates are the next due date (I think)
        tx.setPostDate(incrDate(sc.lastPayment(), vi[i].interval, vi[i].intervalCount));
        tx.setEntryDate(incrDate(sc.lastPayment(), vi[i].interval, vi[i].intervalCount));
        // if an end date was specified, use it, otherwise if the input file had a number
        // of occurs remaining, work out the end date
        sc.setEndDate(gsc->endDate());
        numOccurs = gsc->numOccurs().toInt();
        remOccurs = gsc->remOccurs().toInt();
        if ((sc.endDate() == QDate()) && (remOccurs > 0)) {
            endDate = sc.lastPayment();
            while (remOccurs-- > 0) {
                endDate = incrDate(endDate, vi[i].interval, vi[i].intervalCount);
            }
            sc.setEndDate(endDate);
        }
        // Check for sched deferred interval. Don't know how/if we can handle it, or even what it means...
        if (gsc->getSchedDef() != 0) {
            m_messageList["SC"].append(
                i18n("Schedule %1 contains a deferred interval specification; please check for correct operation",
                     sc.name()));
            m_suspectSchedule = true;
        }
        // payment type, options
        sc.setPaymentType((Schedule::PaymentType)Schedule::PaymentType::Other);
        sc.setFixed(!m_suspectSchedule);  // if any probs were found, set it as variable so user will always be prompted
        // we don't currently have a 'disable' option, but just make sure auto-enter is off if not enabled
        //qDebug(QString("%1 and %2").arg(gsc->autoCreate()).arg(schedEnabled));
        sc.setAutoEnter((gsc->autoCreate() == QChar('y')) && (schedEnabled == QChar('y')));
        //qDebug(QString("autoEnter set to %1").arg(sc.autoEnter()));
        // type
        QString actionType = tx.splits().first().action();
        if (actionType == MyMoneySplit::actionName(eMyMoney::Split::Action::Deposit)) {
            sc.setType((Schedule::Type)Schedule::Type::Deposit);
        } else if (actionType == MyMoneySplit::actionName(eMyMoney::Split::Action::Transfer)) {
            sc.setType((Schedule::Type)Schedule::Type::Transfer);
        } else {
            sc.setType((Schedule::Type)Schedule::Type::Bill);
        }
        // finally, set the transaction pointer
        sc.setTransaction(tx);
        //tell the storage objects we have a new schedule object.
        if (m_suspectSchedule && m_dropSuspectSchedules) {
            m_messageList["SC"].append(
                i18n("Schedule %1 dropped at user request", sc.name()));
        } else {
            m_storage->addSchedule(sc);
            if (m_suspectSchedule)
                m_suspectList.append(sc.id());
        }
        signalProgress(++m_scheduleCount, 0);
        return ;
    }
    PASS
}
//********************************* convertFreqSpec  ********************************************************
void MyMoneyGncReader::convertFreqSpec(const GncFreqSpec *)
{
    // Nowt to do here at the moment, convertSched only retrieves the interval type
    // but we will probably need to look into the nested freqspec when we properly implement semi-monthly and stuff
    return ;
}
//********************************* convertRecurrence  ********************************************************
void MyMoneyGncReader::convertRecurrence(const GncRecurrence *)
{
    return ;
}

//**********************************************************************************************************
//************************************* terminate **********************************************************
void MyMoneyGncReader::terminate()
{
    TRY {
        // All data has been converted and added to storage
        // this code is just temporary to show us what is in the file.
        if (gncdebug) qDebug("%d accounts found in the GnuCash file", (unsigned int)m_mapIds.count());
        for (map_accountIds::const_iterator it = m_mapIds.constBegin(); it != m_mapIds.constEnd(); ++it) {
            if (gncdebug) qDebug() << "key ="  << it.key() << "value =" << it.value();
        }
        // first step is to implement the users investment option, now we
        // have all the accounts available
        QList<QString>::iterator stocks;
        for (stocks = m_stockList.begin(); stocks != m_stockList.end(); ++stocks) {
            checkInvestmentOption(*stocks);
        }
        // Next step is to walk the list and assign the parent/child relationship between the objects.
        unsigned int i = 0;
        signalProgress(0, m_accountCount, i18n("Reorganizing accounts..."));
        QList<MyMoneyAccount> list;
        QList<MyMoneyAccount>::iterator acc;
        m_storage->accountList(list);
        for (acc = list.begin(); acc != list.end(); ++acc) {
            if ((*acc).parentAccountId() == m_storage->asset().id()) {
                MyMoneyAccount assets = m_storage->asset();
                m_storage->addAccount(assets, (*acc));
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of the main asset account";
            } else if ((*acc).parentAccountId() == m_storage->liability().id()) {
                MyMoneyAccount liabilities = m_storage->liability();
                m_storage->addAccount(liabilities, (*acc));
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of the main liability account";
            } else if ((*acc).parentAccountId() == m_storage->income().id()) {
                MyMoneyAccount incomes = m_storage->income();
                m_storage->addAccount(incomes, (*acc));
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of the main income account";
            } else if ((*acc).parentAccountId() == m_storage->expense().id()) {
                MyMoneyAccount expenses = m_storage->expense();
                m_storage->addAccount(expenses, (*acc));
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of the main expense account";
            } else if ((*acc).parentAccountId() == m_storage->equity().id()) {
                MyMoneyAccount equity = m_storage->equity();
                m_storage->addAccount(equity, (*acc));
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of the main equity account";
            } else if ((*acc).parentAccountId() == m_rootId) {
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of the main root account";
            } else {
                // it is not under one of the main accounts, so find gnucash parent
                QString parentKey = (*acc).parentAccountId();
                if (gncdebug) qDebug() << "Account id" << (*acc).id() << "is a child of " << (*acc).parentAccountId();
                map_accountIds::const_iterator id = m_mapIds.constFind(parentKey);
                if (id != m_mapIds.constEnd()) {
                    if (gncdebug)
                        qDebug() << "Setting account id" << (*acc).id()
                                 << "parent account id to" << id.value();
                    MyMoneyAccount parent = m_storage->account(id.value());
                    parent = checkConsistency(parent, (*acc));
                    m_storage->addAccount(parent, (*acc));
                } else {
                    throw MYMONEYEXCEPTION_CSTRING("terminate() could not find account id");
                }
            }
            signalProgress(++i, 0);
        } // end for account
        signalProgress(0, 1, ("."));  // debug - get rid of reorg message
        // offer the most common account currency as a default
        QString mainCurrency = "";
        unsigned int maxCount = 0;
        QMap<QString, unsigned int>::ConstIterator it;
        for (it = m_currencyCount.constBegin(); it != m_currencyCount.constEnd(); ++it) {
            if (it.value() > maxCount) {
                maxCount = it.value();
                mainCurrency = it.key();
            }
        }

        if (mainCurrency != "") {
            QString question = i18n("Your main currency seems to be %1 (%2); do you want to set this as your base currency?", mainCurrency, m_storage->currency(mainCurrency.toUtf8()).name());
            if (KMessageBox::questionYesNo(0, question, PACKAGE) == KMessageBox::Yes) {
                m_storage->setValue("kmm-baseCurrency", mainCurrency);
            }
        }
        // now produce the end of job reports - first, work out which ones are required
        QList<QString> sectionsToReport; // list of sections needing report
        sectionsToReport.append("MN");  // always build the main section
        if ((m_ccCount = m_messageList["CC"].count()) > 0) sectionsToReport.append("CC");
        if ((m_orCount = m_messageList["OR"].count()) > 0) sectionsToReport.append("OR");
        if ((m_scCount = m_messageList["SC"].count()) > 0) sectionsToReport.append("SC");
        // produce the sections in separate message boxes
        bool exit = false;
        int si;
        for (si = 0; (si < sectionsToReport.count()) && !exit; ++si) {
            QString button0Text = i18nc("Button to show more detailed data", "More");
            if (si + 1 == sectionsToReport.count())
                button0Text = i18nc("Button to close the current dialog", "Done"); // last section
            KGuiItem yesItem(button0Text, QIcon(), "", "");
            KGuiItem noItem(i18n("Save Report"), QIcon(), "", "");

            switch (KMessageBox::questionYesNoCancel(0,
                    buildReportSection(sectionsToReport[si]),
                    PACKAGE,
                    yesItem, noItem)) {
            case KMessageBox::Yes:
                break;
            case KMessageBox::No:
                exit = writeReportToFile(sectionsToReport);
                break;
            default:
                exit = true;
                break;
            }
        }


        for (si = 0; si < m_suspectList.count(); ++si) {
            auto sc = m_storage->schedule(m_suspectList[si]);
            KMessageBox::information(0, i18n("Problems were encountered in converting schedule '%1'.", sc.name()), PACKAGE);
//      TODO: return this feature
//      switch (KMessageBox::warningYesNo(0, i18n("Problems were encountered in converting schedule '%1'.\nDo you want to review or edit it now?", sc.name()), PACKAGE)) {
//        case KMessageBox::Yes:
//          auto s = new KEditScheduleDlg(sc);
//          if (s->exec())
//            m_storage->modifySchedule(s->schedule());
//          delete s;
//          break;

//        default:
//          break;
//      }
        }
    }
    PASS
}
//************************************ buildReportSection************************************
QString MyMoneyGncReader::buildReportSection(const QString& source)
{
    TRY {
        QString s = "";
        bool more = false;
        if (source == "MN") {
            s.append(i18n("Found:\n\n"));
            s.append(i18np("%1 commodity (equity)\n", "%1 commodities (equities)\n", m_commodityCount));
            s.append(i18np("%1 price\n", "%1 prices\n", m_priceCount));
            s.append(i18np("%1 account\n", "%1 accounts\n", m_accountCount));
            s.append(i18np("%1 transaction\n", "%1 transactions\n", m_transactionCount));
            s.append(i18np("%1 schedule\n", "%1 schedules\n", m_scheduleCount));
            s.append("\n\n");
            if (m_ccCount == 0) {
                s.append(i18n("No inconsistencies were detected\n"));
            } else {
                s.append(i18np("%1 inconsistency was detected and corrected\n", "%1 inconsistencies were detected and corrected\n", m_ccCount));
                more = true;
            }
            if (m_orCount > 0) {
                s.append("\n\n");
                s.append(i18np("%1 orphan account was created\n", "%1 orphan accounts were created\n", m_orCount));
                more = true;
            }
            if (m_scCount > 0) {
                s.append("\n\n");
                s.append(i18np("%1 possible schedule problem was noted\n", "%1 possible schedule problems were noted\n", m_scCount));
                more = true;
            }
            QString unsupported("");
            QString lineSep("\n  - ");
            if (m_smallBusinessFound) unsupported.append(lineSep + i18n("Small Business Features (Customers, Invoices, etc.)"));
            if (m_budgetsFound) unsupported.append(lineSep + i18n("Budgets"));
            if (m_lotsFound) unsupported.append(lineSep + i18n("Lots"));
            if (!unsupported.isEmpty()) {
                unsupported.prepend(i18n("The following features found in your file are not currently supported:"));
                s.append(unsupported);
            }
            if (more) s.append(i18n("\n\nPress More for further information"));
        } else {
            s = m_messageList[source].join(QChar('\n'));
        }
        if (gncdebug) qDebug() << s;
        return (static_cast<const QString>(s));
    }
    PASS
}
//************************ writeReportToFile*********************************
bool MyMoneyGncReader::writeReportToFile(const QList<QString>& sectionsToReport)
{
    TRY {
        int i;
        QString fd = QFileDialog::getSaveFileName(0, QString(), QString(),
                i18n("Save report as"));
        if (fd.isEmpty()) return (false);
        QFile reportFile(fd);
        if (!reportFile.open(QIODevice::WriteOnly))  {
            return (false);
        }
        QTextStream stream(&reportFile);
        for (i = 0; i < sectionsToReport.count(); i++)
            stream << buildReportSection(sectionsToReport[i]) << endl;
        reportFile.close();
        return (true);
    }
    PASS
}
/****************************************************************************
                    Utility routines
*****************************************************************************/
//************************ createPayee ***************************

QString MyMoneyGncReader::createPayee(const QString& gncDescription)
{
    MyMoneyPayee payee;
    TRY {
        payee = m_storage->payeeByName(gncDescription);
    } CATCH { // payee not found, create one
        payee.setName(gncDescription);
        m_storage->addPayee(payee);
    }
    return (payee.id());
}
//************************************** createOrphanAccount *******************************
QString MyMoneyGncReader::createOrphanAccount(const QString& gncName)
{
    MyMoneyAccount acc;

    acc.setName("orphan_" + gncName);
    acc.setDescription(i18n("Orphan created from unknown GnuCash account"));

    QDate today = QDate::currentDate();

    acc.setOpeningDate(today);
    acc.setLastModified(today);
    acc.setLastReconciliationDate(today);
    acc.setCurrencyId(m_txCommodity);
    acc.setAccountType(Account::Type::Asset);
    acc.setParentAccountId(m_storage->asset().id());
    m_storage->addAccount(acc);
    // assign the gnucash id as the key into the map to find our id
    m_mapIds[gncName.toUtf8()] = acc.id();
    m_messageList["OR"].append(
        i18n("One or more transactions contain a reference to an otherwise unknown account\n"
             "An asset account with the name %1 has been created to hold the data", acc.name()));
    return (acc.id());
}
//****************************** incrDate *********************************************
QDate MyMoneyGncReader::incrDate(QDate lastDate, unsigned char interval, unsigned int intervalCount)
{
    TRY {
        switch (interval) {
        case 'd':
            return (lastDate.addDays(intervalCount));
        case 'w':
            return (lastDate.addDays(intervalCount * 7));
        case 'm':
            return (lastDate.addMonths(intervalCount));
        case 'y':
            return (lastDate.addYears(intervalCount));
        case 'o': // once-only
            return (lastDate);
        }
        throw MYMONEYEXCEPTION_CSTRING("Internal error - invalid interval char in incrDate");
//    QDate r = QDate(); return (r); // to keep compiler happy
    }
    PASS
}
//********************************* checkConsistency **********************************
MyMoneyAccount MyMoneyGncReader::checkConsistency(MyMoneyAccount& parent, MyMoneyAccount& child)
{
    TRY {
        // gnucash is flexible/weird enough to allow various inconsistencies
        // these are a couple I found in my file, no doubt more will be discovered
        if ((child.accountType() == Account::Type::Investment) &&
                (parent.accountType() != Account::Type::Asset)) {
            m_messageList["CC"].append(
                i18n("An Investment account must be a child of an Asset account\n"
                     "Account %1 will be stored under the main Asset account", child.name()));
            return m_storage->asset();
        }
        if ((child.accountType() == Account::Type::Income) &&
                (parent.accountType() != Account::Type::Income)) {
            m_messageList["CC"].append(
                i18n("An Income account must be a child of an Income account\n"
                     "Account %1 will be stored under the main Income account", child.name()));
            return m_storage->income();
        }
        if ((child.accountType() == Account::Type::Expense) &&
                (parent.accountType() != Account::Type::Expense)) {
            m_messageList["CC"].append(
                i18n("An Expense account must be a child of an Expense account\n"
                     "Account %1 will be stored under the main Expense account", child.name()));
            return m_storage->expense();
        }
        return (parent);
    }
    PASS
}
//*********************************** checkInvestmentOption *************************
void MyMoneyGncReader::checkInvestmentOption(QString stockId)
{
    // implement the investment option for stock accounts
    // first check whether the parent account (gnucash id) is actually an
    // investment account. if it is, no further action is needed
    MyMoneyAccount stockAcc = m_storage->account(m_mapIds[stockId.toUtf8()]);
    MyMoneyAccount parent;
    QString parentKey = stockAcc.parentAccountId();
    map_accountIds::const_iterator id = m_mapIds.constFind(parentKey);
    if (id != m_mapIds.constEnd()) {
        parent = m_storage->account(id.value());
        if (parent.accountType() == Account::Type::Investment) return ;
    }
    // so now, check the investment option requested by the user
    // option 0 creates a separate investment account for each stock account
    if (m_investmentOption == 0) {
        MyMoneyAccount invAcc(stockAcc);
        invAcc.setAccountType(Account::Type::Investment);
        invAcc.setCurrencyId(QString(""));  // we don't know what currency it is!!
        invAcc.setParentAccountId(parentKey);  // intersperse it between old parent and child stock acct
        m_storage->addAccount(invAcc);
        m_mapIds [invAcc.id()] = invAcc.id(); // so stock account gets parented (again) to investment account later
        if (gncdebug) qDebug()
                    << "Created investment account" << invAcc.name() << "as id" << invAcc.id()
                    << "parent" << invAcc.parentAccountId();
        if (gncdebug) qDebug() << "Setting stock" << stockAcc.name() << "id" <<  stockAcc.id()
                                   << "as child of" << invAcc.id();
        stockAcc.setParentAccountId(invAcc.id());
        m_storage->addAccount(invAcc, stockAcc);
        // investment option 1 creates a single investment account for all stocks
    } else if (m_investmentOption == 1) {
        static QString singleInvAccId = "";
        MyMoneyAccount singleInvAcc;
        bool ok = false;
        if (singleInvAccId.isEmpty()) { // if the account has not yet been created
            QString invAccName;
            while (!ok) {
                invAccName = QInputDialog::getText(0, QStringLiteral(PACKAGE),
                                                   i18n("Enter the investment account name "),
                                                   QLineEdit::Normal, i18n("My Investments"), &ok);
            }
            singleInvAcc.setName(invAccName);
            singleInvAcc.setAccountType(Account::Type::Investment);
            singleInvAcc.setCurrencyId(QString(""));
            singleInvAcc.setParentAccountId(m_storage->asset().id());
            m_storage->addAccount(singleInvAcc);
            m_mapIds [singleInvAcc.id()] = singleInvAcc.id(); // so stock account gets parented (again) to investment account later
            if (gncdebug) qDebug() << "Created investment account" << singleInvAcc.name()
                                       << "as id" << singleInvAcc.id() << "parent" << singleInvAcc.parentAccountId()
                                       << "reparenting stock";
            singleInvAccId = singleInvAcc.id();
        } else { // the account has already been created
            singleInvAcc = m_storage->account(singleInvAccId);
        }
        m_storage->addAccount(singleInvAcc, stockAcc); // add stock as child
        // the original intention of option 2 was to allow any asset account to be converted to an investment (broker) account
        // however, since we have already stored the accounts as asset, we have no way at present of changing their type
        // the only alternative would be to hold all the gnucash data in memory, then implement this option, then convert all the data
        // that would mean a major overhaul of the code. Perhaps I'll think of another way...
    } else if (m_investmentOption == 2) {
        static int lastSelected = 0;
        MyMoneyAccount invAcc(stockAcc);
        QStringList accList;
        QList<MyMoneyAccount> list;
        QList<MyMoneyAccount>::iterator acc;
        m_storage->accountList(list);
        // build a list of candidates for the input box
        for (acc = list.begin(); acc != list.end(); ++acc) {
            //      if (((*acc).accountGroup() == Account::Type::Asset) && ((*acc).accountType() != Account::Type::Stock)) accList.append ((*acc).name());
            if ((*acc).accountType() == Account::Type::Investment) accList.append((*acc).name());
        }
        //if (accList.isEmpty()) qWarning ("No available accounts");
        bool ok = false;
        while (!ok) { // keep going till we have a valid investment parent
            QString invAccName = QInputDialog::getItem(0,
                                 PACKAGE,
                                 i18n("Select parent investment account or enter new name. Stock %1", stockAcc.name()),
                                 accList,
                                 lastSelected, true, &ok);
            if (ok) {
                lastSelected = accList.indexOf(invAccName);  // preserve selection for next time
                for (acc = list.begin(); acc != list.end(); ++acc) {
                    if ((*acc).name() == invAccName) break;
                }
                if (acc != list.end()) { // an account was selected
                    invAcc = *acc;
                } else {                 // a new account name was entered
                    invAcc.setAccountType(Account::Type::Investment);
                    invAcc.setName(invAccName);
                    invAcc.setCurrencyId(QString(""));
                    invAcc.setParentAccountId(m_storage->asset().id());
                    m_storage->addAccount(invAcc);
                    ok = true;
                }
                if (invAcc.accountType() == Account::Type::Investment) {
                    ok = true;
                } else {
                    // this code is probably not going to be implemented coz we can't change account types (??)
#if 0
                    QMessageBox mb(PACKAGE,
                                   i18n("%1 is not an Investment Account. Do you wish to make it one?", invAcc.name()),
                                   QMessageBox::Question,
                                   QMessageBox::Yes | QMessageBox::Default,
                                   QMessageBox::No | QMessageBox::Escape,
                                   Qt::NoButton);
                    switch (mb.exec()) {
                    case QMessageBox::No :
                        ok = false;
                        break;
                    default:
                        // convert it - but what if it has splits???
                        qWarning("Not yet implemented");
                        ok = true;
                        break;
                    }
#endif
                    switch (KMessageBox::questionYesNo(0, i18n("%1 is not an Investment Account. Do you wish to make it one?", invAcc.name()), PACKAGE)) {
                    case KMessageBox::Yes:
                        // convert it - but what if it has splits???
                        qWarning("Not yet implemented");
                        ok = true;
                        break;
                    default:
                        ok = false;
                        break;
                    }
                }
            } // end if ok - user pressed Cancel
        } // end while !ok
        m_mapIds [invAcc.id()] = invAcc.id(); // so stock account gets parented (again) to investment account later
        m_storage->addAccount(invAcc, stockAcc);
    } else { // investment option != 0, 1, 2
        qWarning("Invalid investment option %d", m_investmentOption);
    }
}

// get the price source for a stock (gnc account) where online quotes are requested
void MyMoneyGncReader::getPriceSource(MyMoneySecurity stock, QString gncSource)
{
    // if he wants to use Finance::Quote, no conversion of source name is needed
    if (m_useFinanceQuote) {
        stock.setValue("kmm-online-quote-system", "Finance::Quote");
        stock.setValue("kmm-online-source", gncSource.toLower());
        m_storage->modifySecurity(stock);
        return;
    }
    // first check if we have already asked about this source
    // (mapSources is initially empty. We may be able to pre-fill it with some equivalent
    //  sources, if such things do exist. User feedback may help here.)
    QMap<QString, QString>::const_iterator it;
    for (it = m_mapSources.constBegin(); it != m_mapSources.constEnd(); ++it) {
        if (it.key() == gncSource) {
            stock.setValue("kmm-online-source", it.value());
            m_storage->modifySecurity(stock);
            return;
        }
    }
    // not found in map, so ask the user
    QPointer<KGncPriceSourceDlg> dlg = new KGncPriceSourceDlg(stock.name(), gncSource);
    dlg->exec();
    QString s = dlg->selectedSource();
    if (!s.isEmpty()) {
        stock.setValue("kmm-online-source", s);
        m_storage->modifySecurity(stock);
    }
    if (dlg->alwaysUse()) m_mapSources[gncSource] = s;
    delete dlg;
    return;
}

// functions to control the progress bar
//*********************** setProgressCallback *****************************
void MyMoneyGncReader::setProgressCallback(void(*callback)(int, int, const QString&))
{
    m_progressCallback = callback;
    return ;
}
//************************** signalProgress *******************************
void MyMoneyGncReader::signalProgress(int current, int total, const QString& msg)
{
    if (m_progressCallback != 0)
        (*m_progressCallback)(current, total, msg);
    return ;
}
#endif // _GNCFILEANON
