/*----------------------------------------------------------------------------------------------
This method is called by CheckHr (with punk and iid null) or CheckExtHr, after confirming
that hrErr is an error HRESULT.
It first confirms that there is an error info object available. If punk and iid
are supplied, it further checks that the error info object is relevant to that object and
interface.
If a relevant error object is available, and it indicates that a programming error has
occurred, and its Description does not yet contain a stack dump, we add one if possible.
Then we ThrowHr, with a special HelpId to indicate that HandleThrowable need not generate
a new error object.
If no relevant error object is available, we generate a stack dump and treat the problem
as an internal error.
----------------------------------------------------------------------------------------------*/
void CheckHrCore(HRESULT hrErr)
{
IErrorInfoPtr qerrinfo;
::GetErrorInfo(0, &qerrinfo); // This clears the system wide error info
if (!qerrinfo)
{
// We didn't have any (relevant) error info
ThrowInternalError(hrErr);
}
SmartBstr sbstrDesc;
qerrinfo->GetDescription(&sbstrDesc);
// We have an error info object, and presume that it is relevant.
// If it indicates a programming error, and doesn't already contain a
// stack dump, try to add one.
if (hrErr == E_INVALIDARG || hrErr == E_POINTER || hrErr == E_UNEXPECTED)
{
// If so look for stack dump type info.
std::wstring strDesc = sbstrDesc;
if (!wcsstr(strDesc.c_str(), ThrowableSd::MoreSep()))
{
// no stack there, so add one
DumpStackHere("Error was detected by CheckHr here:\r\n");
StrUni stuDescNew;
stuDescNew.Format(L"%s%s%S", sbstrDesc.Chars(), ThrowableSd::MoreSep(),
StackDumper::GetDump());
sbstrDesc.Append(const_cast<OLECHAR *>(stuDescNew.Chars()));
// Now modify the error info
ICreateErrorInfoPtr qcerrinfo;
if (SUCCEEDED(qerrinfo->QueryInterface(IID_ICreateErrorInfo, (LPVOID FAR*) &qcerrinfo)))
qcerrinfo->SetDescription(sbstrDesc);
}
}
// Throw an error indicating there is already a good error object in place.
ThrowHr(hrErr, sbstrDesc.Bstr(), -1, qerrinfo);
}
/*----------------------------------------------------------------------------------------------
Fill in the string with the given "Date Created" or "Date Modified" value.
@param flid Field id for either "DateCreated" or "DateModified".
@param strb Reference to the output string.
----------------------------------------------------------------------------------------------*/
void GeneralPropDlgTab::GetDateString(int flid, StrAppBuf & strb)
{
strb.Clear();
try
{
AfLpInfo * plpi = m_ppropd->GetLangProjInfo();
AssertPtr(plpi);
CustViewDaPtr qcvd;
plpi->GetDataAccess(&qcvd);
AssertPtr(qcvd);
int64 ntim = 0;
SilTime tim;
SYSTEMTIME stim;
achar rgchDate[50]; // Tuesday, August 15, 2000 mardi 15 août 2000
achar rgchTime[50]; // 10:17:09 PM 22:20:08
int cch;
HVO hvo = m_ppropd->GetObjId();
HRESULT hr;
CheckHr(hr = qcvd->get_TimeProp(hvo, flid, &ntim));
if (hr == S_FALSE && !ntim)
{
int clid = MAKECLIDFROMFLID(flid);
AfDbInfo * pdbi = plpi->GetDbInfo();
AssertPtr(pdbi);
IOleDbEncapPtr qode;
pdbi->GetDbAccess(&qode);
AssertPtr(qode);
IFwMetaDataCachePtr qmdc;
pdbi->GetFwMetaDataCache(&qmdc);
AssertPtr(qmdc);
SmartBstr sbstrField;
CheckHr(qmdc->GetFieldName(flid, &sbstrField));
IOleDbCommandPtr qodc;
CheckHr(qode->CreateCommand(&qodc));
StrUni stu;
ComBool fIsNull;
ComBool fMoreRows;
ULONG cbSpaceTaken;
SmartBstr sbstrClass;
CheckHr(qmdc->GetClassName(clid, &sbstrClass));
// Note that we need the view, not just the class table proper, in case the
// attribute is defined on a superclass (such as CmMajorObject).
stu.Format(L"select [%b] from [%b_] where [Id] = %d",
sbstrField.Bstr(), sbstrClass.Bstr(), hvo);
CheckHr(qodc->ExecCommand(stu.Bstr(), knSqlStmtSelectWithOneRowset));
CheckHr(qodc->GetRowset(0));
CheckHr(qodc->NextRow(&fMoreRows));
if (fMoreRows)
{
DBTIMESTAMP dbtim;
CheckHr(qodc->GetColValue(1, reinterpret_cast <BYTE *>(&dbtim),
sizeof(DBTIMESTAMP), &cbSpaceTaken, &fIsNull, 0));
if (!fIsNull)
{
stim.wYear = (unsigned short)dbtim.year;
stim.wMonth = (unsigned short)dbtim.month;
stim.wDayOfWeek = 0;
stim.wDay = (unsigned short)dbtim.day;
stim.wHour = (unsigned short)dbtim.hour;
stim.wMinute = (unsigned short)dbtim.minute;
stim.wSecond = (unsigned short)dbtim.second;
stim.wMilliseconds = (unsigned short)(dbtim.fraction/1000000);
cch = ::GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &stim, NULL,
rgchDate, 50);
rgchDate[cch] = 0;
cch = ::GetTimeFormat(LOCALE_USER_DEFAULT, NULL, &stim, NULL,
rgchTime, 50);
rgchTime[cch] = 0;
strb.Format(_T("%s %s"), rgchDate, rgchTime);
}
}
}
else if (ntim)
{
tim = ntim;
// Convert the date to a system date.
// Then format it to a time based on the current user locale.
stim.wYear = (unsigned short)tim.Year();
stim.wMonth = (unsigned short)tim.Month();
stim.wDayOfWeek = (unsigned short)tim.WeekDay();
stim.wDay = (unsigned short)tim.Date();
stim.wHour = (unsigned short)tim.Hour();
stim.wMinute = (unsigned short)tim.Minute();
stim.wSecond = (unsigned short)tim.Second();
stim.wMilliseconds = (unsigned short)tim.MilliSecond();
cch = ::GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &stim, NULL, rgchDate,
50);
rgchDate[cch] = 0;
cch = ::GetTimeFormat(LOCALE_USER_DEFAULT, NULL, &stim, NULL, rgchTime, 50);
rgchTime[cch] = 0;
strb.Format(_T("%s %s"), rgchDate, rgchTime);
}
}
catch (...) // Was empty.
{
throw; // For now we have nothing to add, so pass it on up.
}
}