void CEUtils_Request::Connect(void)
{
string url = GetBaseURL() + GetScriptName();
string body = GetQueryString();
STimeout timeout_value;
const STimeout* timeout =
g_CTimeoutToSTimeout(GetConnContext()->GetTimeout(), timeout_value);
if ( m_Method == eHttp_Post ) {
m_Stream.reset(new CConn_HttpStream(
url,
NULL,
"Content-type: application/x-www-form-urlencoded",
NULL, NULL, NULL, NULL,
fHTTP_AutoReconnect,
timeout));
*m_Stream << body;
}
else {
m_Stream.reset(new CConn_HttpStream(
url + "?" + body,
fHTTP_AutoReconnect,
timeout));
}
}
void CRptDanhsachBNVaoVien::OnPrintSelect(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
CReport rpt;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr;
szSQL = GetQueryString();
if (!rpt.Init(_T("Reports\\HMS\\HE_DANHSACHBENHNHANVAOVIEN.RPT")))
return;
int ret = rs.ExecSQL(szSQL);
if (ret <=0)
{
ShowMessage(150, MB_ICONSTOP);
return;
}
rpt.GetReportHeader()->SetValue(_T("HealthService"), pMF->m_CompanyInfo.sc_pname);
rpt.GetReportHeader()->SetValue(_T("HospitalName"), pMF->m_CompanyInfo.sc_name);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
CReportSection *rptDetail = NULL;
int nIdx=0;
while (!rs.IsEOF())
{
rptDetail = rpt.AddDetail();
nIdx++;
tmpStr.Format(_T("%d"), nIdx);
rptDetail->SetValue(_T("1"), tmpStr);
//sovaovien
rs.GetValue(_T("inwardno"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
//tenbn
rs.GetValue(_T("tenbenhnhan"), tmpStr);
rptDetail->SetValue(_T("3"), tmpStr);
//namsinh
rs.GetValue(_T("namsinh"), tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
//capbac
rs.GetValue(_T("capbac"), tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
//dv
rs.GetValue(_T("dv"), tmpStr);
rptDetail->SetValue(_T("6"), tmpStr);
//chandoan
rs.GetValue(_T("chandoan"), tmpStr);
rptDetail->SetValue(_T("7"), tmpStr);
//doituong
rs.GetValue(_T("doituong"), tmpStr);
rptDetail->SetValue(_T("8"), tmpStr);
//vaovien
rs.GetValue(_T("vaokhoa"), tmpStr);
rptDetail->SetValue(_T("9"), tmpStr);
rs.MoveNext();
}
CString szSysDate;
szSysDate = pMF->GetSysDate();
tmpStr.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")),szSysDate.Right(2),szSysDate.Mid(5,2),szSysDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), tmpStr);
rpt.PrintPreview();
}
/*void CPMSExportSheetList::OnStockAddNew(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
} */
void CPMSExportSheetList::OnPrintPreviewSelect(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CString szSQL, tmpStr, szSysDate, szPrice, szRptName;
CRecord rs(&pMF->m_db);
szSQL = GetQueryString();
int nIdx = 0;
double nAmount = 0, nTotal = 0;
int nCount = rs.ExecSQL(szSQL);
if (nCount <= 0)
{
ShowMessage(150, MB_ICONSTOP);
return;
}
szRptName.Format(_T("Reports/HMS/PM_BANGKEPHIEUXUAT.RPT"));
if (!rpt.Init(szRptName))
return;
rpt.GetReportHeader()->SetValue(_T("HealthService"), pMF->m_szHealthService);
rpt.GetReportHeader()->SetValue(_T("HospitalName"), pMF->m_szHospitalName);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
if (!m_szStockKey.IsEmpty())
rpt.GetReportHeader()->SetValue(_T("StockName"), m_wndStock.GetCurrent(1));
CReportSection *rptDetail;
szPrice = _T("vatamount");
if (m_nByServPrice)
szPrice = _T("servamount");
while (!rs.IsEOF()){
rptDetail = rpt.AddDetail();
nIdx++;
tmpStr.Format(_T("%d"), nIdx);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("orderid"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rs.GetValue(_T("expdate"), tmpStr);
rptDetail->SetValue(_T("3"), CDate::Convert(tmpStr, yyyymmdd, ddmmyyyy));
tmpStr.Empty();
rs.GetValue(_T("patname"), tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rs.GetValue(_T("id"), tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
rs.GetValue(_T("doctype"), tmpStr);
rptDetail->SetValue(_T("6"), tmpStr);
rs.GetValue(szPrice, nAmount);
nTotal += nAmount;
rptDetail->SetValue(_T("7"), double2str(nAmount));
rs.MoveNext();
}
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
tmpStr.Format(_T("%s"), _T("T\x1ED5ng \x63\x1ED9ng"));
rptDetail->SetValue(_T("TotalAmount"), tmpStr);
tmpStr.Format(_T("%f"), nTotal);
rptDetail->SetValue(_T("s7"), tmpStr);
szSysDate = pMF->GetSysDate();
tmpStr.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")), szSysDate.Right(2), szSysDate.Mid(5, 2), szSysDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), tmpStr);
rpt.PrintPreview();
}
void CPMSProductSupplyPlan::OnExportSelect(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
UpdateData(true);
CRecord rs(&pMF->m_db);
CExcel xls;
CString szSQL, tmpStr;
double nTmp = 0;
int nIdx = 1, nRow = 0;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
AfxMessageBox(_T("No Data."));
return;
}
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 8);
xls.SetColumnWidth(1, 30);
xls.SetColumnWidth(2, 30);
xls.SetCellMergedColumns(0, 0, 2);
xls.SetCellMergedColumns(0, 1, 2);
xls.SetCellMergedColumns(0, 2, 6);
xls.SetCellMergedColumns(0, 3, 6);
xls.SetCellText(0, 0, pMF->m_szHealthService, 4098, true);
xls.SetCellText(0, 1, pMF->m_szHospitalName, 4098, true);
//TODO: Write Excel Name
tmpStr = _T("\x42\xC1O \x43\xC1O \x44\x1EF0 TR\xD9 MU\x41 THU\x1ED0\x43");
xls.SetCellText(0, 2, tmpStr, 4098, true);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), CDate::Convert(m_szFromDate, yyyymmdd, ddmmyyyy), CDate::Convert(m_szToDate, yyyymmdd, ddmmyyyy));
xls.SetCellText(0, 3, tmpStr, 4098, true);
//TODO: Write Column Header
nRow = 4;
xls.SetCellText(0, nRow, _T("STT"), 4098, true);
xls.SetCellText(1, nRow, _T("T\xEAn thu\x1ED1\x63, h\xE0m l\x1B0\x1EE3ng"), 4098, true);
xls.SetCellText(2, nRow, _T("T\xEAn ho\x1EA1t \x63h\x1EA5t"), 4098, true);
xls.SetCellText(3, nRow, _T("\x110VT"), 4098, true);
xls.SetCellText(4, nRow, _T("\x58u\x1EA5t trong k\x1EF3"), 4098, true);
xls.SetCellText(5, nRow, _T("T\x1ED3n \x63u\x1ED1i k\x1EF3"), 4098, true);
xls.SetCellText(6, nRow, _T("\x44\x1EF1 tr\xF9 mu\x61"), 4098, true);
nRow = 6;
while (!rs.IsEOF())
{
xls.SetCellText(0, nRow, int2str(nIdx++), FMT_TEXT | FMT_RIGHT);
xls.SetCellText(1, nRow, rs.GetValue(_T("name")), FMT_TEXT);
xls.SetCellText(2, nRow, rs.GetValue(_T("generic")), FMT_TEXT);
xls.SetCellText(3, nRow, rs.GetValue(_T("unit")), FMT_TEXT);
rs.GetValue(_T("expqty"), nTmp);
xls.SetCellText(4, nRow, double2str(nTmp), FMT_NUMBER1);
rs.GetValue(_T("instockqty"), nTmp);
xls.SetCellText(5, nRow, double2str(nTmp), FMT_NUMBER1);
rs.GetValue(_T("plan_qty"), nTmp);
xls.SetCellText(6, nRow, double2str(nTmp), FMT_NUMBER1);
nRow++;
rs.MoveNext();
}
xls.Save(_T("Exports\\Bao cao du tru mua thuoc.xls"));
}
/*void CEMStatisticsMajorDiseasesReport::OnExamRoomAddNew(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
} */
void CEMStatisticsMajorDiseasesReport::OnPrintPreviewSelect()
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CString szSQL, szTemp, tmpStr;
CRecord rs(&pMF->m_db);
szSQL = GetQueryString();
BeginWaitCursor();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
ShowMessage(150, MB_ICONSTOP);
return;
}
if(!rpt.Init(_T("Reports/HMS/HE_THONGKEMATBENHCHINH.RPT")) )
return ;
rpt.GetReportHeader()->SetValue(_T("HEALTHSERVICE"), pMF->m_CompanyInfo.sc_pname);
rpt.GetReportHeader()->SetValue(_T("HOSPITALNAME"), pMF->m_CompanyInfo.sc_name);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
int nIndex = 1;
CReportSection* rptDetail;
double nTotal = 0;
while(!rs.IsEOF())
{
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIndex ++);
rptDetail->SetValue(_T("1"), tmpStr);
szTemp = rs.GetValue(_T("hi_icd"));
rptDetail->SetValue(_T("2"), szTemp);
szTemp = rs.GetValue(_T("ICDName"));
rptDetail->SetValue(_T("3"), szTemp);
szTemp = rs.GetValue(_T("total"));
nTotal += ToInt(szTemp);
rptDetail->SetValue(_T("4"), szTemp);
rs.MoveNext();
}
szTemp.Format(_T("s%d"), nTotal);
rpt.GetReportFooter()->SetValue(_T("s4"), nTotal);
CString szDate;
tmpStr = pMF->GetSysDate();
szDate.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")), tmpStr.Mid(8, 2), tmpStr.Mid(5, 2), tmpStr.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), szDate);
rpt.PrintPreview();
EndWaitCursor();
}
void HttpdSocket::OnHeaderComplete()
{
m_cookies = new HttpdCookies(m_http_cookie);
if (GetMethod() == "GET")
{
Utility::SetEnv("QUERY_STRING", GetQueryString());
}
Utility::SetEnv("REQUEST_METHOD", GetMethod());
Utility::SetEnv("HTTP_COOKIE", m_http_cookie);
Utility::SetEnv("CONTENT_TYPE", m_content_type);
Utility::SetEnv("CONTENT_LENGTH", m_content_length_str);
if (GetMethod() == "POST")
{
m_file = new MemFile;
}
else
if (GetMethod() == "GET")
{
m_form = new HttpdForm(GetQueryString(), GetQueryString().size() );
AddResponseHeader("Date", datetime2httpdate(GetDate()) );
if (GetUri() == "/image")
{
Send64(Utility::Logo, "image/png");
}
else
{
Exec();
}
Reset(); // prepare for next request
}
else
{
AddResponseHeader("Date", GetHttpDate());
AddResponseHeader("Connection", "close");
SetStatus("405");
SetStatusText("Method not allowed");
SendResponse();
}
}
/*void CEMPatientStatbyLocation::OnVillageAddNew(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
} */
void CEMPatientStatbyLocation::OnExportSelect(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
UpdateData(true);
CExcel xls;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr;
int nCol = 0, nRow = 0, nIdx = 1;
double nCount = 0, nTotal = 0;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
AfxMessageBox(_T("No Data."), MB_OK|MB_ICONSTOP);
return;
}
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 5);
xls.SetColumnWidth(1, 30);
xls.SetColumnWidth(2, 10);
xls.SetCellMergedColumns(0, 0, 2);
xls.SetCellMergedColumns(0, 1, 2);
xls.SetCellMergedColumns(0, 2, 3);
xls.SetCellMergedColumns(0, 3, 3);
xls.SetCellText(0, 0, pMF->m_szHealthService, FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(0, 1, pMF->m_szHospitalName, FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(0, 2, _T("TH\x1ED0NG K\xCA \x42\x1EC6NH NH\xC2N T\x1EEANG \x110\x1ECA\x41 PH\x1AF\x1A0NG"), FMT_TEXT | FMT_CENTER, true);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), m_szFromDate, m_szToDate);
xls.SetCellText(0, 3, tmpStr, FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(1, 4, _T("T\x1ED5ng s\x1ED1:"), FMT_TEXT, true);
xls.SetCellText(0, 5, _T("STT"), FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(1, 5, _T("T\xEAn"), FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(2, 5, _T("S\x1ED1 l\x1B0\x1EE3ng"), FMT_TEXT | FMT_CENTER, true);
nRow = 6;
while (!rs.IsEOF())
{
xls.SetCellText(nCol, nRow, int2str(nIdx++), FMT_TEXT | FMT_RIGHT);
xls.SetCellText(nCol + 1, nRow, rs.GetValue(_T("locationame")), FMT_TEXT);
rs.GetValue(_T("cnt"), nCount);
nTotal += nCount;
xls.SetCellText(nCol + 2, nRow, double2str(nCount), FMT_NUMBER1);
nRow++;
rs.MoveNext();
}
xls.SetCellText(nCol + 2, 4, double2str(nTotal), FMT_NUMBER1);
xls.Save(_T("Exports\\Thong Ke BN theo que quan.xls"));
}
ContentType WBPassthruSink::GetContentTypeFromURL(const std::wstring& src)
{
std::wstring schemeAndHierarchicalPart = GetSchemeAndHierarchicalPart(src);
auto contentType = GetContentTypeFromString(schemeAndHierarchicalPart);
if (contentType == ContentType::CONTENT_TYPE_OTHER &&
AdblockPlus::IE::InstalledMajorVersion() == 8)
{
std::wstring queryString = GetQueryString(src);
wchar_t* nextToken = nullptr;
const wchar_t* token = wcstok_s(&queryString[0], L"&=", &nextToken);
while (token != nullptr)
{
contentType = GetContentTypeFromString(token);
if (contentType != ContentType::CONTENT_TYPE_OTHER)
{
return contentType;
}
token = wcstok_s(nullptr, L"&=", &nextToken);
}
}
return contentType;
}
struct curl_slist *
VSIOSSHandleHelper::GetCurlHeaders( const CPLString& osVerb,
const struct curl_slist* psExistingHeaders,
const void * /*pabyDataContent*/,
size_t /*nBytesContent*/ ) const
{
CPLString osCanonicalQueryString;
if( !m_osObjectKey.empty() )
{
osCanonicalQueryString = GetQueryString(false);
}
CPLString osCanonicalizedResource( m_osBucket.empty() ? CPLString("/") :
"/" + m_osBucket + "/" + m_osObjectKey );
osCanonicalizedResource += osCanonicalQueryString;
return CPLGetOSSHeaders(
m_osSecretAccessKey,
m_osAccessKeyId,
osVerb,
psExistingHeaders,
osCanonicalizedResource);
}
void CTMOperationFosteringList::OnExportSelect(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szMoneyInWord, szTemp;
int nIdx = 1, nRow = 0;
double nAmount = 0, nTotalAmount = 0;
CStringArray arrCol;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
AfxMessageBox(_T("No Data."));
return;
}
CExcel xls;
xls.CreateSheet(1);
xls.SetWorksheet(0);
//Header
xls.SetColumnWidth(0, 5);
xls.SetColumnWidth(1, 10);
xls.SetColumnWidth(3, 20);
xls.SetColumnWidth(4, 20);
xls.SetColumnWidth(5, 20);
xls.SetColumnWidth(6, 30);
xls.SetColumnWidth(7, 10);
xls.SetColumnWidth(8, 15);
xls.SetColumnWidth(9, 15);
xls.SetColumnWidth(10, 15);
xls.SetColumnWidth(11, 15);
xls.SetCellMergedColumns(0, 0, 3);
xls.SetCellMergedColumns(0, 1, 3);
xls.SetCellMergedColumns(0, 2, 3);
xls.SetCellMergedColumns(0, 3, 11);
xls.SetCellMergedColumns(0, 4, 11);
xls.SetCellText(0, 0, pMF->m_CompanyInfo.sc_pname, 4098, true);
xls.SetCellText(0, 1, pMF->m_CompanyInfo.sc_name, 4098, true);
xls.SetCellText(0, 2, pMF->GetCurrentDepartmentName(), 4098, true);
TranslateString(_T("Operation Fostering List"), szTemp);
StringUpper(szTemp, tmpStr);
xls.SetCellText(0, 3, tmpStr, 4098, true, 12);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), m_szFromDate, m_szToDate);
xls.SetCellText(0, 4, tmpStr, 4098, true);
arrCol.Add(_T("STT"));
arrCol.Add(_T("S\x1ED1 h\x1ED3 s\x1A1"));
arrCol.Add(_T("S\x1ED1 BA"));
arrCol.Add(_T("H\x1ECD v\xE0 t\xEAn"));
arrCol.Add(_T("N\x103m sinh"));
arrCol.Add(_T("Th\x1EBB/Qu\xE2n h\xE0m"));
arrCol.Add(_T("\x44\x61nh m\x1EE5\x63 PTTT"));
arrCol.Add(_T("T\xEAn PTTT"));
arrCol.Add(_T("Ph\xE2n lo\x1EA1i PT, TT"));
//arrCol.Add(_T("K\xEDp th\x1EF1\x63 hi\x1EC7n"));
arrCol.Add(_T("\x43h\xEDnh"));
arrCol.Add(_T("Ph\x1EE5"));
arrCol.Add(_T("Gi\xFAp vi\x1EC7\x63"));
arrCol.Add(_T("S\x1ED1 l\x1B0\x1EE3ng"));
arrCol.Add(_T("S\x1ED1 ti\x1EC1n"));
for (int i = 0; i < arrCol.GetCount(); i++)
xls.SetCellText(i, 5, arrCol.GetAt(i), 4098, true);
//Detail
nRow = 6;
while (!rs.IsEOF())
{
xls.SetCellText(0, nRow, int2str(nIdx++), FMT_TEXT | FMT_RIGHT);
xls.SetCellText(1, nRow, rs.GetValue(_T("doc_no")), 4098);
xls.SetCellText(2, nRow, rs.GetValue(_T("record_no")), 4098);
xls.SetCellText(3, nRow, rs.GetValue(_T("patient_name")), FMT_TEXT);
xls.SetCellText(4, nRow, rs.GetValue(_T("yob")), 4098);
xls.SetCellText(5, nRow, rs.GetValue(_T("extra_info")), FMT_TEXT);
xls.SetCellText(6, nRow, rs.GetValue(_T("operation_name1")), FMT_TEXT);
xls.SetCellText(7, nRow, rs.GetValue(_T("operation_name")), FMT_TEXT);
xls.SetCellText(8, nRow, rs.GetValue(_T("operation_type")), 4098);
xls.SetCellText(9, nRow, rs.GetValue(_T("practitioner")), FMT_TEXT);
xls.SetCellText(10, nRow, rs.GetValue(_T("assistant")), FMT_TEXT);
xls.SetCellText(11, nRow, rs.GetValue(_T("anethetist")), FMT_TEXT);
xls.SetCellText(12, nRow, rs.GetValue(_T("quantity")), FMT_NUMBER1);
rs.GetValue(_T("amount"), nAmount);
nTotalAmount += nAmount;
xls.SetCellText(13, nRow, double2str(nAmount), FMT_NUMBER1);
nRow++;
rs.MoveNext();
}
if (nTotalAmount > 0)
{
xls.SetCellMergedColumns(0, nRow, 13);
xls.SetCellText(0, nRow, _T("\x43\x1ED9ng"), 4098, true);
xls.SetCellText(13, nRow, double2str(nTotalAmount), FMT_NUMBER1);
nRow++;
MoneyToString(double2str(nTotalAmount), szMoneyInWord);
tmpStr.Format(_T("S\x1ED1 ti\x1EC1n \x62\x1EB1ng \x63h\x1EEF: %s"), szMoneyInWord);
xls.SetCellMergedColumns(0, nRow, 13);
xls.SetCellText(0, nRow, tmpStr, FMT_TEXT, true);
}
xls.Save(_T("Exports\\Danh sach de nghi boi duong PTTT.xls"));
}
void CFMPostedReceiptVoucherList::OnExportSelect(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CExcel xls;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr;
int nCol = 0, nRow = 0;
double nCost = 0;
long double nTtlCost[6];
int nIdx = 1;
CStringArray arrField;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
AfxMessageBox(_T("No Data"));
return;
}
for (int i = 0; i < 6; i++)
nTtlCost[i] = 0;
arrField.Add(_T("staff"));
arrField.Add(_T("invoiceno"));
arrField.Add(_T("eamount"));
arrField.Add(_T("deposit"));
arrField.Add(_T("iamount"));
arrField.Add(_T("inpatient_deposit_paid"));
arrField.Add(_T("inpatient_payment"));
arrField.Add(_T("totalamount"));
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 5);
xls.SetColumnWidth(1, 30);
for (int i = 3; i < 9; i++)
xls.SetColumnWidth(i, 15);
//Header
xls.SetCellMergedColumns(0, 0, 2);
xls.SetCellMergedColumns(0, 1, 2);
xls.SetCellMergedColumns(0, 2, 9);
xls.SetCellMergedColumns(0, 3, 9);
xls.SetCellText(0, 0, pMF->m_CompanyInfo.sc_name, 4098, true);
xls.SetCellText(0, 1, _T("Ph\xF2ng t\xE0i \x63h\xEDnh"), 4098, true);
xls.SetCellText(0, 2, _T("\x42\x1EA2NG K\xCA \x43H\x1EE8NG T\x1EEA GHI S\x1ED4 - THU"), 4098, true);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), m_szFromDate, m_szToDate);
xls.SetCellText(0, 3, tmpStr, 4098);
for (int i = 0; i < 9; i++)
{
if (i < 5 || i > 7)
xls.SetCellMergedRows(nCol + i, 4, 2);
else if (i == 5)
xls.SetCellMergedColumns(nCol + i, 4, 3);
}
xls.SetCellText(0, 4, _T("STT"), 528386, true);
xls.SetCellText(1, 4, _T("H\x1ECD v\xE0 t\xEAn nh\xE2n vi\xEAn"), 528386, true);
xls.SetCellText(2, 4, _T("S\x1ED1 phi\x1EBFu"), 528386, true);
xls.SetCellText(3, 4, _T("\x43\xE1\x63 kho\x1EA3n ph\x1EA3i thu \x42N ngo\x1EA1i tr\xFA"), 528386, true);
xls.SetCellText(4, 4, _T("\x42N t\x1EA1m g\x1EEDi"), 528386, true);
xls.SetCellText(5, 4, _T("\x43\xE1\x63 kho\x1EA3n ph\x1EA3i thu \x42N n\x1ED9i tr\xFA"), 528386, true);
xls.SetCellText(5, 5, _T("\x43\x1ED9ng"), 528386, true);
xls.SetCellText(6, 5, _T("Tr\xED\x63h t\x1EA1m g\x1EEDi"), 528386, true);
xls.SetCellText(7, 5, _T("Thu th\xEAm"), 528386, true);
xls.SetCellText(8, 4, _T("T\x1ED5ng thu"), 528386, true);
nRow = 6;
while (!rs.IsEOF())
{
xls.SetCellText(nCol, nRow, int2str(nIdx++), FMT_TEXT | FMT_RIGHT);
for (int i = 0; i < arrField.GetCount(); i++)
{
if (i < 2)
xls.SetCellText(nCol + i + 1, nRow, rs.GetValue(arrField.GetAt(i)), FMT_TEXT);
else
{
rs.GetValue(arrField.GetAt(i), nCost);
nTtlCost[i-2] += nCost;
xls.SetCellText(nCol + i + 1, nRow, double2str(nCost), FMT_NUMBER1);
}
}
nRow++;
rs.MoveNext();
}
xls.SetCellText(2, nRow, _T("T\x1ED5ng \x63\x1ED9ng"), FMT_TEXT | FMT_CENTER, true);
for (int i = 0 ; i < 6;i++)
{
tmpStr.Format(_T("%f"), nTtlCost[i]);
xls.SetCellText(nCol+i+3, nRow, tmpStr, FMT_NUMBER1);
}
xls.Save(_T("Exports\\Bang ke chung tu ghi so - thu.xls"));
}
void CEMWeekSynthesisReport::OnExportSelect(){
_debug(_T("%s"), CString(typeid(this).name()));
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CExcel xls;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szTemp, szWhere;
int nCol = 0, nRow = 0;
int nTotal[12], nTemp = 0;
szSQL = GetQueryString();
int nCount = rs.ExecSQL(szSQL);
if (nCount <= 0)
{
ShowMessage(150, MB_ICONSTOP);
return;
}
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 30);
xls.SetColumnWidth(1, 10);
xls.SetColumnWidth(2, 10);
xls.SetColumnWidth(3, 10);
xls.SetColumnWidth(4, 10);
xls.SetColumnWidth(5, 10);
xls.SetColumnWidth(6, 10);
xls.SetColumnWidth(7, 10);
xls.SetColumnWidth(8, 10);
xls.SetColumnWidth(9, 10);
xls.SetColumnWidth(10, 10);
xls.SetColumnWidth(11, 13);
CellFormat df(&xls), hf(&xls), nf(&xls);
df.SetItalic(true);
df.SetCellStyle(FMT_TEXT | FMT_CENTER);
hf.SetBold(true);
hf.SetCellStyle(FMT_TEXT | FMT_CENTER);
nf.SetCellStyle(FMT_NUMBER1);
//Header
xls.SetCellMergedColumns(nCol, nRow, 3);
xls.SetCellMergedColumns(nCol, nRow + 1, 3);
xls.SetCellMergedColumns(nCol, nRow + 2, 11);
xls.SetCellMergedColumns(nCol, nRow + 3, 11);
xls.SetCellText(nCol, nRow, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol, nRow + 1, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true, 10);
TranslateString(_T("Weekly Synthesis Report"), szTemp);
StringUpper(szTemp, tmpStr);
xls.SetCellText(nCol, nRow + 2, tmpStr, FMT_TEXT | FMT_CENTER, true, 12);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
xls.SetCellText(nCol, nRow + 3, tmpStr, &df);
//Column Header
CStringArray arrCol;
arrCol.Add(_T("Ph\xF2ng"));
arrCol.Add(_T("Qu\xE2n"));
arrCol.Add(_T("\x42HYT Qu\xE2n"));
arrCol.Add(_T("\x42\x1EA1n"));
arrCol.Add(_T("Tr\x1EBB < \x36t"));
arrCol.Add(_T("\x43h\xEDnh s\xE1\x63h"));
arrCol.Add(_T("\x44\xE2n"));
arrCol.Add(_T("\x42HYT kh\xE1\x63"));
arrCol.Add(_T("\x42H TNSQ"));
arrCol.Add(_T("\x42H Qu\xE2n \x111\x1ED9i"));
arrCol.Add(_T("BHYT Qu\xE2n nh\xE2n"));
arrCol.Add(_T("BHYT(N\x1EE3 th\x1EBB)"));
arrCol.Add(_T("T\x1ED5ng \x63\x1ED9ng"));
nRow = 4;
for (int i = 0; i < arrCol.GetCount(); i++)
{
xls.SetCellText(nCol+i, nRow, arrCol.GetAt(i), FMT_TEXT | FMT_CENTER, true, 10);
}
for (int i = 0; i< 12; i++)
{
nTotal[i] = 0;
}
nRow = 5;
while (!rs.IsEOF()){
rs.GetValue(_T("roomid"), tmpStr);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT);
for (int i = 0; i< 12; i++)
{
szTemp.Format(_T("c%d"), i+1);
rs.GetValue(szTemp, nTemp);
tmpStr.Format(_T("%d"), nTemp);
xls.SetCellText(nCol+i+1, nRow, tmpStr, &nf);
nTotal[i] += nTemp;
}
nRow++;
rs.MoveNext();
}
TranslateString(_T("Total"), tmpStr);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT | FMT_CENTER, true);
for (int i = 0; i<12; i++)
{
tmpStr.Format(_T("%d"), nTotal[i]);
xls.SetCellText(nCol+i+1, nRow, tmpStr, FMT_NUMBER1, true);
}
szWhere.Format(_T(" AND hcr_admitdate BETWEEN cast_string2timestamp('%s') AND cast_string2timestamp('%s')"), m_szFromDate, m_szToDate);
if (pMF->GetModuleID() == _T("EM"))
szWhere.AppendFormat(_T(" AND hd_enddept = '%s'"), pMF->GetCurrentDepartmentID());
szSQL.Format(_T(" SELECT sum(c1) as c1,") \
_T(" sum(c2) as c2,") \
_T(" sum(c3) as c3,") \
_T(" sum(c4) as c4,") \
_T(" sum(c5) as c5,") \
_T(" sum(c6) as c6,") \
_T(" sum(c7) as c7,") \
_T(" sum(c8) as c8,") \
_T(" sum(c9) as c9,") \
_T(" sum(c10) as c10, ") \
_T(" sum(c11) as c11, ") \
_T(" sum(c12) as c12 ") \
_T(" FROM") \
_T(" (") \
_T(" SELECT") \
_T(" case when hd_object=1 then 1 else 0 end as c1,") \
_T(" case when hd_object=2 then 1 else 0 end as c2,") \
_T(" case when hd_object=8 then 1 else 0 end as c3,") \
_T(" case when hd_object in(6, 9) then 1 else 0 end as c4,") \
_T(" case when hd_object=3 then 1 else 0 end as c5,") \
_T(" case when hd_object=7 then 1 else 0 end as c6,") \
_T(" case when hd_object=4 then 1 else 0 end as c7,") \
_T(" case when hd_object=5 then 1 else 0 end as c8,") \
_T(" case when hd_object=10 then 1 else 0 end as c9,") \
_T(" case when hd_object=11 then 1 else 0 end as c10,") \
_T(" case when hd_object=12 then 1 else 0 end as c11,") \
_T(" 1 as c12 ") \
_T(" FROM hms_doc") \
_T(" LEFT JOIN hms_exam ON (he_docno = hd_docno AND hd_doctor = he_doctor)") \
_T(" LEFT JOIN hms_clinical_record ON(hcr_docno=hd_docno)") \
_T(" WHERE hcr_numinward > 0 %s") \
_T(" ) tbl"), szWhere);
rs.ExecSQL(szSQL);
_fmsg(_T("%s"), szSQL);
if (!rs.IsEOF()){
nRow++;
xls.SetCellText(nCol, nRow, _T("V\xE0o vi\x1EC7n"), FMT_TEXT | FMT_CENTER, true);
for (int i = 0; i< 12; i++)
{
szTemp.Format(_T("c%d"), i+1);
rs.GetValue(szTemp, tmpStr);
xls.SetCellText(nCol+i+1, nRow, tmpStr, FMT_NUMBER1, true);
}
}
else
{
ShowMessage(150, MB_ICONSTOP);
return;
}
xls.Save(_T("Exports\\Bao Cao Tong Hop Tuan C1_1.xls"));
}
/*void CMAInwardExportSheetList::OnStockAddNew(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
} */
void CMAInwardExportSheetList::OnPrintPreviewSelect(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CString szSQL, tmpStr, szSysDate, szRptName, szOldType, szNewType, szOldDept, szNewDept;
CRecord rs(&pMF->m_db);
szSQL = GetQueryString();
int nIdx = 0;
double nAmount = 0;
long double nGrpTotal = 0, nTypeTotal = 0;
int nCount = rs.ExecSQL(szSQL);
if (nCount <= 0)
{
ShowMessage(150, MB_ICONSTOP);
return;
}
szRptName.Format(_T("Reports/HMS/PMS_BANGKEPHIEULINH.RPT"));
if (!rpt.Init(szRptName))
return;
rpt.GetReportHeader()->SetValue(_T("HealthService"), pMF->m_szHealthService);
rpt.GetReportHeader()->SetValue(_T("HospitalName"), pMF->m_szHospitalName);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
if (!m_szStockKey.IsEmpty())
rpt.GetReportHeader()->SetValue(_T("StockName"), m_wndStock.GetCurrent(1));
CReportSection *rptDetail;
szNewType = _T("XXX");
szNewDept = _T("XX");
while (!rs.IsEOF()){
rs.GetValue(_T("doc_type"), szNewType);
rs.GetValue(_T("department_to"), szNewDept);
if (szOldType != szNewType)
{
if (nGrpTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->GetItem(_T("TotalGroup"))->SetItalic(true);
rptDetail->GetItem(_T("TotalGroup"))->SetBold(false);
rptDetail->GetItem(_T("s7"))->SetItalic(true);
rptDetail->GetItem(_T("s7"))->SetBold(false);
tmpStr.Format(_T("%.2f"), nGrpTotal);
rptDetail->SetValue(_T("s7"), tmpStr);
nTypeTotal += nGrpTotal;
nGrpTotal = 0;
}
if (nTypeTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
tmpStr.Format(_T("%.2f"), nTypeTotal);
rptDetail->SetValue(_T("s7"), tmpStr);
nTypeTotal = 0;
}
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
rptDetail->SetValue(_T("GroupName"), rs.GetValue(_T("doc_typename")));
szOldType = szNewType;
szOldDept.Empty();
}
if (szOldDept != szNewDept)
{
if (nGrpTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->GetItem(_T("TotalGroup"))->SetItalic(true);
rptDetail->GetItem(_T("TotalGroup"))->SetBold(false);
rptDetail->GetItem(_T("s7"))->SetItalic(true);
rptDetail->GetItem(_T("s7"))->SetBold(false);
tmpStr.Format(_T("%.2f"), nGrpTotal);
rptDetail->SetValue(_T("s7"), tmpStr);
nTypeTotal += nGrpTotal;
nGrpTotal = 0;
}
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
rptDetail->GetItem(_T("GroupName"))->SetItalic(true);
rptDetail->GetItem(_T("GroupName"))->SetBold(false);
rptDetail->SetValue(_T("GroupName"), pMF->GetDepartmentName(rs.GetValue(_T("department_to"))));
szOldDept = szNewDept;
}
rptDetail = rpt.AddDetail();
nIdx++;
tmpStr.Format(_T("%d"), nIdx);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("order_no"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rs.GetValue(_T("approval_date"), tmpStr);
rptDetail->SetValue(_T("3"), CDate::Convert(tmpStr, yyyymmdd, ddmmyyyy));
tmpStr.Empty();
rs.GetValue(_T("descr"), tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rs.GetValue(_T("doc_typename"), tmpStr);
rptDetail->SetValue(_T("6"), tmpStr);
rs.GetValue(_T("amount"), nAmount);
nGrpTotal += nAmount;
FormatCurrency(nAmount, tmpStr);
rptDetail->SetValue(_T("7"), tmpStr);
rs.MoveNext();
}
if (nGrpTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->GetItem(_T("TotalGroup"))->SetItalic(true);
rptDetail->GetItem(_T("TotalGroup"))->SetBold(false);
rptDetail->GetItem(_T("s7"))->SetItalic(true);
rptDetail->GetItem(_T("s7"))->SetBold(false);
tmpStr.Format(_T("%.2f"), nGrpTotal);
rptDetail->SetValue(_T("s7"), tmpStr);
nTypeTotal += nGrpTotal;
}
if (nTypeTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
tmpStr.Format(_T("%.2f"), nTypeTotal);
rptDetail->SetValue(_T("s7"), tmpStr);
}
szSysDate = pMF->GetSysDate();
tmpStr.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")), szSysDate.Right(2), szSysDate.Mid(5, 2), szSysDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), tmpStr);
rpt.PrintPreview();
}
void CEMStatisticsMajorDiseasesReport::OnExportSelect(){
_debug(_T("%s"), CString(typeid(this).name()));
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CRecord rs(&pMF->m_db);
CString szSQL, szTemp, tmpStr;
CExcel xls;
szSQL = GetQueryString();
BeginWaitCursor();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
ShowMessage(150, MB_ICONSTOP);
return;
}
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 7);
xls.SetColumnWidth(1, 10);
xls.SetColumnWidth(2, 78);
xls.SetColumnWidth(3, 12);
int nRow = 0, nCol = 0;
xls.SetCellMergedColumns(nCol, nRow + 2, 4);
xls.SetCellText(nCol+2, nRow, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol+2, nRow + 1, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellMergedColumns(nCol, nRow + 2, 4);
xls.SetCellMergedColumns(nCol, nRow + 3, 4);
xls.SetCellText(nCol, nRow + 2, _T("TH\x1ED0NG K\xCA M\x1EB6T \x42\x1EC6NH \x43H\xCDNH"), FMT_TEXT | FMT_CENTER, true, 13);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x110\x1EBFn ng\xE0y %s"),
CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss),
CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
xls.SetCellText(nCol, nRow + 3, tmpStr, FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol, nRow + 4, _T("STT"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 1, nRow + 4, _T("M\xE3 \x62\x1EC7nh"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 2, nRow + 4, _T("T\xEAn m\x1EB7t \x62\x1EC7nh"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 3, nRow + 4, _T("S\x1ED1 l\x1B0\x1EE3ng"), FMT_TEXT | FMT_CENTER, true, 11);
nRow += 5;
int nIndex = 1;
long double nTotal = 0.0;
while (!rs.IsEOF())
{
szTemp.Format(_T("%d"), nIndex);
xls.SetCellText(nCol, nRow, szTemp, FMT_INTEGER);
szTemp = rs.GetValue(_T("hi_icd"));
xls.SetCellText(nCol + 1, nRow, szTemp, FMT_TEXT);
szTemp = rs.GetValue(_T("ICDName"));
xls.SetCellText(nCol + 2, nRow, szTemp, FMT_TEXT);
szTemp = rs.GetValue(_T("total"));
nTotal += ToDouble(szTemp);
xls.SetCellText(nCol + 3, nRow, szTemp, FMT_INTEGER);
nIndex++;
nRow++;
rs.MoveNext();
}
xls.SetCellMergedColumns(nCol, nRow, 3);
xls.SetCellText(nCol, nRow, _T("T\x1ED5ng \x63\x1ED9ng"), FMT_TEXT | FMT_CENTER, true, 12);
xls.SetCellText(nCol + 3, nRow, double2str(nTotal), FMT_NUMBER1, true, 12 );
EndWaitCursor();
xls.Save(_T("Exports\\THONG KE MAT BENH CHINH.XLS"));
}
void CEMWeekSynthesisReport::OnPrintSelect(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szCol, szDate, szWhere;
int nIdx = 1, nTemp = 0;
int nTotal[12];
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
ShowMessage(150, MB_ICONSTOP);
return;
}
if (!rpt.Init(_T("Reports\\HMS\\HE_BAOCAOTONGHOPTUAN.RPT")))
return;
rpt.GetReportHeader()->SetValue(_T("HEALTHSERVICE"), pMF->m_CompanyInfo.sc_pname);
rpt.GetReportHeader()->SetValue(_T("HOSPITALNAME"), pMF->m_CompanyInfo.sc_name);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
CReportSection* rptDetail;
for (int i = 0; i < 12; i++)
nTotal[i] = 0;
while (!rs.IsEOF())
{
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIdx++);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("roomid"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
for (int i = 0; i < 12; i++)
{
szCol.Format(_T("c%d"), i+1);
rs.GetValue(szCol, nTemp);
//FormatCurrency(nTemp, tmpStr);
szCol.Format(_T("%d"), i+3);
rptDetail->SetValue(szCol, int2str(nTemp));
nTotal[i] += nTemp;
}
rs.MoveNext();
}
rptDetail = rpt.GetReportFooter();
for (int i = 0; i < 12; i++)
{
szCol.Format(_T("s%d"), i+3);
rptDetail->SetValue(szCol, int2str(nTotal[i]));
}
szWhere.Format(_T(" AND hcr_admitdate BETWEEN cast_string2timestamp('%s') AND cast_string2timestamp('%s')"), m_szFromDate, m_szToDate);
if (pMF->GetModuleID() == _T("EM"))
szWhere.AppendFormat(_T(" AND hd_enddept = '%s'"), pMF->GetCurrentDepartmentID());
szSQL.Format(_T(" SELECT sum(c1) as c1,") \
_T(" sum(c2) as c2,") \
_T(" sum(c3) as c3,") \
_T(" sum(c4) as c4,") \
_T(" sum(c5) as c5,") \
_T(" sum(c6) as c6,") \
_T(" sum(c7) as c7,") \
_T(" sum(c8) as c8,") \
_T(" sum(c9) as c9,") \
_T(" sum(c10) as c10, ") \
_T(" sum(c11) as c11, ") \
_T(" sum(c12) as c12 ") \
_T(" FROM") \
_T(" (") \
_T(" SELECT") \
_T(" case when hd_object=1 then 1 else 0 end as c1,") \
_T(" case when hd_object=2 then 1 else 0 end as c2,") \
_T(" case when hd_object=8 then 1 else 0 end as c3,") \
_T(" case when hd_object in(6, 9) then 1 else 0 end as c4,") \
_T(" case when hd_object=3 then 1 else 0 end as c5,") \
_T(" case when hd_object=7 then 1 else 0 end as c6,") \
_T(" case when hd_object=4 then 1 else 0 end as c7,") \
_T(" case when hd_object=5 then 1 else 0 end as c8,") \
_T(" case when hd_object=10 then 1 else 0 end as c9,") \
_T(" case when hd_object=11 then 1 else 0 end as c10,") \
_T(" case when hd_object=12 then 1 else 0 end as c11,") \
_T(" 1 as c12 ") \
_T(" FROM hms_doc") \
_T(" LEFT JOIN hms_exam ON(he_docno=hd_docno AND he_doctor = hd_doctor)") \
_T(" LEFT JOIN hms_clinical_record ON (hcr_docno = hd_docno)") \
_T(" WHERE hcr_numinward > 0 %s") \
_T(" ) tbl"), szWhere);
rs.ExecSQL(szSQL);
_fmsg(_T("%s"), szSQL);
if (!rs.IsEOF()){
for (int i = 0; i< 12; i++)
{
szCol.Format(_T("c%d"), i+1);
rs.GetValue(szCol, nTemp);
//FormatCurrency(nTemp, tmpStr);
szCol.Format(_T("v%d"), i+3);
rptDetail->SetValue(szCol, int2str(nTemp));
}
}
else
{
ShowMessage(150, MB_ICONSTOP);
return;
}
szDate = pMF->GetSysDate();
tmpStr.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")), szDate.Right(2), szDate.Mid(5, 2), szDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), tmpStr);
rpt.PrintPreview();
}
/*void CEMOperationFosteringListC12::OnObjectAddNew(){
CMainFrame_E10 *pMF = (CMainFrame_E10 *) AfxGetMainWnd();
} */
void CEMOperationFosteringListC12::OnPrintPreviewSelect(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CReportSection* rptDetail = NULL, *rptFooter = NULL;
CString szSQL, tmpStr, tmpStr2, szDate, szObjects;
double nTmp = 0, nAmt = 0, nType3 = 0, nOldDoc = 0, nNewDoc = 0;
int nCount=0;
CRecord rs(&pMF->m_db);
int nIdx = 1;
if (!rpt.Init(_T("Reports\\HMS\\BAO CAO BDPT C12.RPT")))
return;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
return;
}
rpt.GetReportHeader()->SetValue(_T("HEALTHSERVICE"), pMF->m_szHealthService);
rpt.GetReportHeader()->SetValue(_T("HOSPITALNAME"), pMF->m_szHospitalName);
for (int i = 0; i < m_wndObject.GetItemCount(); i++)
{
if (m_wndObject.GetCheck(i))
{
m_wndObject.SetCurSel(i);
if (!szObjects.IsEmpty())
szObjects += _T(", ");
szObjects += m_wndObject.GetCurrent(1);
}
}
if (!szObjects.IsEmpty())
rpt.GetReportHeader()->SetValue(_T("Object"), szObjects);
else
rpt.GetReportHeader()->SetValue(_T("Object"), _T("To\xE0n \x62\x1ED9"));
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDate::Convert(m_szFromDate, yyyymmdd, ddmmyyyy), CDate::Convert(m_szToDate, yyyymmdd, ddmmyyyy));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
while (!rs.IsEOF())
{
rptDetail = rpt.AddDetail();
rptDetail->SetValue(_T("1"), int2str(nIdx++));
rptDetail->SetValue(_T("2"), rs.GetValue(_T("patname")));
rs.GetValue(_T("doc_no"), nNewDoc);
if (nNewDoc != nOldDoc)
{
nCount++;
nOldDoc = nNewDoc;
}
rptDetail->SetValue(_T("3"), rs.GetValue(_T("doc_no")));
if(rs.GetValue(_T("pobject")) == 'I')
{
rptDetail->SetValue(_T("11"), rs.GetValue(_T("cardno")));
}
else if(rs.GetValue(_T("pobject")) == 'D')
{
rptDetail->SetValue(_T("11"), rs.GetValue(_T("rank")));
}
rptDetail->SetValue(_T("4"), rs.GetValue(_T("ptname")));
rptDetail->SetValue(_T("5"), rs.GetValue(_T("ptlevel")));
nType3++;
rptDetail->SetValue(_T("6"), rs.GetValue(_T("thefirst")));
rptDetail->SetValue(_T("7"), rs.GetValue(_T("thesecond")));
rptDetail->SetValue(_T("8"), rs.GetValue(_T("assist")));
rs.GetValue(_T("ptcost"), nTmp);
nAmt += nTmp;
rptDetail->SetValue(_T("9"), double2str(nTmp));
rs.MoveNext();
}
szDate = pMF->GetSysDate();
rptFooter = rpt.GetReportFooter();
tmpStr.Format(rptFooter->GetValue(_T("PrintDate")), szDate.Right(2), szDate.Mid(5, 2), szDate.Left(4));
rptFooter->SetValue(_T("PrintDate"), tmpStr);
rptFooter->SetValue(_T("10"), double2str(nAmt));
rptFooter->SetValue(_T("14"), double2str(nType3));
rptFooter->SetValue(_T("15"), _T("24000"));
rptFooter->SetValue(_T("16"), double2str(nType3*24000));
rptFooter->SetValue(_T("TotalPatient"), int2str(nCount));
rptFooter->SetValue(_T("TotalItem"), double2str(nType3));
rptFooter->SetValue(_T("TotalAmount"), double2str(nAmt));
tmpStr2.Format(_T("%f"), nAmt);
MoneyToString(tmpStr2, tmpStr);
tmpStr += _T(" \x111\x1ED3ng.");
rptFooter->SetValue(_T("SumInWord"), tmpStr);
rpt.PrintPreview();
}
void URL::ConstructURL() const
{
url = "";
// Append the protocol.
if (!protocol.Empty() && !host.Empty())
{
url = protocol;
url.Append("://");
}
// Append login and password
if (!login.Empty())
{
url.Append( login );
if (!password.Empty())
{
url.Append( ":" );
url.Append( password );
}
url.Append( "@" );
}
ROCKET_ASSERTMSG( password.Empty() || ( !password.Empty() && !login.Empty() ), "Can't have a password without a login!" );
// Append the host.
url += host;
// Only check ports if there is some host/protocol part
if ( !url.Empty() )
{
if (port > 0)
{
ROCKET_ASSERTMSG( !host.Empty(), "Can't have a port without a host!" );
char port_string[16];
sprintf(port_string, ":%d/", port);
url.Append(port_string);
}
else
{
url.Append("/");
}
}
// Append the path.
if (!path.Empty())
{
url += path;
}
// Append the file name.
url += file_name;
// Append the extension.
if (!extension.Empty())
{
url.Append(".");
url += extension;
}
// Append parameters
if (!parameters.empty())
{
url += "?";
url += GetQueryString();
}
url_dirty = false;
}
/*void CFMTempSendPatientListByDay::OnStaffAddNew(){
CMainFrame *pMF = (CMainFrame*) AfxGetMainWnd();
} */
void CFMTempSendPatientListByDay::OnPrintSelect(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(TRUE);
CReport rpt;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szTemp;
CString szSysDate;
szSQL = GetQueryString();
BeginWaitCursor();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
ShowMessageBox(_T("No Data"), MB_OK | MB_ICONERROR);
return;
}
if (!rpt.Init(_T("Reports/HMS/HF_DANHSACHBENHNHANTAMGUI_1.RPT")))
return;
StringUpper(pMF->m_CompanyInfo.sc_pname, tmpStr);
rpt.GetReportHeader()->SetValue(_T("HEALTHSERVICE"), tmpStr);
StringUpper(pMF->m_CompanyInfo.sc_name, tmpStr);
rpt.GetReportHeader()->SetValue(_T("HOSPITALNAME"), tmpStr);
rpt.GetReportHeader()->SetValue(_T("Department"), pMF->GetCurrentDepartmentName());
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")),
CDateTime::Convert(m_szFromDate, yyyymmdd | hhmm, ddmmyyyy | hhmm),
CDateTime::Convert(m_szToDate, yyyymmdd | hhmm, ddmmyyyy | hhmm));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
CReportSection *rptDetail;
CString szOldLine, szNewLine;
CString szObjectNames;
long double nGroupTotal = 0, nTotal = 0;
double nCost;
int nIndex = 1;
szObjectNames.Empty();
CStringArray strArr;
bool bCheckServ = false, bCheckIns = false;
strArr.Add(_T("\x64\x1ECB\x63h v\x1EE5"));
strArr.Add(_T("\x42\x110 - \x43S - \x42H"));
while (!rs.IsEOF())
{
rs.GetValue(_T("receiptdate"), tmpStr);
szNewLine = CDate::Convert(tmpStr, yyyymmdd, ddmmyyyy);
if (!szNewLine.IsEmpty() && szNewLine != szOldLine)
{
if (nGroupTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->SetValue(_T("TotalGroup"), _T("\x43\x1ED9ng ng\xE0y :"));
FormatCurrency(nGroupTotal, tmpStr);
rptDetail->SetValue(_T("TotalAmount"), tmpStr);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
szOldLine = szNewLine;
}
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIndex++);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("pname"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rs.GetValue(_T("docno"), tmpStr);
rptDetail->SetValue(_T("3"), tmpStr);
rs.GetValue(_T("recordno"), tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rs.GetValue(_T("dept"), tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
if (nGroupTotal == 0)
{
rs.GetValue(_T("receiptdate"), tmpStr);
rptDetail->SetValue(_T("6"), CDate::Convert(tmpStr, yyyymmdd, ddmmyyyy));
}
rs.GetValue(_T("deposit"), nCost);
nGroupTotal += nCost;
FormatCurrency(nCost, tmpStr);
rptDetail->SetValue(_T("7"), tmpStr);
rs.MoveNext();
}
if (nGroupTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->SetValue(_T("TotalGroup"), _T("\x43\x1ED9ng kho\x61"));
FormatCurrency(nGroupTotal, tmpStr);
rptDetail->SetValue(_T("TotalAmount"), tmpStr);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
if (nTotal > 0)
{
FormatCurrency(nTotal, tmpStr);
rpt.GetReportFooter()->SetValue(_T("Total"), tmpStr + _T(" \x111\x1ED3ng"));
CString szMoney;
tmpStr.Replace(_T("."), _T(""));
MoneyToString(tmpStr, szMoney);
rpt.GetReportFooter()->SetValue(_T("SumInWords"), szMoney + _T(" \x111\x1ED3ng"));
}
szSysDate = pMF->GetSysDate();
tmpStr.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")),
szSysDate.Right(2), szSysDate.Mid(5, 2), szSysDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), tmpStr);
EndWaitCursor();
rpt.PrintPreview();
}
/*void CFMUnlockPatientList::OnClerkAddNew(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
} */
void CFMUnlockPatientList::OnPrintPreviewSelect()
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CRecord rs(&pMF->m_db);
CRecord rss(&pMF->m_db);
CString szSQL, tmpStr, szSysDate;
CString szTemp, szClass;
int nIdx = 0;
double nAmount = 0;
long double nTotal = 0;
long double nGroupTotal = 0;
m_nTotal = 0;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
szSQL = GetDepositString();
rss.ExecSQL(szSQL);
if (rs.GetRecordCount() + rss.GetRecordCount() <= 0)
{
ShowMessageBox(_T("No Data"), MB_OK | MB_ICONERROR);
return;
}
if (!rpt.Init(_T("Reports/HMS/HF_DANHSACHBNCHUAKHOASO.RPT")))
return;
rpt.GetReportHeader()->SetValue(_T("HealthService"), pMF->m_CompanyInfo.sc_pname);
rpt.GetReportHeader()->SetValue(_T("HospitalName"), pMF->m_CompanyInfo.sc_name);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")),
CDateTime::Convert(m_szFromDate, yyyymmdd | hhmm, ddmmyyyy | hhmm),
CDateTime::Convert(m_szToDate, yyyymmdd | hhmm, ddmmyyyy | hhmm));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
CReportSection *rptDetail;
CString szGroup[] = {_T("I"), _T("II"), _T("III"), _T("IV")};
int nIndex = 0;
while (!rs.IsEOF())
{
if (szClass != rs.GetValue(_T("fclass")))
{
if (nGroupTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
TranslateString(_T("Total Amt"), tmpStr);
tmpStr.AppendFormat(_T(" %s"), szGroup[nIndex++]);
rptDetail->SetValue(_T("GroupName"), tmpStr);
//tmpStr.Format(_T("%.2lf"), nGroupTotal);
FormatCurrency(nGroupTotal, tmpStr);
rptDetail->SetValue(_T("SumGroupName"), tmpStr);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
nIdx = 1;
rs.GetValue(_T("fclass"), szClass);
if (szClass == _T("NO"))
{
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
rptDetail->SetValue(_T("GroupName"), _T("\x43\xE1\x63 kho\x61 n\x1ED9i tr\xFA"));
}
}
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIdx++);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("pname"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rs.GetValue(_T("docno"), tmpStr);
rptDetail->SetValue(_T("3"), tmpStr);
rs.GetValue(_T("deptid"), tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rs.GetValue(_T("staff"), tmpStr);
rptDetail->SetValue(_T("6"), tmpStr);
rs.GetValue(_T("amount"), nAmount);
nGroupTotal += nAmount;
FormatCurrency(nAmount, tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
rs.MoveNext();
}
if (nGroupTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
TranslateString(_T("Total Amt"), tmpStr);
tmpStr.AppendFormat(_T(" %s"), szGroup[nIndex++]);
rptDetail->SetValue(_T("GroupName"), tmpStr);
//tmpStr.Format(_T("%.2lf"), nGroupTotal);
FormatCurrency(nGroupTotal, tmpStr);
rptDetail->SetValue(_T("SumGroupName"), tmpStr);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
//szSQL = GetDepositString();
//rs.ExecSQL(szSQL);
if (!rss.IsEOF())
{
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
rptDetail->SetValue(_T("GroupName"), _T("Thu t\x1EA1m g\x1EEDi"));
nIdx = 1;
while (!rss.IsEOF())
{
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIdx++);
rptDetail->SetValue(_T("1"), tmpStr);
rss.GetValue(_T("pname"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rss.GetValue(_T("docno"), tmpStr);
rptDetail->SetValue(_T("3"), tmpStr);
rss.GetValue(_T("deptid"), tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rss.GetValue(_T("staff"), tmpStr);
rptDetail->SetValue(_T("6"), tmpStr);
rss.GetValue(_T("amount"), nAmount);
nGroupTotal += nAmount;
FormatCurrency(nAmount, tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
rss.MoveNext();
}
}
if (nGroupTotal > 0)
{
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(1));
TranslateString(_T("Total Amt"), tmpStr);
tmpStr.AppendFormat(_T(" %s"), szGroup[nIndex++]);
rptDetail->SetValue(_T("GroupName"), tmpStr);
//tmpStr.Format(_T("%.2lf"), nGroupTotal);
FormatCurrency(nGroupTotal, tmpStr);
rptDetail->SetValue(_T("SumGroupName"), tmpStr);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
//rptDetail = rpt.AddDetail(rpt.GetReportFooter());
tmpStr.Format(_T("%s"), _T("T\x1ED5ng \x63\x1ED9ng"));
rpt.GetReportFooter()->SetValue(_T("TotalAmount"), tmpStr);
nTotal += 0.5;
long double nTemp = floor(nTotal);
m_nTotal = nTemp;
FormatCurrency(nTemp, tmpStr);
rpt.GetReportFooter()->SetValue(_T("SumTotalAmount"), tmpStr);
tmpStr.Format(_T("%.0lf"), nTemp);
CString szMoney = tmpStr;
MoneyToString(szMoney, tmpStr);
rpt.GetReportFooter()->SetValue(_T("SumInWord"), tmpStr);
szSysDate = pMF->GetSysDate();
tmpStr.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")),
szSysDate.Right(2), szSysDate.Mid(5, 2), szSysDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), tmpStr);
rpt.PrintPreview();
}
void CEMQtyAtExam::OnExportSelect(){
_debug(_T("%s"), CString(typeid(this).name()));
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CRecord rs(&pMF->m_db);
CString szSQL, szTemp, tmpStr;
CExcel xls;
BeginWaitCursor();
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
_fmsg(_T("%s"), szSQL);
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 7);
xls.SetColumnWidth(1, 30);
xls.SetColumnWidth(2, 15 );
xls.SetColumnWidth(3, 15);
xls.SetColumnWidth(4, 15);
xls.SetColumnWidth(5, 15);
int nRow = 0, nCol = 0;
xls.SetCellMergedColumns(nCol, nRow, 4);
xls.SetCellMergedColumns(nCol, nRow + 1, 4);
xls.SetCellText(nCol, nRow, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol, nRow + 1, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellMergedColumns(nCol, nRow + 2, 4);
xls.SetCellMergedColumns(nCol, nRow + 3, 4);
xls.SetCellText(nCol, nRow + 2, _T("KH\xC1M T\x1EA0I \x43\xC1\x43 PH\xD2NG TH\x45O \x42\xC1\x43 S\x1EF8"), FMT_TEXT | FMT_CENTER, true, 13);
tmpStr.Format(_T("T\x1EEB ng\xE0y: %s \x110\x1EBFn ng\xE0y: %s"),
CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss),
CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
xls.SetCellText(nCol, nRow + 3, tmpStr, FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol, nRow + 4, _T("STT"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 1, nRow + 4, _T("\x42\xE1\x63 s\x1EF9"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 2, nRow + 4, _T("Ph\xF2ng kh\xE1m"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 3, nRow + 4, _T("Qu\xE2n"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 4, nRow + 4, _T("H\x1B0u"), FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 5, nRow + 4, _T("T\x1ED5ng"), FMT_TEXT | FMT_CENTER, true, 11);
nRow += 5;
int nIndex = 1;
int nTotal1 = 0,nTotal2 = 0, nTotal3 = 0 ;
while (!rs.IsEOF())
{
szTemp.Format(_T("%d"), nIndex);
xls.SetCellText(nCol, nRow, szTemp, FMT_INTEGER);
szTemp = rs.GetValue(_T("doctorname"));
xls.SetCellText(nCol + 1, nRow, szTemp, FMT_TEXT);
szTemp = rs.GetValue(_T("bhquan"));
nTotal1 += ToInt(szTemp);
xls.SetCellText(nCol + 3, nRow, szTemp, FMT_NUMBER1);
szTemp = rs.GetValue(_T("bhhuu"));
nTotal2 += ToInt(szTemp);
xls.SetCellText(nCol + 4, nRow, szTemp, FMT_NUMBER1);
szTemp = rs.GetValue(_T("tongso"));
nTotal3 += ToInt(szTemp);
xls.SetCellText(nCol + 5, nRow, szTemp, FMT_NUMBER1);
nIndex++;
nRow++;
rs.MoveNext();
}
xls.SetCellMergedColumns(nCol, nRow, 2);
xls.SetCellText(nCol, nRow, _T("T\x1ED5ng \x63\x1ED9ng"), FMT_TEXT | FMT_CENTER, true, 12);
xls.SetCellText(nCol + 3, nRow, int2str(nTotal1), FMT_NUMBER1, true, 12 );
xls.SetCellText(nCol + 4, nRow, int2str(nTotal2), FMT_NUMBER1, true, 12 );
xls.SetCellText(nCol + 5, nRow, int2str(nTotal3), FMT_NUMBER1, true, 12 );
EndWaitCursor();
xls.Save(_T("Exports\\Tinh hinh kham benh theo bac sy.xls"));
}
/*void CEMQtyAtExam::OnDoctorAddNew(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
} */
void CEMQtyAtExam::OnPrintSelect()
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CString szSQL, szTemp, tmpStr;
CRecord rs(&pMF->m_db);
szSQL = GetQueryString();
BeginWaitCursor();
rs.ExecSQL(szSQL);
_fmsg(_T("%s"), szSQL);
if (rs.IsEOF())
{
ShowMessage(150, MB_ICONSTOP);
return;
}
if(!rpt.Init(_T("Reports/HMS/HE_SOLUONGKHAMTAICACPHONG.RPT")) )
return ;
rpt.GetReportHeader()->SetValue(_T("HeathService"), pMF->m_CompanyInfo.sc_pname);
rpt.GetReportHeader()->SetValue(_T("HospitalName"), pMF->m_CompanyInfo.sc_name);
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
int nIndex = 1;
CReportSection* rptDetail;
int nTotal1 = 0, nTotal2 = 0, nTotal3 = 0;
while(!rs.IsEOF())
{
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIndex++);
rptDetail->SetValue(_T("1"), tmpStr);
szTemp = rs.GetValue(_T("doctorname"));
rptDetail->SetValue(_T("2"), szTemp);
szTemp = rs.GetValue(_T("bhquan"));
nTotal1 += ToInt(szTemp);
rptDetail->SetValue(_T("3"), szTemp);
szTemp = rs.GetValue(_T("bhhuu"));
nTotal2 += ToInt(szTemp);
rptDetail->SetValue(_T("4"), szTemp);
szTemp = rs.GetValue(_T("tongso"));
nTotal3 += ToInt(szTemp);
rptDetail->SetValue(_T("5"), szTemp);
rs.MoveNext();
}
rpt.GetReportFooter()->SetValue(_T("s3"), nTotal1);
rpt.GetReportFooter()->SetValue(_T("s4"), nTotal2);
rpt.GetReportFooter()->SetValue(_T("s5"), nTotal3);
CString szDate;
tmpStr = pMF->GetSysDate();
szDate.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")), tmpStr.Mid(8, 2), tmpStr.Mid(5, 2), tmpStr.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), szDate);
rpt.PrintPreview();
EndWaitCursor();
}
void CEMGeneralSoldierExamination::OnExportSelect()
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
CRecord rs(&pMF->m_db);
CString szSQL;
CString tmpStr, szTemp;
UpdateData(TRUE);
BeginWaitCursor();
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
ShowMessageBox(_T("No Data"), MB_ICONERROR | MB_OK);
return;
}
CExcel xls;
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 4);
xls.SetColumnWidth(1, 23);
xls.SetColumnWidth(2, 7);
xls.SetColumnWidth(3, 10);
xls.SetColumnWidth(4, 7);
xls.SetColumnWidth(5, 10);
xls.SetColumnWidth(6, 7);
xls.SetColumnWidth(7, 10);
xls.SetColumnWidth(8, 7);
xls.SetColumnWidth(9, 10);
xls.SetColumnWidth(10, 7);
xls.SetColumnWidth(11, 10);
xls.SetColumnWidth(12, 7);
xls.SetColumnWidth(13, 10);
int nRow = 1;
int nCol = 0;
xls.SetRowHeight(6, 20);
xls.SetRowHeight(7, 36);
xls.SetRowHeight(8, 36);
xls.SetCellMergedColumns(0, 1, 4);
xls.SetCellMergedColumns(0, 2, 4);
xls.SetCellText(0, 1, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(0, 2, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true);
xls.SetCellMergedColumns(nCol, nRow + 3, 16);
xls.SetCellMergedColumns(nCol, nRow + 4, 16);
xls.SetCellText(nCol, nRow + 3, _T("T\xECnh h\xECnh kh\xE1m, \x63h\x1EEF\x61 \x62\x1EC7nh \x63\x1EE7\x61 qu\xE2n nh\xE2n th\x61m gi\x61 \x110\x1EC1 \xE1n th\xED \x111i\x1EC3m \x62\x1EA3o hi\x1EC3m y t\x1EBF qu\xE2n nh\xE2n"),
FMT_TEXT | FMT_CENTER, true, 16, 0);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"),
CDateTime::Convert(m_szFromDate, yyyymmdd | hhmm, ddmmyyyy | hhmm),
CDateTime::Convert(m_szToDate, yyyymmdd | hhmm, ddmmyyyy | hhmm));
xls.SetCellText(nCol, nRow + 4, tmpStr, FMT_TEXT | FMT_CENTER, true, 12, 0);
xls.SetCellMergedRows(nCol, nRow + 5, 3);
xls.SetCellText(nCol, nRow + 5, _T("TT"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
xls.SetCellMergedRows(nCol + 1, nRow + 5, 3);
xls.SetCellText(nCol + 1, nRow + 5, _T("\x110\x1A1n v\x1ECB th\x61m gi\x61 \x110\x1EC1 \xE1n"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
xls.SetCellMergedColumns(nCol + 2, nRow + 5, 6);
xls.SetCellText(nCol + 2, nRow + 5, _T("K\x43\x42 ngo\x1EA1i tr\xFA"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
xls.SetCellMergedColumns(nCol + 2, nRow + 6, 2);
xls.SetCellText(nCol + 2, nRow + 6, _T("\x43hi ph\xED t\x1EEB NSQP"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 2, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 3, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellMergedColumns(nCol + 4, nRow + 6, 2);
xls.SetCellText(nCol + 4, nRow + 6, _T("\x43hi ph\xED t\x1EEB qu\x1EF9 \x42HYT"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 4, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 5, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellMergedColumns(nCol + 6, nRow + 6, 2);
xls.SetCellText(nCol + 6, nRow + 6, _T("\x43\x1ED9ng"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 6, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 7, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellMergedColumns(nCol + 8, nRow + 5, 6);
xls.SetCellText(nCol + 8, nRow + 5, _T("K\x43\x42 n\x1ED9i tr\xFA"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
xls.SetCellMergedColumns(nCol + 8, nRow + 6, 2);
xls.SetCellText(nCol + 8, nRow + 6, _T("\x43hi ph\xED t\x1EEB NSQP"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 8, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 9, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellMergedColumns(nCol + 10, nRow + 6, 2);
xls.SetCellText(nCol + 10, nRow + 6, _T("\x43hi ph\xED t\x1EEB qu\x1EF9 \x42HYT"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 10, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 11, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellMergedColumns(nCol + 12, nRow + 6, 2);
xls.SetCellText(nCol + 12, nRow + 6, _T("\x43\x1ED9ng"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 12, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 13, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellMergedColumns(nCol + 14, nRow + 5, 2);
xls.SetCellMergedRows(nCol + 14, nRow + 5, 2);
xls.SetCellText(nCol + 14, nRow + 5, _T("T\x1ED5ng \x63\x1ED9ng"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 14, nRow + 7, _T("S\x1ED1 l\x1B0\x1EE3t"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
xls.SetCellText(nCol + 15, nRow + 7, _T("S\x1ED1 ti\x1EC1n (\x111\x1ED3ng)"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, false, 11);
int nIndex = 1;
nRow = 8;
while (!rs.IsEOF())
{
nRow++;
tmpStr.Format(_T("%d"), nIndex++);
xls.SetCellText(nCol, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.GetValue(_T("workplace"), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("ngt"), tmpStr);
xls.SetCellText(nCol + 6, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.GetValue(_T("nt"), tmpStr);
xls.SetCellText(nCol + 12, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.GetValue(_T("tong"), tmpStr);
xls.SetCellText(nCol + 14, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.MoveNext();
}
EndWaitCursor();
xls.Save(_T("Exports\\THKCBQuanNhan.xls"));
}
//Bao cao tong hop su dung dich vu ky thuat theo quu ( mau 21/BHYT)
void CHMSInsuraceRepor21aDialog::ExportTonghopsudungdichvukythuatBHYT()
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CExcel xls;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szOldLine, szNewLine;
int nCol = 0, nRow = 0, j = 0, nIdx = 0, nCount = 0, nTemp = 0;
double nAmount = 0, nGrp = 0, nTotalGrp = 0, nTotal = 0;
xls.CreateSheet(1);
xls.SetWorksheet(0);
//xls.SetColumnWidth(0, 4);
xls.SetColumnWidth(1, 30);
//xls.SetColumnWidth(3, 10);
//xls.SetColumnWidth(4, 15);
//Header
xls.SetCellMergedColumns(nCol, nRow, 3);
xls.SetCellMergedColumns(nCol, nRow + 1, 3);
xls.SetCellMergedColumns(nCol, nRow + 2, 5);
xls.SetCellMergedColumns(nCol, nRow + 3, 5);
xls.SetCellText(nCol, nRow, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol, nRow + 1, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol, nRow + 2, _T("\x42\x1EA2NG TH\x1ED0NG K\xCA \x44\x41NH S\xC1\x43H \x42\x1EC6NH NH\xC2N N\x1ED8P TI\x1EC0N"), FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), CDate::Convert(m_szFromDate, yyyymmdd, ddmmyyyy), CDate::Convert(m_szToDate, yyyymmdd, ddmmyyyy));
xls.SetCellText(nCol, nRow + 3, tmpStr, FMT_TEXT | FMT_CENTER, false, 11);
//Column Header
CStringArray arrCol, arrFeeGrp, arrTitle;
arrCol.Add(_T("STT"));
arrCol.Add(_T("T\xEAn \x64\x1ECB\x63h v\x1EE5 k\x1EF9 thu\x1EADt"));
arrCol.Add(_T("S\x1ED1 l\x1B0\x1EE3ng"));
arrCol.Add(_T("\x110\x1A1n gi\xE1"));
arrCol.Add(_T("Th\xE0nh ti\x1EC1n"));
nRow = 4;
for (int i = 0; i < arrCol.GetCount(); i++)
{
xls.SetCellText(nCol+i, nRow, arrCol.GetAt(i), FMT_TEXT | FMT_CENTER, true, 10);
}
nRow = 5;
arrFeeGrp.Add(_T("Test"));arrTitle.Add(_T("A"));
arrFeeGrp.Add(_T("Diagnostic image"));arrTitle.Add(_T("B"));
arrFeeGrp.Add(_T("Visiting the function rolls"));arrTitle.Add(_T("C"));
arrFeeGrp.Add(_T("Surgery - procedures"));arrTitle.Add(_T("D"));
arrFeeGrp.Add(_T("Consumables"));arrTitle.Add(_T("E"));
arrFeeGrp.Add(_T("High-tech services"));arrTitle.Add(_T("F"));
for (int i = 0; i < arrFeeGrp.GetCount(); i++)
{
nIdx = 0;
nAmount = nGrp = nTotalGrp = 0;
j = i + 2;
szSQL = GetQueryString(j);
rs.ExecSQL(szSQL);
nCount = rs.GetRecordCount();
if (!rs.IsEOF())
{
xls.SetCellMergedColumns(nCol + 1, nRow, 4);
xls.SetCellText(nCol, nRow, arrTitle.GetAt(i), FMT_TEXT | FMT_CENTER, true, 12);
TranslateString(arrFeeGrp.GetAt(i), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT, true, 12);
nRow++;
while (!rs.IsEOF())
{
rs.GetValue(_T("groupname"), szNewLine);
if (szNewLine != szOldLine)
{
if (nGrp > 0)
{
xls.SetCellMergedColumns(nCol, nRow, 4);
TranslateString(_T("Total Child Group"), tmpStr);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT | FMT_CENTER, true, 10);
FormatCurrency(nGrp, tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_RIGHT, true, 10);
nTotalGrp += nGrp;
nRow++;
}
xls.SetCellMergedColumns(nCol + 1, nRow, 4);
xls.SetCellText(nCol + 1, nRow, szNewLine, FMT_TEXT, true, 10);
szOldLine = szNewLine;
nIdx = 0;
nGrp = 0;
nRow++;
}
nIdx++;
tmpStr.Format(_T("%d"), nIdx);
xls.SetCellText(nCol, nRow, tmpStr, FMT_INTEGER);
rs.GetValue(_T("pcmsname"), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT);
rs.GetValue(_T("soluong"), tmpStr);
xls.SetCellText(nCol + 2, nRow, tmpStr, FMT_INTEGER);
nAmount = 0;
rs.GetValue(_T("insprice"), nAmount);
FormatCurrency(nAmount, tmpStr);
xls.SetCellText(nCol + 3, nRow, tmpStr, FMT_TEXT | FMT_RIGHT);
nAmount = 0;
rs.GetValue(_T("suminsprice"), nAmount);
FormatCurrency(nAmount, tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_RIGHT);
nGrp += nAmount;
nRow++;
rs.MoveNext();
}
if (nGrp > 0)
{
xls.SetCellMergedColumns(nCol, nRow, 4);
TranslateString(_T("Total Child Group"), tmpStr);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT | FMT_CENTER, true, 10);
FormatCurrency(nGrp, tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_RIGHT, true, 10);
nTotalGrp += nGrp;
nRow++;
}
if (nTotalGrp > 0)
{
xls.SetCellMergedColumns(nCol, nRow, 4);
TranslateString(_T("Total Parent Group"), tmpStr);
xls.SetCellText(nCol, nRow, tmpStr + _T("(") + arrTitle.GetAt(i) + _T(")"), FMT_TEXT | FMT_CENTER, true, 10);
FormatCurrency(nTotalGrp, tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_RIGHT, true);
nTotal += nTotalGrp;
nRow++;
}
nTemp += nCount;
}
}
if (nTemp == 0)
{
ShowMessageBox(_T("No Data."), MB_ICONSTOP);
return;
}
if (nTotal > 0)
{
xls.SetCellMergedColumns(nCol, nRow, 4);
TranslateString(_T("Total Amount"), tmpStr);
xls.SetCellText(nCol, nRow, tmpStr + _T("(A+B+C+D+E+F)"), FMT_TEXT | FMT_CENTER, true, 10);
FormatCurrency(nTotal, tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_RIGHT, true);
nRow++;
}
xls.Save(_T("Exports\\Thong Ke Dich Vu Ky Thuat Theo Quy.xls"));
}
//Bao cao tong hop su dung dich vu ky thuat theo quu ( mau 21/BHYT)
void CHMSInsuraceRepor21aDialog::PrintTonghopsudungdichvukythuatBHYT()
{
CHMSMainFrame *pMF = (CHMSMainFrame *)AfxGetMainWnd();
UpdateData(true);
CReport rpt;
CRecord rs(&pMF->m_db);
CString tmpStr, szSQL, szDate, szMoney;
if(!rpt.Init(_T("Reports/HMS/HF_THONGKETONGHOPDICHVUKYTHUATTHEOQUY.RPT")) )
{
return;
}
StringUpper(pMF->m_CompanyInfo.sc_pname, tmpStr);
rpt.GetReportHeader()->SetValue(_T("HEALTHSERVICE"), tmpStr);
StringUpper(pMF->m_CompanyInfo.sc_name, tmpStr);
rpt.GetReportHeader()->SetValue(_T("HOSPITALNAME"), tmpStr);
rpt.GetReportHeader()->SetValue(_T("ObjectGroup"), _T(""));
tmpStr.Format(rpt.GetReportHeader()->GetValue(_T("ReportDate")), CDateTime::Convert(m_szFromDate, yyyymmdd, ddmmyyyy), CDate::Convert(m_szToDate, yyyymmdd,ddmmyyyy));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), tmpStr);
//Page Header
//Report Detail
int nIndex = 1;
CString szOldLine, szNewLine,szAmount;
CReportSection* rptDetail;
long double grpCost=0, ttlCost=0, totalCost=0;
double cost=0;
//nID = 1-PhiKB
//nID = 2-Xet nghiem
//nID = 3-CDHA
//nID = 4-TDCN
//nID = 5-PTTT
//nID = 6-VTTH
//nID = 7-Ky thuat cao
CStringArray arrFeeGrp, arrTitle;
arrFeeGrp.Add(_T("Test"));arrTitle.Add(_T("A"));
arrFeeGrp.Add(_T("Diagnostic image"));arrTitle.Add(_T("B"));
arrFeeGrp.Add(_T("Visiting the function rolls"));arrTitle.Add(_T("C"));
arrFeeGrp.Add(_T("Surgery - procedures"));arrTitle.Add(_T("D"));
arrFeeGrp.Add(_T("Consumables"));arrTitle.Add(_T("E"));
arrFeeGrp.Add(_T("High-tech services"));arrTitle.Add(_T("F"));
//if (m_bInPatient != 1)
//{
// /*Phi kham benh
//-----------------------------------------------------------------------------------------------------------------------------*/
// szSQL.Format(_T(" select hfl_name as examname,hfl_unit as unit, ") \
// _T(" sum(soluong) as soluong, ") \
// _T(" insprice,sum(soluong * insprice) as suminsprice") \
// _T(" from (") \
// _T(" select he_docno,he_examtype,hfe_invoiceno as invoiceno, ") \
// _T(" sum(1) as soluong,hfe_insprice as insprice") \
// _T(" from hms_exam ") \
// _T(" left join hms_doc on(hd_docno=he_docno) ") \
// _T(" where hd_object in('1','2') and he_payment ='P'") \
// _T(" group by he_docno,he_examtype,insprice, invoiceno") \
// _T(" ) as tb1 ") \
// _T(" left join hms_fee_invoice on(hfi_docno = he_docno and hfi_type ='P' and invoiceno = hfi_invoiceno) ") \
// _T(" left join hms_fee_list on (hfl_feeid=he_examtype)") \
// _T(" where insprice > 0 and date(hfi_recvdate) between '%s' and '%s' and hfl_inspaid ='Y'") \
// _T(" group by examname,unit, insprice,examname,hfl_unit ") \
// _T(" order by examname;"),m_szFromDate,m_szToDate);
//
// rs.ExecSQL(szSQL);
// if (!rs.IsEOF())
// {
// grpCost=ttlCost=cost=ttlCost=0;
// nIndex=1;
// rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetFaceSize(12);
// rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetBold(true);
// rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetItalic(false);
// rpt.GetGroupHeader(0)->GetItem(_T("Group"))->SetFaceSize(12);
// rpt.GetGroupHeader(0)->GetItem(_T("Group"))->SetBold(true);
// rpt.GetGroupHeader(0)->GetItem(_T("Group"))->SetItalic(false);
// rptDetail = rpt.AddDetail(rpt.GetGroupHeader(0));
// TranslateString(_T("Nh\xF3m ph\xED kh\xE1m \x62\x1EC7nh"), tmpStr);
// rptDetail->SetValue(_T("GroupName"),tmpStr );
// rptDetail->SetValue(_T("Group"),_T("E") );
//
// while(!rs.IsEOF())
// {
// rptDetail = rpt.AddDetail();
// tmpStr.Format(_T("%d"), nIndex++);
// rptDetail->SetValue(_T("1"), tmpStr);
// rs.GetValue(_T("examname"), tmpStr);
// rptDetail->SetValue(_T("2"), tmpStr);
// rs.GetValue(_T("soluong"), tmpStr);
// rptDetail->SetValue(_T("3"), tmpStr);
// rs.GetValue(_T("insprice"), cost);
// FormatCurrency(cost, tmpStr);
// rptDetail->SetValue(_T("4"), tmpStr);
// rs.GetValue(_T("suminsprice"), cost);
// grpCost += cost;
// FormatCurrency(cost, tmpStr);
// rptDetail->SetValue(_T("5"), tmpStr);
//
// rs.MoveNext();
// }
// ttlCost += grpCost;
//
//
// if(ttlCost > 0){
// CString szField, szAmount;
// TranslateString(_T("Total Amount"), szAmount);
// rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
// rptDetail->SetValue(_T("TotalGroup"), szAmount + _T("(E)"));
// FormatCurrency(ttlCost, tmpStr);
// rptDetail->SetValue(_T("s5"), tmpStr);
// totalCost+=ttlCost;
// }
// }
//}
grpCost=ttlCost=cost=ttlCost=0;
nIndex=1;
int j = 0, nCount = 0, nTemp = 0;
BeginWaitCursor();
for (int i = 0; i < arrFeeGrp.GetCount(); i++)
{
grpCost=ttlCost=cost=ttlCost=0;
nIndex=1;
j = i+2;
szSQL = GetQueryString(j);
nCount = rs.ExecSQL(szSQL);
if(!rs.IsEOF())
{
rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetFaceSize(12);
rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetBold(true);
rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetItalic(false);
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(0));
TranslateString(arrFeeGrp.GetAt(i), tmpStr);
rptDetail->SetValue(_T("GroupName"), tmpStr);
rptDetail->SetValue(_T("Group"), arrTitle.GetAt(i));
while(!rs.IsEOF())
{
rs.GetValue(_T("groupname"), szNewLine);
if(szNewLine != szOldLine && !szNewLine.IsEmpty()){
if(grpCost > 0)
{
TranslateString(_T("Total Child Group"), tmpStr);
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->SetValue(_T("TotalGroup"), tmpStr);
FormatCurrency(grpCost, tmpStr);
rptDetail->SetValue(_T("s5"), tmpStr);
ttlCost += grpCost;
nIndex=1;
grpCost = 0;
}
rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetFaceSize(10);
rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetBold(true);
rpt.GetGroupHeader(0)->GetItem(_T("GroupName"))->SetItalic(true);
rptDetail = rpt.AddDetail(rpt.GetGroupHeader(0));
rptDetail->SetValue(_T("GroupName"),szNewLine );
szOldLine = szNewLine;
}
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIndex++);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("pcmsname"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rs.GetValue(_T("soluong"), tmpStr);
rptDetail->SetValue(_T("3"), tmpStr);
rs.GetValue(_T("insprice"), cost);
FormatCurrency(cost, tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rs.GetValue(_T("suminsprice"), cost);
grpCost += cost;
FormatCurrency(cost, tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
rs.MoveNext();
}
if(grpCost > 0){
TranslateString(_T("Total Child Group"), tmpStr);
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->SetValue(_T("TotalGroup"), tmpStr);
FormatCurrency(grpCost, tmpStr);
rptDetail->SetValue(_T("s5"), tmpStr);
ttlCost += grpCost;
}
if(ttlCost > 0){
TranslateString(_T("Total Parent Group"), szAmount);
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->SetValue(_T("TotalGroup"), szAmount + _T("(") + arrTitle.GetAt(i) + _T(")"));
FormatCurrency(ttlCost, tmpStr);
rptDetail->SetValue(_T("S5"), tmpStr);
totalCost+=ttlCost;
}
nTemp += nCount;
}
}
if (nTemp == 0)
{
ShowMessageBox(_T("No Data."), MB_ICONSTOP);
return;
}
if(totalCost > 0){
TranslateString(_T("Total Amount"), szAmount);
rptDetail = rpt.AddDetail(rpt.GetGroupFooter(1));
rptDetail->SetValue(_T("TotalGroup"), szAmount + _T("(A+B+C+D+E+F)"));
FormatCurrency(totalCost, tmpStr);
rptDetail->SetValue(_T("s5"), tmpStr);
}
tmpStr = pMF->GetSysDateTime();
szDate.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")), tmpStr.Mid(8, 2), tmpStr.Mid(5, 2), tmpStr.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), szDate);
MoneyToString(szMoney, tmpStr);
rpt.GetReportFooter()->SetValue(_T("SumInWord"), tmpStr);
EndWaitCursor();
rpt.PrintPreview();
}
void CFMUnlockPatientList::OnExportSelect()
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
UpdateData(true);
CExcel xls;
CRecord rs(&pMF->m_db);
CRecord rss(&pMF->m_db);
CString szSQL, tmpStr, szTemp;
CString szClass;
int nCol = 0, nRow = 0, nIdx = 0;
double nAmount = 0;
long double nTotal = 0;
long double nGroupTotal = 0;
m_nTotal = 0;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
szSQL = GetDepositString();
rss.ExecSQL(szSQL);
if (rs.GetRecordCount() + rss.GetRecordCount() <= 0)
{
ShowMessageBox(_T("No Data"), MB_OK | MB_ICONERROR);
return;
}
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 4);
xls.SetColumnWidth(1, 25);
xls.SetColumnWidth(2, 9);
xls.SetColumnWidth(3, 8);
xls.SetColumnWidth(4, 18);
xls.SetColumnWidth(5, 15);
xls.SetRowHeight(4, 40);
//Header
xls.SetCellMergedColumns(nCol, nRow, 3);
xls.SetCellMergedColumns(nCol, nRow + 1, 3);
xls.SetCellMergedColumns(nCol + 3, nRow, 4);
xls.SetCellMergedColumns(nCol + 3, nRow + 1, 4);
xls.SetCellMergedColumns(nCol, nRow + 2, 6);
xls.SetCellMergedColumns(nCol, nRow + 3, 6);
xls.SetCellText(nCol, nRow, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol, nRow + 1, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol + 3, nRow, _T("\x43\x1ED8NG H\xD2\x41 \x58\xC3 H\x1ED8I \x43H\x1EE6 NGH\x128\x41 VI\x1EC6T N\x41M"), FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(nCol + 3, nRow + 1, _T("\x110\x1ED8\x43 L\x1EACP - T\x1EF0 \x44O - H\x1EA0NH PH\xDA\x43"), FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(nCol, nRow + 2, _T("\x42\x1EA2NG TH\x1ED0NG K\xCA \x44\x41NH S\xC1\x43H \x42\x1EC6NH NH\xC2N \x43H\x1AF\x41 KH\xD3\x41 S\x1ED4"),
FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"),
CDateTime::Convert(m_szFromDate, yyyymmdd | hhmm, ddmmyyyy | hhmm),
CDateTime::Convert(m_szToDate, yyyymmdd | hhmm, ddmmyyyy | hhmm));
xls.SetCellText(nCol, nRow + 3, tmpStr, FMT_TEXT | FMT_CENTER, false, 11);
//Column Header
CStringArray arrCol;
arrCol.Add(_T("STT"));
arrCol.Add(_T("T\xEAn \x62\x1EC7nh nh\xE2n"));
arrCol.Add(_T("S\x1ED1 h\x1ED3 s\x1A1"));
arrCol.Add(_T("Kho\x61 / Ph\xF2ng kh\xE1m"));
arrCol.Add(_T("Ng\x1B0\x1EDDi thu"));
arrCol.Add(_T("S\x1ED1 ti\x1EC1n"));
CString szGroup[] = {_T("I"), _T("II"), _T("III"), _T("IV")};
int nIndex = 0;
nRow = 4;
for (int i = 0; i < arrCol.GetCount(); i++)
{
xls.SetCellText(nCol + i, nRow, arrCol.GetAt(i), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 10);
}
while (!rs.IsEOF())
{
if (szClass != rs.GetValue(_T("fclass")))
{
if (nGroupTotal > 0)
{
nRow++;
TranslateString(_T("Total Amt"), tmpStr);
tmpStr.AppendFormat(_T(" %s"), szGroup[nIndex++]);
xls.SetCellMergedColumns(nCol, nRow, 5);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("%.2Lf"), nGroupTotal);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING, true, 11);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
nIdx = 1;
rs.GetValue(_T("fclass"), szClass);
if (szClass == _T("NO"))
{
nRow++;
xls.SetCellMergedColumns(nCol, nRow, 6);
xls.SetCellText(nCol, nRow, _T("\x43\xE1\x63 kho\x61 n\x1ED9i tr\xFA"),
FMT_TEXT | FMT_CENTER, true, 11);
}
}
nIdx++;
nRow++;
tmpStr.Format(_T("%d"), nIdx);
xls.SetCellText(nCol, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.GetValue(_T("pname"), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("docno"), tmpStr);
xls.SetCellText(nCol + 2, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.GetValue(_T("deptid"), tmpStr);
xls.SetCellText(nCol + 3, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("staff"), tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("amount"), nAmount);
tmpStr.Format(_T("%.2f"), nAmount);
nGroupTotal += nAmount;
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING);
rs.MoveNext();
}
if (nGroupTotal > 0)
{
nRow++;
TranslateString(_T("Total Amt"), tmpStr);
tmpStr.AppendFormat(_T(" %s"), szGroup[nIndex++]);
xls.SetCellMergedColumns(nCol, nRow, 5);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("%.2Lf"), nGroupTotal);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING, true, 11);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
if (!rss.IsEOF())
{
nRow++;
xls.SetCellMergedColumns(nCol, nRow, 6);
xls.SetCellText(nCol, nRow, _T("Thu t\x1EA1m g\x1EEDi"), FMT_TEXT | FMT_CENTER, true, 11);
nIdx = 1;
while (!rss.IsEOF())
{
nRow++;
tmpStr.Format(_T("%d"), nIdx++);
xls.SetCellText(nCol, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rss.GetValue(_T("pname"), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rss.GetValue(_T("docno"), tmpStr);
xls.SetCellText(nCol + 2, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rss.GetValue(_T("deptid"), tmpStr);
xls.SetCellText(nCol + 3, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rss.GetValue(_T("staff"), tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rss.GetValue(_T("amount"), nAmount);
nGroupTotal += nAmount;
tmpStr.Format(_T("%.2f"), nAmount);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING);
rss.MoveNext();
}
}
if (nGroupTotal > 0)
{
nRow++;
TranslateString(_T("Total Amt"), tmpStr);
tmpStr.AppendFormat(_T(" %s"), szGroup[nIndex++]);
xls.SetCellMergedColumns(nCol, nRow, 5);
xls.SetCellText(nCol, nRow, tmpStr, FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("%.2Lf"), nGroupTotal);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING, true, 11);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
if (nTotal > 0)
{
nRow++;
xls.SetCellMergedColumns(nCol, nRow, 5);
xls.SetCellText(nCol, nRow, _T("T\x1ED5ng ti\x1EC1n"), FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("%.2Lf"), nTotal);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING, true, 11);
}
xls.Save(_T("Exports\\DanhSachBNChuaKhoaSo.xls"));
}
void CTMTreatmentActivitybyDept::ExportHoatdongdieutri(CString szFromDate, CString szToDate, CString szDoctor)
{
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, tmpStr1, szFromDateLabel, szToDateLabel, szWhere,szAmount, szOutpatient, m_szStatus;
CString szDate, szSysDate;
szSysDate = pMF->GetSysDate();
CReport rpt;
szSQL = GetQueryString();
BeginWaitCursor();
_fmsg(_T("%s"), szSQL);
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
AfxMessageBox(_T("No Data"));
return;
}
CExcel xls;
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(1, 40);
xls.SetCellMergedColumns(0, 1, 2);
xls.SetCellMergedColumns(0, 2, 2);
xls.SetCellText(0, 1, pMF->m_CompanyInfo.sc_pname,4098,true,12,0);
xls.SetCellText(0, 2, pMF->m_CompanyInfo.sc_name,4098,true,12,0);
xls.SetCellMergedColumns(0,4,14);
xls.SetCellText(0, 4, _T("\x42\xC1O \x43\xC1O HO\x1EA0T \x110\x1ED8NG TH\x45O L\x1AF\x1EE2T \x110I\x1EC0U TR\x1ECA"),4098,true,16,0);
xls.SetCellMergedColumns(0,5,12);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), CDate::Convert(m_szFromDate, yyyymmdd, ddmmyyyy), CDate::Convert(m_szToDate, yyyymmdd, ddmmyyyy));
xls.SetCellText(0, 5, tmpStr,4098,true,12,0);
int nRow = 7, age=0;
xls.SetCellText(0, nRow, _T("STT"), 528386,true);
TranslateString(_T("Dept"), tmpStr);
xls.SetCellText(1, nRow, tmpStr, 528386,true);
TranslateString(_T("Bed"), tmpStr);
xls.SetCellText(2, nRow, tmpStr, 528386,true);
TranslateString(_T("\x110\x1EA7u k\x1EF3"), tmpStr);
xls.SetCellText(3, nRow, tmpStr, 528386,true);
TranslateString(_T("Total"), tmpStr);
xls.SetCellText(4, nRow, tmpStr, 528386,true);
TranslateString(_T("Children < 6 Age"), tmpStr);
xls.SetCellText(5, nRow, tmpStr, 528386,true);
TranslateString(_T("Tr\x1EBB < 24 ng\xE0y"), tmpStr);
xls.SetCellText(6, nRow, tmpStr, 528386,true);
TranslateString(_T("Emergency"), tmpStr);
xls.SetCellText(7, nRow, tmpStr, 528386,true);
TranslateString(_T("Ng\xE0y DT"), tmpStr);
xls.SetCellText(8, nRow, tmpStr, 528386,true);
TranslateString(_T("T\x1ED5ng s\x1ED1 t\x1EED vong"), tmpStr);
xls.SetCellText(9, nRow, tmpStr, 528386,true);
TranslateString(_T("Tr\x1EBB < 6 tu\x1ED5i t\x1EED vong"), tmpStr);
xls.SetCellText(10, nRow, tmpStr, 528386,true);
TranslateString(_T("T\x1EED vong 24 ng\xE0y"), tmpStr);
xls.SetCellText(11, nRow, tmpStr, 528386,true);
TranslateString(_T("T\x1EED vong tr\x1B0\x1EDB\x63 24 gi\x1EDD"), tmpStr);
xls.SetCellText(12, nRow, tmpStr, 528386,true);
TranslateString(_T("T\x1EED vong s\x61u 24 gi\x1EDD"), tmpStr);
xls.SetCellText(13, nRow, tmpStr, 528386,true);
TranslateString(_T("BHYT"), tmpStr);
xls.SetCellText(14, nRow, tmpStr, 528386,true);
TranslateString(_T("Hospital Transfer"), tmpStr);
xls.SetCellText(15, nRow, tmpStr, 528386,true);
TranslateString(_T("T\x1ED3n \x63u\x1ED1i k\x1EF3"), tmpStr);
xls.SetCellText(16, nRow, tmpStr, 528386,true);
int nIndex = 1, SongayDT=0;
int i=0,nTotal[17];
for (i=0;i<=16;i++)
{
nTotal[i]=0;
}
while(!rs.IsEOF())
{
nRow++;
tmpStr.Format(_T("%d"), nIndex++);
xls.SetCellText(0, nRow, tmpStr, FMT_INTEGER);
rs.GetValue(_T("Deptname"), tmpStr);
xls.SetCellText(1, nRow, tmpStr, FMT_TEXT);
rs.GetValue(_T("Totalbed"), tmpStr);
nTotal[2] += ToInt(tmpStr);
xls.SetCellText(2, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("oldpatient"), tmpStr);
nTotal[3] += ToInt(tmpStr);
xls.SetCellText(3, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("Admission"), tmpStr);
nTotal[4] += ToInt(tmpStr);
xls.SetCellText(4, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("tre15"), tmpStr);
nTotal[5] += ToInt(tmpStr);
xls.SetCellText(5, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("Tre24Day"), tmpStr);
nTotal[6] += ToInt(tmpStr);
xls.SetCellText(6, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("emergency"), tmpStr);
nTotal[7] += ToInt(tmpStr);
xls.SetCellText(7, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("SongayDT"), tmpStr);
rs.GetValue(_T("SongayDTO"), tmpStr1);
if (m_bCheckBed)
SongayDT=(ToInt(tmpStr));
else
SongayDT=(ToInt(tmpStr) + ToInt(tmpStr1));
nTotal[8] += SongayDT;
tmpStr.Format(_T("%ld"), SongayDT);
xls.SetCellText(8, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("dead"), tmpStr);
nTotal[9] += ToInt(tmpStr);
xls.SetCellText(9, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("dead15"), tmpStr);
nTotal[10] += ToInt(tmpStr);
xls.SetCellText(10, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("Dead24Day"), tmpStr);
nTotal[11] += ToInt(tmpStr);
xls.SetCellText(11, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("Dead24h"), tmpStr);
nTotal[12] += ToInt(tmpStr);
xls.SetCellText(12, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("Dead24hf"), tmpStr);
nTotal[13] += ToInt(tmpStr);
xls.SetCellText(13, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("BHYT"), tmpStr);
nTotal[14] += ToInt(tmpStr);
xls.SetCellText(14, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("Chuyenvien"), tmpStr);
nTotal[15] += ToInt(tmpStr);
xls.SetCellText(15, nRow, tmpStr, FMT_NUMBER1);
rs.GetValue(_T("remain"), tmpStr);
nTotal[16] += ToInt(tmpStr);
xls.SetCellText(16, nRow, tmpStr, FMT_NUMBER1);
rs.MoveNext();
}
nRow++;
TranslateString(_T("Total"),tmpStr);
xls.SetCellText(1, nRow, tmpStr, FMT_TEXT, true);
for (int i =2; i <= 16; i++){
tmpStr.Format(_T("%d"),nTotal[i] );
xls.SetCellText(i, nRow, tmpStr, FMT_NUMBER1, true);
}
xls.Save(_T("Exports\\Bao cao hoat dong dieu tri theo luot dieu tri.xls"));
EndWaitCursor();
}
void CEMOperationFosteringListC12::OnExportSelect(){
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szTemp, szWhere, szObjects;
UpdateData(TRUE);
BeginWaitCursor();
szWhere.Empty();
int nRow =0, nCol = 0, nCount = 0, nOldDoc = 0, nNewDoc = 0;
int nIdx = 1;
double nTmp = 0, nAmt = 0;
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
return;
CExcel xls;
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 8);
xls.SetColumnWidth(1, 16);
xls.SetColumnWidth(2, 14);
xls.SetColumnWidth(3, 14);
xls.SetColumnWidth(4, 36);
xls.SetColumnWidth(5, 8);
xls.SetColumnWidth(6, 8);
xls.SetColumnWidth(7, 8);
xls.SetColumnWidth(8, 8);
xls.SetColumnWidth(9, 22);
xls.SetColumnWidth(10, 8);
xls.SetColumnWidth(11, 8);
xls.SetColumnWidth(12, 15);
xls.SetCellText(nCol, nRow, pMF->m_szHealthService, FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol, nRow + 1, pMF->m_szHospitalName, FMT_TEXT | FMT_CENTER, true, 11);
xls.SetCellText(nCol+1, nRow + 2, _T("C1.2"), FMT_TEXT | FMT_CENTER, true, 11);
for (int i = 0; i < m_wndObject.GetItemCount(); i++)
{
if (m_wndObject.GetCheck(i))
{
m_wndObject.SetCurSel(i);
if (!szObjects.IsEmpty())
szObjects += _T(", ");
szObjects += m_wndObject.GetCurrent(1);
}
}
if (!szObjects.IsEmpty())
tmpStr.Format(_T("\x42\x1EC7nh nh\xE2n %s"), szObjects);
else
tmpStr.Format(_T("\x42\x1EC7nh nh\xE2n"));
xls.SetCellText(nCol, nRow + 4, tmpStr, FMT_TEXT | FMT_CENTER, true, 10);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), CDate::Convert(m_szFromDate, yyyymmdd, ddmmyyyy), CDate::Convert(m_szToDate, yyyymmdd, ddmmyyyy));
xls.SetCellText(nCol, nRow + 5, tmpStr, FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(0, 2, _T("KHO\x41:"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 11);
xls.SetCellText(0, 3, _T("\x44\x41NH S\xC1\x43H \x110\x1EC0 NGH\x1ECA \x42\x1ED2I \x44\x1AF\x1EE0NG PH\x1EAAU THU\x1EACT, TH\x1EE6 THU\x1EACT"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 12);
xls.SetCellText(0, 6, _T("S\x1ED1 TT"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(1, 6, _T("H\x1ECD v\xE0 t\xEAn \x62\x1EC7nh nh\xE2n"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(2, 6, _T("S\x1ED1 h\x1ED3 s\x1A1"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(3, 6, _T("SH, s\x1ED1 th\x1EBB, \x63\x1EA5p \x62\x1EAD\x63"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(4, 6, _T("T\xEAn ph\x1EABu thu\x1EADt, th\x1EE7 thu\x1EADt"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(5, 6, _T("Ph\xE2n lo\x1EA1i ph\x1EABu thu\x1EADt, th\x1EE7 thu\x1EADt"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(5, 8, _T("\x110\x1EB7\x63 \x62i\x1EC7t"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(6, 8, _T("Lo\x1EA1i \x31"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(7, 8, _T("Lo\x1EA1i \x32"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(8, 8, _T("Lo\x1EA1i \x33"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(9, 0, _T("\x43\x1ED8NG H\xD2\x41 \x58\xC3 H\x1ED8I \x43H\x1EE6 NGH\x128\x41 VI\x1EC6T N\x41M"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(9, 1, _T("\x110\x1ED9\x63 l\x1EADp - T\x1EF1 \x64o - H\x1EA1nh ph\xFA\x63"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(9, 6, _T("K\xEDp th\x1EF1\x63 hi\x1EC7n"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(9, 8, _T("\x43h\xEDnh"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(10, 8, _T("Ph\x1EE5"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(11, 8, _T("Gi\xFAp vi\x1EC7\x63"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetCellText(12, 6, _T("S\x1ED1 ti\x1EC1n"), FMT_TEXT | FMT_CENTER | FMT_WRAPING, true, 10);
xls.SetMerge(0, 0, 0, 2);
xls.SetMerge(1, 1, 0, 2);
xls.SetMerge(3, 3, 0, 12);
xls.SetMerge(4, 4, 0, 12);
xls.SetMerge(5, 5, 0, 12);
xls.SetMerge(6, 9, 0, 0);
xls.SetMerge(2, 2, 1, 2);
xls.SetMerge(6, 9, 1, 1);
xls.SetMerge(174, 174, 1, 11);
xls.SetMerge(6, 9, 2, 2);
xls.SetMerge(6, 9, 3, 3);
xls.SetMerge(6, 9, 4, 4);
xls.SetMerge(6, 7, 5, 8);
xls.SetMerge(8, 9, 5, 5);
xls.SetMerge(8, 9, 6, 6);
xls.SetMerge(8, 9, 7, 7);
xls.SetMerge(8, 9, 8, 8);
xls.SetMerge(0, 0, 9, 12);
xls.SetMerge(1, 1, 9, 12);
xls.SetMerge(6, 7, 9, 11);
xls.SetMerge(8, 9, 9, 9);
xls.SetMerge(8, 9, 10, 10);
xls.SetMerge(8, 9, 11, 11);
xls.SetMerge(6, 9, 12, 12);
nRow = 10;
nCol = 0;
while (!rs.IsEOF())
{
void CFMTempSendPatientListByDay::OnExportSelect(){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
CRecord rs(&pMF->m_db);
CString szSQL;
CString tmpStr, szTemp;
UpdateData(TRUE);
BeginWaitCursor();
szSQL = GetQueryString();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
ShowMessageBox(_T("No Data"), MB_ICONERROR | MB_OK);
return;
}
CExcel xls;
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 5);
xls.SetColumnWidth(1, 18);
xls.SetColumnWidth(2, 10);
xls.SetColumnWidth(3, 20);
xls.SetColumnWidth(4, 11);
xls.SetColumnWidth(5, 15);
int nRow = 1;
int nCol = 0;
int nIndex = 1;
CString szOldLine, szNewLine;
long double nGroupTotal = 0, nTotal = 0;
double nCost = 0;
xls.SetRowHeight(6, 45);
xls.SetCellMergedColumns(0, 1, 4);
xls.SetCellMergedColumns(0, 2, 4);
xls.SetCellMergedColumns(6, 1, 4);
xls.SetCellMergedColumns(6, 2, 4);
xls.SetCellText(0, 1, pMF->m_CompanyInfo.sc_pname, FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(0, 2, pMF->m_CompanyInfo.sc_name, FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(6, 1, _T("\x43\x1ED8NG H\xD2\x41 \x58\xC3 H\x1ED8I \x43H\x1EE6 NGH\x128\x41 VI\x1EC6T N\x41M"), FMT_TEXT | FMT_CENTER, true);
xls.SetCellText(6, 2, _T("\x110\x1ED8\x43 L\x1EACP - T\x1EF0 \x44O - H\x1EA0NH PH\xDA\x43"), FMT_TEXT | FMT_CENTER, true);
xls.SetCellMergedColumns(nCol, nRow + 3, 6);
xls.SetCellMergedColumns(nCol, nRow + 4, 6);
xls.SetCellText(nCol, nRow + 3, _T("\x44\x41NH S\xC1\x43H \x42\x1EC6NH NH\xC2N T\x1EA0M G\x1EECI "),
FMT_TEXT | FMT_CENTER, true, 16, 0);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"),
CDateTime::Convert(m_szFromDate, yyyymmdd | hhmm, ddmmyyyy | hhmm),
CDateTime::Convert(m_szToDate, yyyymmdd | hhmm, ddmmyyyy | hhmm));
xls.SetCellText(nCol, nRow + 4, tmpStr, FMT_TEXT | FMT_CENTER, true, 12, 0);
TranslateString(_T("Index"), tmpStr);
xls.SetCellText(nCol, nRow + 5, tmpStr, FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
TranslateString(_T("Patient Name"), tmpStr);
xls.SetCellText(nCol + 1, nRow + 5, tmpStr, FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
TranslateString(_T("Document No"), tmpStr);
xls.SetCellText(nCol + 2, nRow + 5, tmpStr, FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
TranslateString(_T("Admission No"), tmpStr);
xls.SetCellText(nCol + 3, nRow + 5, tmpStr, FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
TranslateString(_T("Dept"), tmpStr);
xls.SetCellText(nCol + 4, nRow + 5, tmpStr, FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
xls.SetCellText(nCol + 5, nRow + 5, _T("Ng\xE0y n\x1ED9p ti\x1EC1n"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
xls.SetCellText(nCol + 6, nRow + 5, _T("S\x1ED1 ti\x1EC1n"), FMT_TEXT | FMT_CENTER | FMT_VCENTER | FMT_WRAPING, true, 11);
nRow = 7;
while (!rs.IsEOF())
{
rs.GetValue(_T("receiptdate"), tmpStr);
szNewLine = CDate::Convert(tmpStr, yyyymmdd, ddmmyyyy);
if (!szNewLine.IsEmpty() && szNewLine != szOldLine)
{
if (nGroupTotal > 0)
{
nRow++;
xls.SetCellText(nCol + 1, nRow, _T("\x43\x1ED9ng ng\xE0y"), FMT_TEXT | FMT_WRAPING, true);
tmpStr.Format(_T("%.2lf"), nGroupTotal);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING, true);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
szOldLine = szNewLine;
}
nRow++;
tmpStr.Format(_T("%d"), nIndex++);
xls.SetCellText(nCol, nRow, tmpStr, FMT_INTEGER | FMT_WRAPING);
rs.GetValue(_T("pname"), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("docno"), tmpStr);
xls.SetCellText(nCol + 2, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("recordno"), tmpStr);
xls.SetCellText(nCol + 3, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
rs.GetValue(_T("dept"), tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
if (nGroupTotal == 0)
{
tmpStr = CDate::Convert(rs.GetValue(_T("receiptdate")), yyyymmdd, ddmmyyyy);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_TEXT | FMT_WRAPING);
}
rs.GetValue(_T("deposit"), nCost);
nGroupTotal += nCost;
tmpStr.Format(_T("%.2f"), nCost);
xls.SetCellText(nCol + 6, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING);
rs.MoveNext();
}
if (nGroupTotal > 0)
{
nRow++;
xls.SetCellText(nCol + 1, nRow, _T("\x43\x1ED9ng kho\x61"), FMT_TEXT | FMT_WRAPING, true);
tmpStr.Format(_T("%.2lf"), nGroupTotal);
xls.SetCellText(nCol + 7, nRow, tmpStr, FMT_NUMBER1 | FMT_WRAPING, true);
nTotal += nGroupTotal;
nGroupTotal = 0;
}
EndWaitCursor();
xls.Save(_T("Exports\\DSBNTamGui.xls"));
}
void CPMSExportSheetList::OnExportSelect(){
_debug(_T("%s"), CString(typeid(this).name()));
CMainFrame_E10 *pMF = (CMainFrame_E10*) AfxGetMainWnd();
UpdateData(true);
CExcel xls;
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, szPrice;
int nCol = 0, nRow = 0, nIdx = 0;
double nAmount = 0, nTotal = 0;
szSQL = GetQueryString();
int nCount = rs.ExecSQL(szSQL);
if (nCount <= 0)
{
ShowMessage(150, MB_ICONSTOP);
return;
}
xls.CreateSheet(1);
xls.SetWorksheet(0);
xls.SetColumnWidth(0, 4);
xls.SetColumnWidth(1, 10);
xls.SetColumnWidth(2, 12);
xls.SetColumnWidth(3, 36);
xls.SetColumnWidth(5, 25);
xls.SetColumnWidth(6, 10);
//Header
xls.SetCellMergedColumns(nCol, nRow, 3);
xls.SetCellMergedColumns(nCol, nRow + 1, 3);
xls.SetCellMergedColumns(nCol, nRow + 2, 7);
xls.SetCellMergedColumns(nCol, nRow + 3, 7);
xls.SetCellMergedColumns(nCol, nRow + 4, 4);
xls.SetCellText(nCol, nRow, _T("HEALTHSERVICE"), FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol, nRow + 1, _T("HOSPITALNAME"), FMT_TEXT | FMT_CENTER, true, 10);
xls.SetCellText(nCol, nRow + 2, _T("\x42\x1EA2NG K\xCA PHI\x1EBEU \x58U\x1EA4T"), FMT_TEXT | FMT_CENTER, true, 11);
tmpStr.Format(_T("T\x1EEB ng\xE0y %s \x111\x1EBFn ng\xE0y %s"), CDateTime::Convert(m_szFromDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss), CDateTime::Convert(m_szToDate, yyyymmdd|hhmmss, ddmmyyyy|hhmmss));
xls.SetCellText(nCol, nRow + 3, tmpStr, FMT_TEXT | FMT_CENTER, false, 11);
tmpStr.Format(_T("Kho : %s"), m_wndStock.GetCurrent(1));
xls.SetCellText(nCol, nRow + 4, tmpStr, FMT_TEXT, false, 11);
//Column Heading
CStringArray arrCol;
arrCol.Add(_T("STT"));
arrCol.Add(_T("S\x1ED1 phi\x1EBFu"));
arrCol.Add(_T("Ng\xE0y \x78u\x1EA5t"));
arrCol.Add(_T("\x110\x1A1n v\x1ECB nh\x1EADn h\xE0ng"));
arrCol.Add(_T("M\xE3 s\x1ED1"));
arrCol.Add(_T("H\x1ECD v\xE0 t\xEAn"));
arrCol.Add(_T("S\x1ED1 ti\x1EC1n"));
nRow = 5;
for (int i = 0; i < arrCol.GetCount(); i++)
{
xls.SetCellText(nCol+i, nRow, arrCol.GetAt(i), FMT_TEXT | FMT_CENTER, true, 10);
}
nRow = 6;
szPrice = _T("vatamount");
if (m_nByServPrice)
szPrice = _T("servamount");
while (!rs.IsEOF()){
nIdx++;
tmpStr.Format(_T("%d"), nIdx);
xls.SetCellText(nCol, nRow, tmpStr, FMT_INTEGER);
rs.GetValue(_T("orderid"), tmpStr);
xls.SetCellText(nCol + 1, nRow, tmpStr, FMT_TEXT | FMT_CENTER);
rs.GetValue(_T("expdate"), tmpStr);
xls.SetCellText(nCol + 2, nRow, CDate::Convert(tmpStr, yyyymmdd , ddmmyyyy), FMT_TEXT);
rs.GetValue(_T("patname"), tmpStr);
xls.SetCellText(nCol + 3, nRow, tmpStr, FMT_TEXT);
rs.GetValue(_T("id"), tmpStr);
xls.SetCellText(nCol + 4, nRow, tmpStr, FMT_INTEGER | FMT_CENTER);
rs.GetValue(_T("doctype"), tmpStr);
xls.SetCellText(nCol + 5, nRow, tmpStr, FMT_TEXT);
rs.GetValue(szPrice, nAmount);
nTotal += nAmount;
xls.SetCellText(nCol + 6, nRow, double2str(nAmount), FMT_NUMBER1);
nRow++;
rs.MoveNext();
}
xls.SetCellText(nCol + 5, nRow, _T("T\x1ED5ng \x63\x1ED9ng"), FMT_TEXT, true, 10);
xls.SetCellText(nCol + 6, nRow, double2str(nTotal), FMT_NUMBER1, true, 10);
xls.Save(_T("Exports\\Bang Ke Phieu Xuat.xls"));
}
void CTMTreatmentActivitybyDept::PrintHoatdongdieutri(CString szFromDate, CString szToDate, CString szDoctor, bool bPreview){
CHMSMainFrame *pMF = (CHMSMainFrame*) AfxGetMainWnd();
CRecord rs(&pMF->m_db);
CString szSQL, tmpStr, tmpStr1, szFromDateLabel, szToDateLabel, szWhere,szAmount, szOutpatient, m_szStatus;
CString szDate, szSysDate;
szSysDate = pMF->GetSysDate();
CReport rpt;
szSQL = GetQueryString();
BeginWaitCursor();
rs.ExecSQL(szSQL);
if (rs.IsEOF())
{
AfxMessageBox(_T("No Data"));
return;
}
if(!rpt.Init(_T("Reports/HMS/RPT_HOATDONGDIEUTRI.RPT"))) return ;
//Report Header
tmpStr = rpt.GetReportHeader()->GetValue(_T("ReportDate"));
szDate.Format(tmpStr, CDate::Convert(szFromDate, yyyymmdd, ddmmyyyy),CDate::Convert(szToDate, yyyymmdd, ddmmyyyy));
rpt.GetReportHeader()->SetValue(_T("ReportDate"), szDate);
rpt.GetReportHeader()->SetValue(_T("HEALTHSERVICE"), pMF->m_CompanyInfo.sc_pname);
rpt.GetReportHeader()->SetValue(_T("HOSPITALNAME"), pMF->m_CompanyInfo.sc_name);
//Report Detail
CReportSection* rptDetail = rpt.GetDetail();
int nIndex = 1, SongayDT=0;
int i=0,nTotal[18];
for (i=0;i<18;i++)
{
nTotal[i]=0;
}
while(!rs.IsEOF())
{
rptDetail = rpt.AddDetail();
tmpStr.Format(_T("%d"), nIndex++);
rptDetail->SetValue(_T("1"), tmpStr);
rs.GetValue(_T("Deptname"), tmpStr);
rptDetail->SetValue(_T("2"), tmpStr);
rs.GetValue(_T("Totalbed"), tmpStr);
nTotal[3] += ToInt(tmpStr);
rptDetail->SetValue(_T("3"), tmpStr);
rs.GetValue(_T("oldpatient"), tmpStr);
nTotal[4] += ToInt(tmpStr);
rptDetail->SetValue(_T("4"), tmpStr);
rs.GetValue(_T("Admission"), tmpStr);
nTotal[5] += ToInt(tmpStr);
rptDetail->SetValue(_T("5"), tmpStr);
rs.GetValue(_T("Tre15"), tmpStr);
nTotal[6] += ToInt(tmpStr);
rptDetail->SetValue(_T("6"), tmpStr);
rs.GetValue(_T("Tre24Day"), tmpStr);
nTotal[7] += ToInt(tmpStr);
rptDetail->SetValue(_T("7"), tmpStr);
rs.GetValue(_T("emergency"), tmpStr);
nTotal[8] += ToInt(tmpStr);
rptDetail->SetValue(_T("8"), tmpStr);
rs.GetValue(_T("SongayDT"), tmpStr);
rs.GetValue(_T("SongayDTO"), tmpStr1);
if (m_bCheckBed)
SongayDT=(ToInt(tmpStr));
else
SongayDT=(ToInt(tmpStr) + ToInt(tmpStr1));
nTotal[9] += SongayDT;
tmpStr.Format(_T("%ld"), SongayDT);
rptDetail->SetValue(_T("9"), tmpStr);
rs.GetValue(_T("dead"), tmpStr);
nTotal[10] += ToInt(tmpStr);
rptDetail->SetValue(_T("10"), tmpStr);
rs.GetValue(_T("dead15"), tmpStr);
nTotal[11] += ToInt(tmpStr);
rptDetail->SetValue(_T("11"), tmpStr);
rs.GetValue(_T("dead24Day"), tmpStr);
nTotal[12] += ToInt(tmpStr);
rptDetail->SetValue(_T("12"), tmpStr);
rs.GetValue(_T("dead24h"), tmpStr);
nTotal[13] += ToInt(tmpStr);
rptDetail->SetValue(_T("13"),tmpStr);
rs.GetValue(_T("dead24hf"), tmpStr);
nTotal[14] += ToInt(tmpStr);
rptDetail->SetValue(_T("14"),tmpStr);
rs.GetValue(_T("BHYT"), tmpStr);
nTotal[15] += ToInt(tmpStr);
rptDetail->SetValue(_T("15"), tmpStr);
rs.GetValue(_T("Chuyenvien"), tmpStr);
nTotal[16] += ToInt(tmpStr);
rptDetail->SetValue(_T("16"), tmpStr);
rs.GetValue(_T("remain"), tmpStr);
nTotal[17] += ToInt(tmpStr);
rptDetail->SetValue(_T("17"), tmpStr);
rs.MoveNext();
}
rptDetail = rpt.AddDetail();
TranslateString(_T("Total"),tmpStr);
rptDetail->GetItem(_T("2"))->SetBold(true);
rptDetail->SetValue(_T("2"),tmpStr);
for (int i =3; i < 18; i++){
tmpStr.Format(_T("%d"), i);
szAmount.Format(_T("%ld"),nTotal[i] );
//rptDetail->GetItem(tmpStr)->SetBold(true);
rptDetail->SetValue(tmpStr, szAmount);
}
//Page Footer
//Report Footer
szDate.Format(rpt.GetReportFooter()->GetValue(_T("PrintDate")),szSysDate.Right(2),szSysDate.Mid(5,2),szSysDate.Left(4));
rpt.GetReportFooter()->SetValue(_T("PrintDate"), szDate);
EndWaitCursor();
if(bPreview)
rpt.PrintPreview();
else
rpt.Print();
}
