std::string stringifyParameterAttributes(PARAMDESC* paramDesc)
{
USHORT paramFlags = paramDesc->wParamFlags;
int numFlags(0);
for(DWORD bit(1); bit <= PARAMFLAG_FHASDEFAULT; bit<<=1)
numFlags += (paramFlags & bit) ? 1 : 0;
if(!numFlags)
return "";
std::ostringstream oss;
oss<< '[';
if(paramFlags & PARAMFLAG_FIN)
{
oss<< "in";
if(--numFlags)
oss<< ", ";
}
if(paramFlags & PARAMFLAG_FOUT)
{
oss<< "out";
if(--numFlags)
oss<< ", ";
}
if(paramFlags & PARAMFLAG_FLCID)
{
oss<< "lcid";
if(--numFlags)
oss<< ", ";
}
if(paramFlags & PARAMFLAG_FRETVAL)
{
oss<< "retval";
if(--numFlags)
oss<< ", ";
}
if(paramFlags & PARAMFLAG_FOPT)
{
oss<< "optional";
if(--numFlags)
oss<< ", ";
}
if(paramFlags & PARAMFLAG_FHASDEFAULT)
{
oss<< "defaultvalue";
if(paramDesc->pparamdescex)
{
oss<< '(';
PARAMDESCEX& paramDescEx = *(paramDesc->pparamdescex);
VARIANT defVal();
CComBSTR bstrDefValue;
CComVariant variant;
HRESULT hr(VariantChangeType(&variant, ¶mDescEx.varDefaultValue, 0, VT_BSTR));
if(hr)
oss<< "???)";
else
{
char ansiDefValue[MAX_PATH];
WideCharToMultiByte(CP_ACP, 0, variant.bstrVal, SysStringLen(variant.bstrVal) + 1, ansiDefValue, MAX_PATH, 0, 0);
if(paramDescEx.varDefaultValue.vt == VT_BSTR)
oss<< '\"'<< ansiDefValue<< '\"'<< ')';
else
oss<< ansiDefValue<< ')';
}
}
}
oss<< ']';
return oss.str();
}
bool SqliteDriver::alterTable(const QString &mtd1, const QString &mtd2, const QString &key)
{
#ifndef FL_QUICK_CLIENT
FLTableMetaData *oldMTD = 0;
FLTableMetaData *newMTD = 0;
QDomDocument doc("doc");
QDomElement docElem;
if (!FLUtil::domDocumentSetContent(doc, mtd1)) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Error al cargar los metadatos."));
#endif
} else {
docElem = doc.documentElement();
oldMTD = db_->manager()->metadata(&docElem, true);
}
if (oldMTD && oldMTD->isQuery())
return true;
if (!FLUtil::domDocumentSetContent(doc, mtd2)) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Error al cargar los metadatos."));
#endif
return false;
} else {
docElem = doc.documentElement();
newMTD = db_->manager()->metadata(&docElem, true);
}
if (!oldMTD)
oldMTD = newMTD;
if (oldMTD->name() != newMTD->name()) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Los nombres de las tablas nueva y vieja difieren."));
#endif
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
QString oldPK = oldMTD->primaryKey(), newPK = newMTD->primaryKey();
if (oldPK != newPK) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Los nombres de las claves primarias difieren."));
#endif
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
if (oldMTD->fieldType(oldPK) != newMTD->fieldType(newPK)) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Los tipos de las claves primarias difieren."));
#endif
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
if (db_->manager()->checkMetaData(oldMTD, newMTD)) {
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return true;
}
if (!db_->manager()->existsTable(oldMTD->name())) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("La tabla %1 antigua de donde importar los registros no existe.").arg(oldMTD->name()));
#endif
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
FLTableMetaData::FLFieldMetaDataList *fieldList = oldMTD->fieldList();
FLFieldMetaData *oldField = 0;
if (!fieldList) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Los antiguos metadatos no tienen campos."));
#endif
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
QString renameOld = oldMTD->name().left(6) + "alteredtable" + QDateTime::currentDateTime().toString("ddhhssz");
if (!db_->dbAux()) {
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
db_->dbAux() ->transaction();
if (!key.isEmpty() && key.length() == 40) {
QSqlCursor c("flfiles", true, db_->dbAux());
c.setForwardOnly(true);
QSqlRecord *buffer;
c.setFilter("nombre='" + renameOld + ".mtd'");
c.select();
if (!c.next()) {
buffer = c.primeInsert();
buffer->setValue("nombre", renameOld + ".mtd");
buffer->setValue("contenido", mtd1);
buffer->setValue("sha", key);
c.insert();
}
}
QSqlQuery q(QString::null, db_->dbAux());
if (!q.exec("CREATE TABLE " + renameOld + " AS SELECT * FROM " + oldMTD->name() + ";") || !q.exec("DROP TABLE " + oldMTD->name() + ";")) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("No se ha podido renombrar la tabla antigua."));
#endif
db_->dbAux() ->rollback();
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
if (!db_->manager()->createTable(newMTD)) {
db_->dbAux() ->rollback();
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
QSqlCursor oldCursor(renameOld, true, db_->dbAux());
oldCursor.setMode(QSqlCursor::ReadOnly);
QSqlCursor newCursor(newMTD->name(), true, db_->dbAux());
newCursor.setMode(QSqlCursor::Insert);
oldCursor.select();
int totalSteps = oldCursor.size();
QProgressDialog progress(QApplication::tr("Reestructurando registros para %1...").arg(newMTD->alias()), 0, totalSteps, qApp->focusWidget(), 0, true);
progress.setCaption(QApplication::tr("Tabla modificada"));
int step = 0;
QSqlRecord *newBuffer;
QString sequence;
fieldList = newMTD->fieldList();
FLFieldMetaData *newField = 0;
if (!fieldList) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Los nuevos metadatos no tienen campos."));
#endif
db_->dbAux() ->rollback();
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
if (fieldList->isEmpty()) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " + QApplication::tr("Los nuevos metadatos no tienen campos."));
#endif
db_->dbAux() ->rollback();
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
return false;
}
QVariant v;
bool ok = true;
while (oldCursor.next()) {
newBuffer = newCursor.primeInsert();
QDictIterator<FLFieldMetaData> it(*fieldList);
while ((newField = it.current()) != 0) {
++it;
oldField = oldMTD->field(newField->name());
if (!oldField || !oldCursor.field(oldField->name())) {
if (!oldField)
oldField = newField;
v = newField->defaultValue();
v.cast(FLFieldMetaData::flDecodeType(newField->type()));
} else {
v = oldCursor.value(newField->name());
if ((!oldField->allowNull() || !newField->allowNull()) &&
(v.isNull() || !v.isValid())) {
QVariant defVal(newField->defaultValue());
if (!defVal.isNull() && defVal.isValid())
v = defVal;
}
if (!v.cast(newBuffer->value(newField->name()).type())) {
#ifdef FL_DEBUG
qWarning("FLManager::alterTable : " +
QApplication::tr("Los tipos del campo %1 no son compatibles. Se introducirá un valor nulo.")
.arg(newField->name()));
#endif
}
}
if ((!oldField->allowNull() || !newField->allowNull()) && (v.isNull() || !v.isValid())) {
switch (oldField->type()) {
case QVariant::Int:
case FLFieldMetaData::Serial:
case QVariant::UInt:
case QVariant::Bool:
case FLFieldMetaData::Unlock:
v = int(0);
break;
case QVariant::Double:
v = double(0.0);
break;
case QVariant::Time:
v = QTime::currentTime();
break;
case QVariant::Date:
v = QDate::currentDate();
break;
default:
v = QString("NULL").left(newField->length());
break;
}
}
newBuffer->setValue(newField->name(), v);
}
if (!newCursor.insert()) {
ok = false;
break;
}
progress.setProgress(++step);
}
progress.setProgress(totalSteps);
if ((oldMTD != newMTD) && oldMTD)
delete oldMTD;
if (newMTD)
delete newMTD;
if (ok)
db_->dbAux() ->commit();
else {
db_->dbAux() ->rollback();
return false;
}
#else
return true;
#endif //FL_QUICK_CLIENT
}
