admin/ayanova7
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
ayanova7/archive/ayanova 1.9.4 CE final release db schema 171/sp/PMCheckDlg.cpp

1240 lines
32 KiB
C++
Raw Permalink Blame History

// PMCheckDlg.cpp : implementation file
//
#include "stdafx.h"
#include "sp.h"
#include "PMCheckDlg.h"
#include "PM.h"
#include "PMViewPrompt.h"
#include "gzCurrencyFormatter.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
//memory leak debugging help
#define _CRTDBG_MAP_ALLOC
#include <stdlib.h>
#include <crtdbg.h>
/////////////////////////////////////////////////////////////////////////////
// CPMCheckDlg dialog
CPMCheckDlg::CPMCheckDlg(CWnd* pParent /*=NULL*/)
: CDialog(CPMCheckDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CPMCheckDlg)
// NOTE: the ClassWizard will add member initialization here
//}}AFX_DATA_INIT
m_pApp= (CSpApp*)AfxGetApp();
/*
rs=new GZRset("PMCHECK rs error:");
rs->SetConnect(m_pApp->strConnectString);
rs2=new GZRset("PMCHECK rs2 error:");
rs2->SetConnect(m_pApp->strConnectString);
rs3=new GZRset("PMCHECK rs3 error:");
rs3->SetConnect(m_pApp->strConnectString);
*/
//Initialize recordset pointer
rs=m_pApp->rsPool->GetRS("CPMCheckDlg (RS)");
rs2=m_pApp->rsPool->GetRS("CPMCheckDlg (RS2)");
rs3=m_pApp->rsPool->GetRS("CPMCheckDlg (RS3)");
}
void CPMCheckDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CPMCheckDlg)
// NOTE: the ClassWizard will add DDX and DDV calls here
DDX_Control(pDX, IDC_REPORT, m_rc);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CPMCheckDlg, CDialog)
//{{AFX_MSG_MAP(CPMCheckDlg)
ON_COMMAND(ID_PMVIEW_DONE, OnPmviewDone)
ON_COMMAND(ID_PMVIEW_SHOWDATEITEMS, OnPmviewShowdateitems)
ON_COMMAND(ID_PMVIEW_SHOWMETERED, OnPmviewShowmetered)
ON_COMMAND(ID_PMVIEW_SELECTEDITEM_CONVERTTOWORKORDER, OnPmviewSelecteditemConverttoworkorder)
ON_COMMAND(ID_PMVIEW_SELECTEDITEM_DELETE, OnPmviewSelecteditemDelete)
ON_COMMAND(ID_PMVIEW_SELECTEDITEM_EDIT, OnPmviewSelecteditemEdit)
ON_COMMAND(ID_PMVIEW_SELECTEDITEM_HOLDRELEASE, OnPmviewSelecteditemHoldrelease)
ON_NOTIFY(RVN_ITEMDBCLICK, IDC_REPORT, OnRvnItemDbClick)
ON_NOTIFY(RVN_COLUMNCLICK, IDC_REPORT, OnColumnClick)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CPMCheckDlg message handlers
CPMCheckDlg::~CPMCheckDlg()
{
m_pApp->rsPool->ReleaseRS(&rs->m_nID);
m_pApp->rsPool->ReleaseRS(&rs2->m_nID);
m_pApp->rsPool->ReleaseRS(&rs3->m_nID);
}
void CPMCheckDlg::OnRvnItemDbClick(NMHDR* pNMHDR, LRESULT* pResult)
{
CString q,link;
long lData;
bool isclient,ismodel;
LPNMREPORTVIEW lpnmrv = (LPNMREPORTVIEW)pNMHDR;
if(lpnmrv->iItem >=0)//-1 if clicked on invalid
{
q.Format("SELECT pmhead.id, pmhead.ismodel, pmhead.isclient, pmhead.link "
"FROM pmitems INNER JOIN pmhead ON pmitems.pmschedlink = pmhead.id "
"WHERE (((pmitems.id)=%s));",m_rc.GetItemText(lpnmrv->iItem,7));
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("There is a problem trying to retrieve the\r\nmaster record for this item.");
return;
}
rs2->FetchField("ismodel",&ismodel);
rs2->FetchField("isclient",&isclient);
rs2->FetchField("link",&lData);
link.Format("%u",lData);
CPM d;
d.PreInitialize(isclient,ismodel,link,"Edit PM scheduled item");
d.DoModal();
FillView();
}
*pResult = FALSE;
}
//===================================
BOOL CPMCheckDlg::OnInitDialog()
{
CDialog::OnInitDialog();
m_resize.Create( this );
Security();
ShowWindow(SW_HIDE);
CWaitCursor wait;
//defaults
m_bShowDateFormat=true;
//Set the initial sort order for the columns
for(int xx=0;xx<9;xx++)
bColumnSortAsc[xx]=FALSE;
m_strOrderBy.Empty();
CString profile,q;
q.Format("SELECT users.pmprofile "
"FROM users WHERE (((users.id)=%u));",m_pApp->m_lusrID);
rs->Query(q);
rs->FetchField("pmprofile",&profile);
m_ilReport.Create(IDB_BM2, 16, 1, RGB(255,0,255));
m_rc.SetImageList(&m_ilReport);
m_rc.InsertColor(0, 0x00C0D8C0);
m_rc.InsertColor(1, ::GetSysColor(COLOR_GRAYTEXT));
m_rc.InsertColor(2, 0x00D0C0C0);
m_rc.InsertColor(3, 0x00804000);
RVCOLUMN rvc;
rvc.nFormat = RVCF_TEXT|RVCF_LEFT;//RVCF_TEXT|RVCF_EX_AUTOWIDTH|RVCF_SUBITEM_IMAGE;
rvc.iImage = 1;
rvc.lpszText = _T("Client");
rvc.iWidth = 60;
m_rc.DefineColumn(0, &rvc);
rvc.nFormat = RVCF_TEXT;
rvc.lpszText = "Date";
rvc.iWidth = 60;
m_rc.DefineColumn(1, &rvc);
rvc.lpszText = "Service meter";
rvc.iWidth = 60;
m_rc.DefineColumn(2, &rvc);
rvc.lpszText = "Last reading";
rvc.iWidth = 60;
m_rc.DefineColumn(3, &rvc);
rvc.nFormat = RVCF_TEXT;
rvc.lpszText = "Hold";
rvc.iWidth = 60;
m_rc.DefineColumn(4, &rvc);
rvc.lpszText = "Tech.";
rvc.iWidth = 60;
m_rc.DefineColumn(5, &rvc);
rvc.lpszText = "Description";
rvc.iWidth = 60;
m_rc.DefineColumn(6, &rvc);
rvc.nFormat = RVCF_TEXT | RVCF_EX_FIXEDWIDTH;
rvc.lpszText = "pmheadid";
rvc.iWidth = 0;
m_rc.DefineColumn(7, &rvc);
//setup according to users preferences
if(!profile.IsEmpty())
m_rc.GetProfile(&profile);
else
{
//not needed when setting by pref
//but if there are no preferences then you would need it
m_rc.ActivateColumn(0, 0);
m_rc.ActivateColumn(1, 1);
m_rc.ActivateColumn(2, 2);
m_rc.ActivateColumn(3, 3);
m_rc.ActivateColumn(4, 4);
m_rc.ActivateColumn(5, 5);
m_rc.ActivateColumn(6, 6);
m_rc.ActivateColumn(7, 7);
}
m_rc.ModifyStyle(0, RVS_SINGLESELECT);
//m_rc.ModifyStyle(0, RVS_SHOWCOLORALTERNATE);
//turn off the grids
m_rc.ModifyStyle(RVS_SHOWVGRID, 0);
m_rc.ModifyStyle(RVS_SHOWHGRID, 0);
//retrieve the loaner items and display them
FillView();
m_resize.Add(IDC_REPORT,0,0,100,100);
//Use the current width and height as the minimum size
m_resize.SetMinimumTrackingSize();
//===================================================
// SET WINDOW SIZE TO MATCH WORK AREA
ShowWindow(SW_SHOWMAXIMIZED);
CRect workarea;
SystemParametersInfo(SPI_GETWORKAREA,0,&workarea,0);
SetWindowPos(NULL,workarea.left,workarea.top,workarea.Width(),workarea.Height(),SWP_NOZORDER);
//===================================================
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
void CPMCheckDlg::FillView()
{
int x=0;
CString q,strTemp,strClient,strTech,strDetails;
COleDateTime dtDate;
long lMeter,lLastMeter,lID,lLink;
bool bHold;
bool bIsClient;
if(m_bShowDateFormat)
strTemp=" = 0";
else
strTemp=" <> 0";
/*q.Format("SELECT IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]) AS clientname, pmitems.schedate, pmitems.schedmeter, pmitems.hold, pmhead.description, pmitems.id, IIf([pmitems].[schedtech]=0,\"Any\",[users].[last] & \", \" & [users].[first]) AS techname, pmitems.link "
"FROM ((pmitems LEFT JOIN clients ON pmitems.clientlink = clients.id) LEFT JOIN pmhead ON pmitems.pmschedlink = pmhead.id) LEFT JOIN users ON pmitems.schedtech = users.id "
"WHERE (((pmitems.schedmeter)%s)) %s;",strTemp, m_strOrderBy);*/
q.Format("SELECT pmitems.isclient, IIf(IsNull([clients]![company]),[clients]![first] "
"& \" \" & [clients]![last],[clients]![company]) "
"AS clientname, pmitems.schedate, "
"pmitems.schedmeter, pmitems.hold, pmhead.description, "
"pmitems.id, IIf([pmitems].[schedtech]=0,\"Any\",[users].[last] "
"& \", \" & [users].[first]) AS techname, "
"pmitems.link FROM ((pmitems LEFT JOIN clients "
"ON pmitems.clientlink = clients.id) LEFT JOIN pmhead "
"ON pmitems.pmschedlink = pmhead.id) LEFT JOIN "
"users ON pmitems.schedtech = users.id WHERE (((pmitems.schedmeter)%s)) %s; ",strTemp, m_strOrderBy);
//vvvvvvvvvvvvvvvvvvv
//#ifdef _DEBUG
// m_pApp->ShowStuff(q);
//#endif
//^^^^^^^^^^^^^^^^^^^
rs->Query(q);
m_rc.DeleteAllItems();
if(rs->IsEmpty()) return;
do
{
//added 02/21/2003
rs->FetchField("isclient",&bIsClient);
rs->FetchField("clientname",&strClient);
//avoid the underline in the report control
//for a single &
strClient.Replace("&","&&");
rs->FetchField("schedate",&dtDate);
rs->FetchField("schedmeter",&lMeter);
rs->FetchField("hold",&bHold);
rs->FetchField("description",&strDetails);
rs->FetchField("techname",&strTech);
rs->FetchField("id",&lID);
rs->FetchField("link",&lLink);
//Set the look of the row and insert it
//CLIENT
RVITEM rvi;
rvi.iItem = x;
rvi.iSubItem = 0;
rvi.nMask = RVIM_TEXT;
//rvi.nState = 0;
//rvi.nPreview = 0;//no preview necessary
rvi.lpszText = strClient.GetBuffer(strClient.GetLength());
rvi.lParam = x;
m_rc.InsertItem(&rvi);
//DATE
if(!m_bShowDateFormat)
strTemp="n/a";
else
strTemp=dtDate.Format();
rvi.iSubItem = 1;
rvi.nMask = RVIM_TEXT;
rvi.lpszText = strTemp.GetBuffer(strTemp.GetLength());
m_rc.SetItem(&rvi);
//METER
if(m_bShowDateFormat)
strTemp="n/a";
else
strTemp.Format("%u",lMeter);
rvi.iSubItem = 2;
rvi.lpszText = strTemp.GetBuffer(strTemp.GetLength());
m_rc.SetItem(&rvi);
//LAST METER READING
//LOOK UP LAST METER READING HERE
//**************************************************************
if(m_bShowDateFormat)
strTemp="n/a";
else
{
q.Format("SELECT units.lastmeter FROM units WHERE (((units.id)=%u));",lLink);
rs2->Query(q);
if(rs2->IsEmpty())
{
strTemp="n/a";
}
else
{
rs2->FetchField("lastmeter",&lLastMeter);
strTemp.Format("%u",lLastMeter);
}
}
rvi.iSubItem = 3;
rvi.lpszText = strTemp.GetBuffer(strTemp.GetLength());
m_rc.SetItem(&rvi);
//HOLD
if(bHold)
strTemp="HELD";
else
strTemp="Active";
rvi.iSubItem = 4;
rvi.lpszText = strTemp.GetBuffer(strTemp.GetLength());
m_rc.SetItem(&rvi);
//TECH
rvi.iSubItem = 5;
rvi.lpszText = strTech.GetBuffer(strTech.GetLength());
m_rc.SetItem(&rvi);
//DETAILS
//If it's a unit, get the serial number here and
//append to details
if(!bIsClient)
{
/*q.Format("SELECT units.sn AS USN, clients.company AS OWNER, unitmodels.model AS MODEL, "
"nonclients.company_person AS MANU, unitmodels.description AS DESCRIPT "
"FROM (((pmhead LEFT JOIN units ON pmhead.link = units.id) "
"LEFT JOIN unitmodels ON units.model = unitmodels.id) "
"LEFT JOIN clients ON units.client = clients.id) "
"LEFT JOIN nonclients ON unitmodels.manufacturer "
"= nonclients.id WHERE (((pmhead.id)=%u));",lLink);*/
//FIX v1.9.4.3
q.Format("SELECT units.sn AS USN, clients.company AS OWNER, unitmodels.model "
"AS MODEL, nonclients.company_person "
"AS MANU, unitmodels.description AS DESCRIPT FROM "
"((units LEFT JOIN unitmodels ON units.model = unitmodels.id) "
"LEFT JOIN clients ON units.client = clients.id) "
"LEFT JOIN nonclients ON unitmodels.manufacturer "
"= nonclients.id WHERE (((units.id)=%u));",lLink);
//#ifdef _DEBUG
// m_pApp->ShowStuff(q);
//#endif
if(!rs2->QueryReadOnly(q)) goto BAIL;
if(rs2->IsEmpty()) goto BAIL;
//Ok, we have a record and are ready to retrieve the details
if(!rs2->FetchField("USN",&strTemp)) goto BAIL;
strDetails+=" Unit - sn:" + strTemp;
if(!rs2->FetchField("MANU",&strTemp)) goto BAIL;
strDetails+=" " + strTemp;
if(!rs2->FetchField("MODEL",&strTemp)) goto BAIL;
strDetails+=" " + strTemp;
}
BAIL:
rvi.iSubItem = 6;
rvi.lpszText = strDetails.GetBuffer(strDetails.GetLength());
m_rc.SetItem(&rvi);
//ID
strTemp.Format("%u",lID);
rvi.iSubItem = 7;
rvi.lpszText = strTemp.GetBuffer(strTemp.GetLength());
m_rc.SetItem(&rvi);
x++;
}while(rs->MoveForward());
}
void CPMCheckDlg::OnPmviewDone()
{
CString profile,q;
//save to user prefs.
m_rc.WriteProfile(&profile);
q.Format("UPDATE users SET users.pmprofile = \"%s\" "
"WHERE (((users.id)=%u));",profile,m_pApp->m_lusrID);
rs->Ex(q);
CDialog::OnOK();
}
void CPMCheckDlg::OnPmviewShowdateitems()
{
if(!m_bShowDateFormat)
FlipMeterDate();
}
void CPMCheckDlg::OnPmviewShowmetered()
{
if(m_bShowDateFormat)
FlipMeterDate();
}
//Toggle meter/date mode
void CPMCheckDlg::FlipMeterDate()
{
CMenu* mmenu = GetMenu();
CMenu* submenu = mmenu->GetSubMenu(0);
UINT state = submenu->GetMenuState(ID_PMVIEW_SHOWMETERED, MF_BYCOMMAND);
ASSERT(state != 0xFFFFFFFF);
if (state & MF_CHECKED)
{
submenu->CheckMenuItem(ID_PMVIEW_SHOWMETERED, MF_UNCHECKED | MF_BYCOMMAND);
submenu->CheckMenuItem(ID_PMVIEW_SHOWDATEITEMS, MF_CHECKED | MF_BYCOMMAND);
m_bShowDateFormat=true;
}
else
{
submenu->CheckMenuItem(ID_PMVIEW_SHOWMETERED, MF_CHECKED | MF_BYCOMMAND);
submenu->CheckMenuItem(ID_PMVIEW_SHOWDATEITEMS, MF_UNCHECKED | MF_BYCOMMAND);
m_bShowDateFormat=false;
}
FillView();
}
//SET ORDER BY CLAUSE DEPENDING ON CLICK HERE
void CPMCheckDlg::OnColumnClick(NMHDR* pNMHDR, LRESULT* pResult)
{
CWaitCursor Wait;
int x;
CString strOrder;
CString str;
CFlatHeaderCtrl* header;
header=m_rc.GetHeaderCtrl();
//FIND CLICKED COLUMN
str=header->m_szHotItemText;
if(str=="Client")
{
x=0;
goto OUTTAHERE;
}
if(str=="Date")
{
x=1;
goto OUTTAHERE;
}
if(str=="Service meter")
{
x=2;
goto OUTTAHERE;
}
if(str=="Last reading")
{
x=3;
goto OUTTAHERE;
}
if(str=="Hold")
{
x=4;
goto OUTTAHERE;
}
if(str=="Tech.")
{
x=5;
goto OUTTAHERE;
}
if(str=="Description")
{
x=6;
goto OUTTAHERE;
}
OUTTAHERE:;
bColumnSortAsc[x]=!bColumnSortAsc[x];
if(!bColumnSortAsc[x])
strOrder=" DESC";
else
strOrder.Empty();
switch(x)
{//DESC
case 0://client
m_strOrderBy.Format("ORDER BY IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]) %s, pmitems.id, pmitems.schedate, pmitems.schedmeter",strOrder);
break;
case 1://scheddate
m_strOrderBy.Format("ORDER BY pmitems.schedate %s, IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]), pmitems.id, pmitems.schedmeter",strOrder);
break;
case 2://
m_strOrderBy.Format("ORDER BY pmitems.schedmeter %s, IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]), pmitems.id, pmitems.schedate",strOrder);
break;
case 3://Last meter reading/not sorted now
m_strOrderBy="";
break;
case 4://hold
m_strOrderBy.Format("ORDER BY pmitems.hold %s, IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]), pmitems.id, pmitems.schedate, pmitems.schedmeter",strOrder);
break;
case 5://tech
m_strOrderBy.Format("ORDER BY IIf([pmitems].[schedtech]=0,\"Any\",[users].[last] & \", \" & [users].[first]) %s, IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]), pmitems.id, pmitems.schedate, pmitems.schedmeter, pmitems.hold",strOrder);
break;
case 6://
m_strOrderBy.Format("ORDER BY pmhead.description %s, IIf(IsNull([clients]![company]),[clients]![first] & \" \" & [clients]![last],[clients]![company]), pmitems.id, pmitems.schedate, pmitems.schedmeter",strOrder);
break;
}
header->SetSortColumn(header->GetHotIndex(),bColumnSortAsc[x]);
*pResult = TRUE;//TRUE means we handled it here thanks anyway
FillView();
}
void CPMCheckDlg::OnPmviewSelecteditemConverttoworkorder()
{
CString q;
int x;
x=m_rc.GetFirstSelectedItem();
if(x<0)
{
AfxMessageBox("You must select one or more items from the list first.");
return;//no selection
}
if(AfxMessageBox("Convert this item to a workorder now? \r\nAre you sure?",MB_YESNO)==IDNO) return;
//still here? OK
MakeIntoWorkorder(m_rc.GetItemText(x,7));
FillView();
}
//Delete item(s)
void CPMCheckDlg::OnPmviewSelecteditemDelete()
{
CPMViewPrompt d;
int nReturn=0,x;
CString q,strTemp,strID;
long lID;
x=m_rc.GetFirstSelectedItem();
if(x<0)
{
AfxMessageBox("You must select one or more items from the list first.");
return;//no selection
}
d.Setup("Delete items? Are you sure?", "Delete items",&nReturn);
d.DoModal();
if(nReturn==0) return;
strID=m_rc.GetItemText(x,7);
if(nReturn==1) //delete series items only
{
//delete this pmitem only.
q.Format("DELETE pmitems.* FROM pmitems WHERE (((pmitems.id)=%s));",strID);
rs2->Ex(q);
}
else
{
//DELETE HEADER RECORD
//locate header record ID
q.Format("SELECT pmitems.pmschedlink FROM pmitems WHERE (((pmitems.id)=%s));",strID);
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("Error locating header record ID\r\nCan't do it.");
return;
}
rs2->FetchField("pmschedlink",&lID);
//delete header record
q.Format("DELETE pmhead.*, pmhead.id FROM pmhead WHERE (((pmhead.id)=%u));",lID);
rs2->Ex(q);
//delete all detail items
q.Format("DELETE pmitems.*, pmitems.pmschedlink "
"FROM pmitems WHERE (((pmitems.pmschedlink)=%u));",lID);
rs2->Ex(q);
}
FillView();
}
void CPMCheckDlg::OnPmviewSelecteditemEdit()
{
int x;
CString q,link;
long lData;
bool isclient,ismodel;
x=m_rc.GetFirstSelectedItem();
if(x<0)
{
AfxMessageBox("You must select one or more items from the list first.");
return;//no selection
}
//CLoanersEditDlg d;
//CString item=m_rc.GetItemText(lpnmrv->iItem,6);
//d.SetRentalID(&item);
//d.DoModal();
q.Format("SELECT pmhead.id, pmhead.ismodel, pmhead.isclient, pmhead.link "
"FROM pmitems INNER JOIN pmhead ON pmitems.pmschedlink = pmhead.id "
"WHERE (((pmitems.id)=%s));",m_rc.GetItemText(x,7));
//strID=m_rc.GetItemText(x,7);
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("There is a problem trying to retrieve the\r\nmaster record for this item.");
return;
}
rs2->FetchField("ismodel",&ismodel);
rs2->FetchField("isclient",&isclient);
rs2->FetchField("link",&lData);
link.Format("%u",lData);
CPM d;
d.PreInitialize(isclient,ismodel,link,"Edit PM scheduled item");
d.DoModal();
FillView();
}
//HOLD/RELEASE
void CPMCheckDlg::OnPmviewSelecteditemHoldrelease()
{
int x;
CString q,tf;
bool bHold;
x=m_rc.GetFirstSelectedItem();
if(x<0)
{
AfxMessageBox("You must select one or more items from the list first.");
return;//no selection
}
q.Format("SELECT pmitems.hold FROM pmitems "
"WHERE (((pmitems.id)=%s));",m_rc.GetItemText(x,7));
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("There is a problem trying to open this record.");
return;
}
rs2->FetchField("hold",&bHold);
if(bHold)
tf="False";
else
tf="True";
q.Format("UPDATE pmitems SET pmitems.hold = %s "
"WHERE (((pmitems.id)=%s));",tf,m_rc.GetItemText(x,7));
//m_pApp->ShowStuff(q);
rs2->Ex(q);
FillView();
}
//************************************************************************
// CONVERT PM ITEM TO WORKORDER
//
//************************************************************************
//make a PM Item into a workorder
void CPMCheckDlg::MakeIntoWorkorder(CString strPMItem)
{
CString q,strDescription,strNotes;
long lHeaderID,lTech,lLink,lClient,lModifier,lCategory,lProject,lWOID,lProbID;
long lSchedMeter,lHighestPMID,lRepeat,lDays, lWeeks, lDOW;
bool bIsClient,bQuick,bOnsite,bAutorpt,bAutoWO, bHold;
int nDOW,d,nTemp;
COleDateTime dtScheduled,dtNow,dtDefault,dtStartTime,dtEndTime,dtSchedStart,dtSchedStop;
dtNow=COleDateTime::GetCurrentTime();
dtDefault.SetDate(1968,03,12);
//Get all the details from the detail record first
q.Format("SELECT * "
"FROM pmitems WHERE (((pmitems.id)=%s));",strPMItem);
rs2->Query(q);
if(rs2->IsEmpty())
{
q.Format("Error converting PM Item %s to workorder",strPMItem);
AfxMessageBox(q);
return;
}
rs2->FetchField("pmschedlink",&lHeaderID);
rs2->FetchField("schedtech",&lTech);
rs2->FetchField("link",&lLink);
rs2->FetchField("isclient",&bIsClient);
rs2->FetchField("clientlink",&lClient);
rs2->FetchField("schedmeter",&lSchedMeter);
rs2->FetchField("schedate",&dtScheduled);
rs2->FetchField("autowo",&bAutoWO);
rs2->FetchField("hold",&bHold);
/*PMDAYS*/
//Get the rest of the info from the header record
q.Format("SELECT pmhead.description, pmhead.notes, pmhead.modifier, pmhead.autorpt, pmhead.dow, "
"pmhead.repeatevery, pmhead.rptdays, pmhead.rptweeks, pmhead.wotype, pmhead.woquick, "
"pmhead.woproject, pmhead.woonsite, pmhead.starttime, pmhead.endtime "
"FROM pmhead WHERE (((pmhead.id)=%u));",lHeaderID);
rs2->Query(q);
if(rs2->IsEmpty())
{
q.Format("Error converting PM head item %u to workorder",lHeaderID);
AfxMessageBox(q);
return;
}
rs2->FetchField("description",&strDescription);
rs2->FetchField("notes",&strNotes);
rs2->FetchField("modifier",&lModifier);
rs2->FetchField("wotype",&lCategory);
rs2->FetchField("woquick",&bQuick);
rs2->FetchField("woproject",&lProject);
rs2->FetchField("woonsite",&bOnsite);
rs2->FetchField("autorpt",&bAutorpt);
rs2->FetchField("dow",&lDOW);
rs2->FetchField("repeatevery",&lRepeat);
rs2->FetchField("rptdays",&lDays);
rs2->FetchField("rptweeks",&lWeeks);
rs2->FetchField("starttime",&dtStartTime);
rs2->FetchField("endtime",&dtEndTime);
//Move the date into the time fields
dtSchedStart.SetDateTime(dtScheduled.GetYear(),dtScheduled.GetMonth(),dtScheduled.GetDay(),
dtStartTime.GetHour(),dtStartTime.GetMinute(),dtStartTime.GetSecond());
// dtSchedStop
dtSchedStop.SetDateTime(dtScheduled.GetYear(),dtScheduled.GetMonth(),dtScheduled.GetDay(),
dtEndTime.GetHour(),dtEndTime.GetMinute(),dtEndTime.GetSecond());
/*PMDAYS*/
//FIXUP DATE
if(dtScheduled.GetYear()==1968)
dtScheduled=COleDateTime::GetCurrentTime();
//PROCESS INTO A WORKORDER
q.Format("INSERT INTO wo ( "
"project, client, type, closed, onsite, "
"anytime, assigntech, quick, creator, modifier, created, modified, "
"starttime, stoptime, notes, pmid ) "
"SELECT %u, %u, %u, #%s#, %s, %s, %u, %s, %u, %u, "
"#%s#, #%s#, #%s#, #%s#, \"%s\",%u;",
lProject, lClient, lCategory, bQuick ? dtScheduled.Format(_T("%m/%d/%Y %H:%M:%S")) : "03/12/1968",
bOnsite ? "True" : "False", "False",
lTech, bQuick ? "True" : "False", lModifier, lModifier,
dtNow.Format(_T("%m/%d/%Y %H:%M:%S")),dtNow.Format(_T("%m/%d/%Y %H:%M:%S")),
/*starttime*/dtSchedStart.Format(_T("%m/%d/%Y %H:%M:%S")),
/*stoptime*/dtSchedStop.Format(_T("%m/%d/%Y %H:%M:%S")),
strDescription,lHeaderID);
//PROCESS INTO A WORKORDER
//q.Format("INSERT INTO wo ( "
// "project, client, type, closed, onsite, "
// "anytime, assigntech, quick, creator, modifier, created, modified, "
// "starttime, stoptime, notes ) "
// "SELECT %u, %u, %u, #%s#, %s, False, %u, %s, %u, %u, "
// "#%s#, #%s#, #%s#, #%s#, %s;",
// lProject, lClient, lCategory, bQuick ? dtScheduled.Format(_T("%m/%d/%Y %H:%M:%S")) : "03/12/1968",
// bOnsite ? "True" : "False", lTech, bQuick ? "True" : "False",
// lModifier, lModifier, dtNow.Format(_T("%m/%d/%Y %H:%M:%S")),
// dtNow.Format(_T("%m/%d/%Y 12:00:00")),
// /*starttime*/dtSchedStart.Format(_T("%m/%d/%Y %H:%M:%S")),
// /*stoptime*/dtSchedStop.Format(_T("%m/%d/%Y %H:%M:%S")),
// strDescription);
///////m_pApp->ShowStuff(q);
rs2->Ex(q);
rs2->Close();
/*
//Fetch workorder ID just created
q.Format("SELECT wo.id FROM wo "
"WHERE (((wo.created)=#%s#) AND ((wo.creator)=%u) AND ((wo.client)=%u));",
dtNow.Format(_T("%m/%d/%Y %H:%M:%S")),lModifier,lClient);
*/
//NOTE: MODIFIED 11/03/00 added TOP 1 and order by
q.Format("SELECT TOP 1 wo.id FROM wo "
"WHERE (((wo.created)=#%s#) AND ((wo.creator)=%u) AND ((wo.client)=%u)) ORDER BY wo.id DESC;",
dtNow.Format(_T("%m/%d/%Y %H:%M:%S")),lModifier,lClient);
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("Error: Can't locate the workorder record just created.\r\n Contact tech support with the details.");
return;
}
rs2->FetchField("id",&lWOID);
//Create a companion problem record
if(bQuick)
q.Format("INSERT INTO probs ( wolink, creator, created, pmscheduleid ) "
"SELECT %u, %u, #%s#, %u;", lWOID, lModifier, dtNow.Format(_T("%m/%d/%Y %H:%M:%S")), lHeaderID);
else
q.Format("INSERT INTO probs ( "
"wolink, creator, created, brief, notes, pmscheduleid, unit ) "
"SELECT %u, %u, #%s#, \"%s\", \"%s\", %u, %u;",
lWOID, lModifier, dtNow.Format(_T("%m/%d/%Y %H:%M:%S")), strDescription,
strNotes, lHeaderID, bIsClient ? 0 : lLink) ;//if client 0 else link=unit
rs2->Ex(q);
rs2->Close();
//Fetch problem ID just created for parts or labor entries
q.Format("SELECT probs.id FROM probs WHERE (((probs.wolink)=%u));",lWOID);
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("Error: Can't locate the workorder record (problem id) just created.\r\n Contact tech support with the details.");
return;
}
rs2->FetchField("id",&lProbID);
//QUICK WORKORDER: CREATE A LABOUR RECORD
if(bQuick)
{
//v1.9.4.4 get and set default client rates
//various changes in this block
long lDefRate=0;
long lDefTravelRate=0;
q.Format("SELECT clients.defrate, clients.deftravelrate FROM "
"clients WHERE (((clients.id)=%u));",lClient);
rs3->QueryReadOnly(q);
if(!rs3->IsEmpty())
{
rs3->FetchField("defrate",&lDefRate);
rs3->FetchField("deftravelrate",&lDefTravelRate);
}
rs3->Close();
q.Format("INSERT INTO labor ( link, tech, rate, travrate, start, stop, details ) "
"SELECT %u, %u,%u, %u, #%s#, #%s#, \"%s\";",lProbID,lTech,lDefRate,lDefTravelRate,
dtScheduled.Format(_T("%m/%d/%Y")),dtScheduled.Format(_T("%m/%d/%Y")),
strDescription + "\r\n" + strNotes+"\r\n----------\r\n");
rs2->Ex(q);
rs2->Close();
//v1.9.4.4 end of changes in this block
/* PRE 1944 version
q.Format("INSERT INTO labor ( link, tech, start, stop, details ) "
"SELECT %u, %u, #%s#, #%s#, \"%s\";",lProbID,lTech,
dtScheduled.Format(_T("%m/%d/%Y %H:%M:%S")),dtScheduled.Format(_T("%m/%d/%Y %H:%M:%S")),
"Preventive maintenance:\r\n" + strDescription + "\r\n" + strNotes+"\r\n----------\r\n");
rs2->Ex(q);
rs2->Close();*/
}
//STANDARD WORKORDER: CHECK FOR PARTS AND CREATE WOPARTS RECORDS AS NECESSARY
if(!bQuick)
{
q.Format("SELECT pmparts.pmlink, pmparts.partnum, pmparts.quantity, parts.retail, parts.avgcost "
"FROM pmparts LEFT JOIN parts ON pmparts.partnum = parts.id "
"WHERE (((pmparts.pmlink)=%u));",lHeaderID);
rs2->QueryReadOnly(q);
if(!rs2->IsEmpty())
{
COleCurrency crData;
COleCurrency crCost;
CgzCurrencyFormatter cfm;
long lPartID;
float fQuant;
//CREATE PARTS RECORDS UNTIL NO MORE
do {
rs2->FetchField("partnum",&lPartID);
rs2->FetchField("quantity",&fQuant);
rs2->FetchField("retail",&crData);
rs2->FetchField("avgcost",&crCost);
q.Format("INSERT INTO woparts ( "
"link, partnum, quantity, price, cost, usedby, misc ) "
"SELECT %u, %u, %f, '%s', '%s', %u, Null;",lProbID,lPartID,fQuant,cfm.Format(crData),
cfm.Format(crCost),lTech);
rs3->Ex(q);
rs3->Close();
}while(rs2->MoveForward());
}
}
//RESCHEDULE TO REPLACE CONVERTED ITEM OR DELETE IF NOT RECURRING
if(!bAutorpt)
{
//Remove PM ITEM here if not recurring, else just change date/meter count:
q.Format("DELETE pmitems.* FROM pmitems WHERE pmitems.id=%s;",strPMItem);
rs2->Ex(q);
}
else
{//increment this record.
//Find out which record is the highest
q.Format("SELECT TOP 1 pmitems.id "
"FROM pmitems "
"WHERE (((pmitems.pmschedlink)=%u) AND ((pmitems.link)=%u)) "
"ORDER BY pmitems.id DESC;",lHeaderID,lLink);
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("Error: Can't locate the highest pmschedule for rescheduling.\r\n Contact tech support with the details.");
return;
}
rs2->FetchField("id",&lHighestPMID);
//ASCERTAIN THE HIGHEST RECORD
if(lHighestPMID!=atol(strPMItem))//are were already at the highest to convert to workorder?
{//if no: load in the highest records meter and or date data for processing
q.Format("SELECT pmitems.schedate, pmitems.schedmeter FROM pmitems "
"WHERE (((pmitems.id)=%u));",lHighestPMID);
rs2->Query(q);
if(rs2->IsEmpty())
{
AfxMessageBox("Error: Can't open the highest pmschedule for rescheduling.\r\n Contact tech support with the details.");
return;
}
rs2->FetchField("schedmeter",&lSchedMeter);
rs2->FetchField("schedate",&dtScheduled);
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
//INCREMENT DATE OR METER DEPENDING
if(dtScheduled.GetYear()==1968)//it's meter based
{
//Process as a meter based record
//this one's easy:
lSchedMeter+=lRepeat;
}
else //calculate next date based pmitem record
{
//prepare a simpledate class object
CSimpleDate sdTemp(dtScheduled.GetMonth(),dtScheduled.GetDay(),dtScheduled.GetYear());
//Add the months, then increment to the right
//day of week if necessary.
sdTemp.AddDays(lDays);
sdTemp.AddDays(lWeeks*7);
sdTemp.AddMonths(lRepeat);
//*******************************************************************
//ADD DAYS HERE
//*******************************************************************
//Advance to day of week selected.
//temporary version of nDOW to matchup sunday as first day of week
//make our desired date numeric base match the one returned by the getdayofweek
nDOW=(int)lDOW;
if(nDOW==7) //sunday=0 in CSimpleDate land
nTemp=0;
else
nTemp=nDOW;
d=sdTemp.GetDayOfWeek();
if(nDOW==0)//any weekday
{
if(d==0)//sunday
sdTemp.AddDays(1);//move to monday
if(d==6)//saturday
sdTemp.SubtractDays(1);//move to Friday
}
else//specific day
{
while(d!=nTemp)
{
sdTemp.AddDays(1);
d=sdTemp.GetDayOfWeek();
}
}
//set dtTemp back again.
dtScheduled.SetDate(sdTemp.GetYear(),sdTemp.GetMonth(),sdTemp.GetDay());
}
//<<<<<<<<<<<<<<<<<<<<<
//OK, at this point we have incremented either the date
//or the meter reading and can now insert the replacement record
//and then delete the old record
//done this way rather than updating existing record because were
//relying on a higher id value to indicate the farthest "flung" scheduled item
q.Format("INSERT INTO pmitems ( "
"pmschedlink, schedate, schedmeter, autowo, hold, schedtech, "
"link, isclient, clientlink) "
"SELECT %u, #%s#, %u, %s, %s, %u, %u, %s, %u;",
lHeaderID, dtScheduled.Format(_T("%m/%d/%Y")), lSchedMeter, bAutoWO ? "True" : "False",
bHold ? "True" : "False", lTech, lLink, bIsClient ? "True" : "False",
lClient);
rs2->Ex(q);
rs2->Close();
q.Format("DELETE pmitems.* FROM pmitems WHERE pmitems.id=%s;",strPMItem);
rs2->Ex(q);
}
}
}
void CPMCheckDlg::Security()
{
m_bReadOnly=false;
int x=m_pApp->Allowed(RPM,true);
if(x==0)//no access allowed
{
m_pApp->SecurityWarning();
CDialog::OnCancel();
}
if(x==2)//read only
{
m_bReadOnly=true;
CMenu* pMenu=this->GetMenu();
pMenu->EnableMenuItem(1, MF_BYPOSITION | MF_DISABLED | MF_GRAYED);
}
}
Reference in New Issue View Git Blame Copy Permalink