þÿ#include <wobject/xstring.hpp> #include <xcontrol/xtreeview.hpp> #include <xcontrol/xdwgrid.hpp> #include <wobject/xdouble.hpp> #include <xcontrol/xlayersheet.hpp> #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" #include "viewobject/view.base.hpp" using xml = KXMLDOMDocument; class __declspec(dllexport) SamplerequestEdit : public xframe { public: xdwtable dw_base; xnode m_agentNode; //Agent Condition HWND hObject; bool updated; xstring ApproveStatus; xstring positionname; public: SamplerequestEdit(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static SamplerequestEdit* CreateInstance(void* implPtr, void* hWnd) { SamplerequestEdit* pWin = new SamplerequestEdit(implPtr, (HWND)hWnd); return pWin; } int SetAgent() { xstring xfNodeAgentArea = L"agentarea"; xnode anode = GetAgentNode(xfNodeAgentArea); if (m_agentNode) { SetAgentNode(anode, m_agentNode); } else { KXMLDOMElement xframeElement = GetElement(); KXMLDOMElement agent = xframeElement.selectSingleNode(L"agent/" + xfNodeAgentArea + L"[1]/*"); if (agent) { xstring s = agent.xml(); m_agentNode = SetAgentNode(anode, s); } } return 1; } xstring GetEntityName(LPARAM pr) { return L"SampleRequest"; } xstring GetEntityID(LPARAM pr) { return dw_base.GetGuid(1); } //q&p¹oÀm;YtQýep int OnSetFocus(TEvent* evt, LPARAM param) { //‘Ín]åQwga SetAgent(); return 1; } int OnSave() { xstring RequestNO = dw_base.GetItemString(1, L"RequestNO"); xml x ; if (RequestNO == L"") { x = ViewObject::RetrieveData(L"/sale/data/expense3/view/MakeRequestNO"); RequestNO = x.text(); dw_base.SetItemString(1, L"RequestNO", RequestNO); x.Reset(); } dw_base.AcceptText(); dw_base.DwUpdateAllTo(x); xaserverarg arg; arg.AddArg(L"content", x.xml()); if (xurl::get(L"/sale/data/expense3/update/samplerequest", arg.GetString(), x) != 1) { xstring error = x.text(); alert(L"err:" + error); return 1; } xstring str = x.documentElement().getAttribute(L"text"); if (str == L"true") { dw_base.ResetUpdateStatus(); dw_base.Redraw(); updated = true; alert(L"OÝ[XbRŸ!"); } else { alert(L"OÝ[XY1%!"); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(xstring comdid) { if (comdid == L"xmClose") { if (updated) SendMessage(hObject, 0x401, (LPARAM)L"xmRefresh", 0); CloseWindow(); return 1; } else if (comdid == L"xmAddImage") { onAddImage(); return 1; } else if (comdid == L"Image") { xaserverarg arg; xstring guid = dw_base.GetGuid(1); if (guid.length() <= 0) { guid = publiccode::GetGuid(); dw_base.SetGuid(1, guid); } arg.AddArg(L"entityid", guid); arg.AddArg(L"ApproveStatus", ApproveStatus); trace(dw_base.GetGuid(1)); OpenWindow(L"dev:xpage[maint.Document.SampleRequestForm.vx]", arg); return 1; } if (ApproveStatus == L"e°^ú" || ApproveStatus == L"Oîe9" || positionname.find(L""R¡") >= 0) { if (comdid == L"xmLookImage") { onLookImage(); return 1; } else if (comdid == L"xmSave") { if (dw_base.GetItemString(1, L"PurID") == L"") { alert(L"‹÷ bé‘Ǎ-TX"); return 0; } OnSave(); } else if (comdid == L"xmCheck") { xstring ID = dw_base.GetGuid(1); xml x = ViewObject::RetrieveData(L"/sale/data/TDocument3/attachment/GetDocCountEx_s", L"entityid", ID); KXMLDOMNodeList items = x.selectNodes(L"data/Item"); KXMLDOMNode t = items.item(0); if (t.selectSingleNode(L"count")) { xstring Count = t.selectSingleNode(L"count").text(); if (Count.toInt() <= 0) { alert(L"g*N O VþrGÿ eàlÕ[¡by!"); return 0; } } xstring EntityID = dw_base.GetGuid(1); xml xx = ViewObject::RetrieveData(L"/sale/data/expense3/view/SampleRequestFormJudge", L"EntityID", EntityID); xstring Results = xx.text(); if (Results != L"") { alert(Results); return 0; } ProcessFlowAction(L"action:bill.check.ask", 1); PostMessage(GetFrameWindow().GetHWND(), 0x401, (LPARAM)L"xmRefresh", 0); CloseWindow(); return 1; } } return 0; } int onAddImage() { xstring guid = dw_base.GetGuid(1); if (guid == L"") { alert(L"‹÷QHOÝ[XOá`oÿ W(mûR VþrGÿ"); return 1; } else { if (guid.length() <= 0) { guid = publiccode::GetGuid(); dw_base.SetGuid(1, guid); } int ret1 = UpLoad(guid, L"product"); if (ret1 == -1) return -1; if (ret1 == 0) { alert(L"N O e‡NöY1%"); return -1; } else { alert(L"N O e‡NöbRŸ"); } } return 1; } int onLookImage() { xstring guid = dw_base.GetGuid(1); HCURSOR hCursor = xutil::SetCursorWait(); xaserverarg arg; arg.AddArg(L"guid", guid); OpenWindow(L"dev:xpage[paperImage.vx]", arg); xutil::RestoreCursor(hCursor); return 1; } //--------- int UpLoad(xstring name, xstring typ) { xstring str = name.mid(0, 2); str = str.toUpper(); int ret1 = xaserver::Upload(typ + str, name + L".jpg", GetHWND(), L"", false); return ret1; } //T}NäYtN‹Nö int OnXCommand(TEvent* evt, LPARAM param) { return OnCmdDispatch(evt->xcommand.pStrID); } int OnItemChanged(TEvent* evt, LPARAM p) { DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; xstring colname = hdr.colname; xstring value = hdr.data; int row = hdr.row; if (colname == L"FAID") { if (value == L"") return 0; xml x = ViewObject::RetrieveData(L"/sale/data/expense3/view/getContactByFAID", L"SupplierID", value); KXMLDOMNodeList items = x.selectNodes(L"data/Item"); KXMLDOMNode t = items.item(0); if (t.selectSingleNode(L"Name")) { dw_base.SetItemString(1, L"FAContactPerson", t.selectSingleNode(L"Name").text()); } if (t.selectSingleNode(L"Mobile")) { dw_base.SetItemString(1, L"FAContactMethod", t.selectSingleNode(L"Mobile").text()); } } } int OnAttachEvent() { //~Ñ[š]åQwgap¹QûN‹Nö AttachEvent(L"WM_XCOMMAND", (FEvent)&SamplerequestEdit::OnXCommand); //ƒ·SÖq&p¹N‹Nöÿ u(NŽ‘Ín]åQwga AttachEvent(L"WM_SETFOCUS", (FEvent)&SamplerequestEdit::OnSetFocus); AttachEvent(L"dw_base", L"DWV_ITEMCHANGED", (FEvent)&SamplerequestEdit::OnItemChanged); return 1; } int OnRetrieve(xstring RequestID) { xml x ; xaserverarg arg; arg.AddArg(L"RequestID", RequestID); if (getUrl(L"/sale/data/expense3/view/getSapleRequestByID", arg.GetString(), x) != 1) { trace(x.text()); return -1; } else { dw_base.Retrieve(x); dw_base.Redraw(); } return 1; } int onload() { SetArg(); dw_base = GetControl(L"dw_base"); dw_base.openUrl(L"/sale/view/expense3/SampleRequest/Base"); dw_base.SetColHeaderHeight(0); dw_base.SetRowSelectorWidth(0); dw_base.SetHScrollState(false); dw_base.SetVScrollState(false); xstring EntityID = L""; hObject = 0; if (GetWinParam()) { xaserverarg arg = GetArg(); ApproveStatus = arg.GetArgString(L"ApproveStatus"); if (arg.GetArgString(L"RequestID")) { EntityID = arg.GetArgString(L"RequestID"); } else { EntityID = arg.GetArgString(L"EntityID"); } hObject = (HWND)arg.GetParam(L"HWND"); } if (EntityID != L"") { OnRetrieve(EntityID); } else { xstring suserid = publiccode::GetUser().id; xstring susername = publiccode::GetUser().name; xstring sdate = publiccode::GetCurrentDate(); dw_base.SetItemString(1, L"CreateDate", sdate); dw_base.SetItemString(1, L"CreateorID", suserid); dw_base.SetItemString(1, L"RequestDate", sdate); dw_base.SetItemString(1, L"SaleID", suserid); dw_base.SetItemDisplayString(1, L"SaleID", susername); ApproveStatus = L"e°^ú"; } OnAttachEvent(); updated = false; positionname = publiccode::GetUser().positionname; /*if (positionname.find(L"NR¡") >= 0) { dw_base.SetItemString(1, L"Position", L"NR¡"); }*/ if (positionname.find(L"‘Ǎ-") >= 0) { dw_base.SetItemString(1, L"Position", L"‘Ǎ-"); } return 1; } int onloaded() { SetAgent(); return 1; } };