#include <wobject/xstring.hpp>
|
#include <xcontrol/xtreeview.hpp>
|
#include <xcontrol/xdwgrid.hpp>
|
#include <xcontrol/xcell.hpp>
|
|
|
#include "vbusiness/vframe/listwin.vframe.vbusiness.hpp"
|
#include "viewobject/view.base.hpp"
|
#include "xcontrol/xhtml.hpp"
|
|
using xml = KXMLDOMDocument;
|
class __declspec(dllexport) MessageBusinessWin : public xframe
|
{
|
public:
|
//xdwgrid dw_list;
|
xdwtable dw_base;
|
xnode m_agentNode; //Agent Condition
|
xwin sheet;
|
bool readonly;
|
xstring MessageID;
|
xstring bill;
|
|
public:
|
MessageBusinessWin(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd),sheet(0) {}
|
public:
|
static MessageBusinessWin* CreateInstance(void* implPtr, void* hWnd)
|
{
|
MessageBusinessWin* pWin = new MessageBusinessWin(implPtr, (HWND)hWnd);
|
return pWin;
|
}
|
int SetAgent()
|
{
|
return 1;
|
|
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;
|
}
|
|
//½¹µã¼¤»î´¦Àíº¯Êý
|
int OnSetFocus(TEvent* evt, LPARAM param)
|
{
|
//ÖØÖù¤¾ßÌõ
|
SetAgent();
|
return 1;
|
}
|
|
int OnItemChanged(TEvent* evt, int p)
|
{
|
DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
|
xstring colname=hdr.colname;
|
xstring value = hdr.data;
|
int row = hdr.row;
|
|
if(colname==L"Category")
|
{
|
if(value==L"¹©Ó¦ÉÌÉêÇë")
|
{
|
dw_base.SetItemString(1,L"Receiver",L"fdp-011");
|
dw_base.SetItemString(1,L"Subject",L"ÇëÌí¼Ó");
|
}
|
return 1;
|
|
bool changed = false;
|
xml x = ViewObject::RetrieveData(L"/sale/data/business/message/maint",L"typ",value);
|
if(x)
|
{
|
xstring xpage_ = x.documentElement().getAttribute(L"xpage");
|
xstring templaterpt = x.documentElement().getAttribute(L"template");
|
if(xpage_ !=L"")
|
{
|
xstring s = L"<hbox name='agent'>";
|
s += L"<xpage url='" + xpage_ + L"' name='contentex'/>";
|
s += L"</hbox>";
|
SetAgentNode (GetAgentNode(L"agent"),s);
|
SwitchLayer(L"sheet2",L"frame");
|
sheet = GetChildWin(L"contentex");
|
changed = true;
|
}
|
}
|
if(!changed)
|
{
|
sheet = 0;
|
SwitchLayer(L"sheet1",L"frame");
|
}
|
}
|
|
return 1;
|
}
|
|
//ÃüÁî·¢²¼º¯Êý
|
int OnCmdDispatch(xstring comdid)
|
{
|
if(comdid==L"xmSend")
|
{
|
if(!readonly) OnSend();
|
return 1;
|
}
|
else if(comdid==L"xmSave")
|
{
|
if(!readonly) OnSave();
|
return 1;
|
}
|
else if(comdid==L"xmCancel")
|
{
|
CloseWindow();
|
return 1;
|
}
|
if(sheet && comdid !=L"")
|
{
|
int ret =SendMessage(GetHWND(),0x401,(LPARAM)comdid,0);
|
if(ret) return ret;
|
}
|
|
return 0;
|
}
|
|
//ÃüÁî´¦Àíʼþ
|
int OnXCommand(TEvent* evt, LPARAM param)
|
{
|
return OnCmdDispatch(evt->xcommand.pStrID);
|
}
|
|
|
int OnDWClick(TEvent* evt, int p)
|
{
|
DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
|
xstring value = hdr.data;
|
xstring colname = hdr.colname;
|
if (value == L"ÊÕ¼þÈË:")
|
{
|
|
xaserverarg arg2 ;
|
xaserverarg parg2 = GetArg();
|
OpenWindow(L"dev:xpage[UserGroupPersonSelect.vx]",arg2);
|
|
if(arg2.GetArgString(L"comdid")==L"xmOk")
|
{
|
xstring data = arg2.GetArgString(L"data");
|
xml x2;
|
|
x2.loadXML(data);
|
KXMLDOMNodeList nodes = x2.selectNodes(L"/root/item");
|
trace(x2.xml());
|
|
int len = nodes.length();
|
|
xstring Names = L"";
|
for(int i=0;i<len; i++)
|
{
|
KXMLDOMElement t= nodes.item(i);
|
|
if(t.getAttribute(L"Name"))
|
{
|
xstring Name = t.getAttribute(L"Name");
|
if(Names==L"")
|
Names = Name;
|
else if(Names.find(Name) < 0) Names+=L";"+Name;
|
}
|
}
|
dw_base.SetItemString(1,L"Receiver",Names);
|
}
|
return 1;
|
}
|
|
}
|
|
int OnAttachEvent()
|
{
|
//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
|
AttachEvent(L"WM_XCOMMAND", (FEvent)&MessageBusinessWin::OnXCommand);
|
//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
|
AttachEvent(L"WM_SETFOCUS", (FEvent)&MessageBusinessWin::OnSetFocus);
|
|
AttachEvent(L"dw_base",L"DWV_ITEMCHANGED", (FEvent)&MessageBusinessWin::OnItemChanged);
|
AttachEvent(L"dw_base",L"DWV_CLICKED", (FEvent)&MessageBusinessWin::OnDWClick);
|
|
return 1;
|
}
|
|
int OnSave()
|
{
|
xml x ;
|
|
xaserverarg arg1 = MakeArg(L"scriptbox");
|
xstring murl = L"/sale/data/Business/message/update";
|
if(MessageID==L"") murl = L"/sale/data/Business/message/add2";
|
if(xurl::get(murl, arg1.GetString(),x)!=1)
|
{
|
alert((xstring)L"error1:\r\n"+x.text());
|
return 1;
|
}
|
if(MessageID==L"") MessageID= dw_base.GetGuid(1);
|
alert(L"Òѱ£´æµ½²Ý¸åÏä");
|
return 1;
|
|
xaserverarg arg;
|
|
if(sheet)
|
{
|
|
SendMessage(sheet.GetHWND(),0x401,(LPARAM)(L"GetEntityData:"+xstring((__int64) & arg)).c_str(true), 0);
|
xstring data = arg.GetArgString(L"EntityData");
|
murl = L"/sale/data/Business/message/attach/update";
|
arg1.AddArg(L"url",L"message/attach");
|
arg1.AddArg(L"content",data);
|
arg1.AddArg(L"param",MessageID);
|
if(xurl::get(murl, arg1.GetString(),x)!=1)
|
{
|
alert((xstring)L"error2:\r\n"+x.text());
|
return 1;
|
}
|
}
|
return 1;
|
}
|
|
int OnSend()
|
{
|
xml x ;
|
//xaserverarg arg1 = MakeArg(L"outbox");
|
xaserverarg arg1 = MakeArg(L"inbox");
|
xstring murl = L"/sale/data/Business/message/update";
|
if(MessageID==L"") murl = L"/sale/data/Business/message/add2";
|
|
trace(arg1.GetString());
|
|
if(xurl::get(murl, arg1.GetString(),x)!=1)
|
{
|
alert((xstring)L"error1:\r\n"+x.text());
|
return 1;
|
}
|
if(MessageID==L"") MessageID= dw_base.GetGuid(1);
|
alert(L"·¢ËÍÍê³É");
|
CloseWindow();
|
|
return 1;
|
|
xaserverarg arg;
|
|
if(sheet)
|
{
|
|
SendMessage(sheet.GetHWND(),0x401, (LPARAM)(L"GetEntityData:" + xstring((__int64)&arg)).c_str(true),0);
|
xstring data = arg.GetArgString(L"EntityData");
|
murl = L"/sale/data/Business/message/attach/update";
|
arg1.AddArg(L"url",L"message/attach");
|
arg1.AddArg(L"content",data);
|
arg1.AddArg(L"param",MessageID);
|
if(xurl::get(murl, arg1.GetString(),x)!=1)
|
{
|
alert((xstring)L"error2:\r\n"+x.text());
|
return 1;
|
}
|
}
|
return 1;
|
}
|
|
xaserverarg MakeArg(xstring folder)
|
{
|
//ThingImpl:AddMessage($MessageID,$Folder,$EntityNo, $EntityID, $Subject, $Category, $Reciever, $Content)
|
//ThingImpl:UpdateMessage($MessageID,$Folder,$EntityNo, $EntityID, $Subject, $Category, $Reciever, $Content)
|
|
xaserverarg arg;
|
|
|
if(MessageID==L"")
|
{
|
dw_base.SetGuid(1,ViewObject::GetGuid());
|
arg.AddArg(L"MessageID", dw_base.GetGuid(1));
|
arg.AddArg(L"EntityID", dw_base.GetGuid(1));
|
}
|
else
|
{
|
arg.AddArg(L"MessageID", MessageID);
|
arg.AddArg(L"EntityID", MessageID);
|
}
|
|
arg.AddArg(L"Folder", folder);
|
arg.AddArg(L"EntityNo", dw_base.GetItemString(1,L"EntityNo"));
|
arg.AddArg(L"Subject", dw_base.GetItemString(1,L"Subject"));
|
arg.AddArg(L"Category", dw_base.GetItemString(1,L"Category"));
|
arg.AddArg(L"Reciever", dw_base.GetItemString(1,L"Receiver"));
|
arg.AddArg(L"Note", dw_base.GetItemString(1,L"Note"));
|
//arg.AddArg(L"Content", dw_base.GetItemString(1,L"Content"));
|
arg.AddArg(L"Content",xcontrol(GetControl(L"sle_search")).GetText());
|
arg.AddArg(L"Content2",bill);
|
return arg;
|
}
|
|
int OnRetrieve()
|
{
|
xml x;
|
|
xaserverarg arg;
|
|
arg.AddArg(L"id",MessageID);
|
if (getUrl(L"/sale/data/business/list/fetch",arg.GetString(),x)!=1)
|
{
|
trace(x.text());
|
return -1;
|
}else
|
{
|
dw_base.Retrieve(x);
|
dw_base.Redraw();
|
if(readonly) dw_base.SetReadOnly(true);
|
|
if(x.selectSingleNode(L"root/Content"))
|
{
|
xstring str = x.selectSingleNode(L"root/Content").text();
|
str = str.replace(L"\n",L"\r\n");
|
SetWindowText(GetControl(L"content")->GetHWND(),str.c_str());
|
}
|
//alert(x.xml());
|
if(x.selectSingleNode(L"root/Content2"))
|
{
|
|
xstring str2 = x.selectSingleNode(L"root/Content2").text();
|
xstring tm=L"";
|
xstring EntityID=L"";
|
xstring Category=L"";
|
int pos = str2.find(L"EntityID=L");
|
if(pos >= 0)
|
{
|
tm = str2.mid(pos + ((xstring)L"EntityID=").length(),64);
|
if(tm.find(L" ")>0) tm = tm.left(tm.find(L" "));
|
EntityID=tm;
|
}
|
pos = str2.find(L"Category=L");
|
if(pos >= 0)
|
{
|
tm = str2.mid(pos+((xstring)L"Category=").length(),64);
|
if(tm.find(L" ")>0) tm = tm.left(tm.find(L" "));
|
Category=tm;
|
}
|
trace(L"EntityID:"+EntityID);
|
trace(L"Category:"+Category);
|
if(EntityID != L"" && Category != L"")
|
{
|
xstring eleStr = L"<row EntityID='"+EntityID+L"'";
|
eleStr += L" category='" + Category + L"'/>";
|
bill = L"EntityID=L"+EntityID+L" Category=L" + Category;
|
ShowDetail(eleStr);
|
}
|
}
|
}
|
return 1;
|
}
|
|
int ShowDetail(xstring eleStr)
|
{
|
xaserverarg arg;
|
|
arg.AddArg(L"content",eleStr);
|
xml doc;
|
|
if(getUrl(L"/sale/data/vpage/vstart/task",arg.GetString(),doc)!=1)
|
{
|
trace((xstring)L"error->:"+doc.xml());
|
return 0;
|
}
|
if(doc.xml() == L"")
|
return -1;
|
|
xhtml ht = GetControl(L"taskinfo");
|
ht.LoadHtml(doc.xml());
|
ht.Redraw();
|
|
return 1;
|
}
|
|
int onload()
|
{
|
SetArg();
|
dw_base = GetControl(L"dw_base");
|
dw_base.openUrl(L"/sale/view/business3/template/message/maint");
|
dw_base.SetColHeaderHeight(0);
|
dw_base.SetRowSelectorWidth(0);
|
dw_base.SetHScrollState(false);
|
dw_base.SetVScrollState(false);
|
|
dw_base.SetItemString(1,L"Category",L"ÆÕͨ");
|
|
OnAttachEvent();
|
|
readonly = false;
|
MessageID = L"";
|
bill = L"";
|
|
SetAgent();
|
if(GetWinParam())
|
{
|
xaserverarg arg = GetArg();
|
MessageID = arg.GetArgString(L"id");
|
if(arg.GetArgString(L"readonly")==L"1") readonly=true;
|
OnRetrieve();
|
|
if(arg.GetArgString(L"EntityID")!=L"")
|
{
|
xstring str = L"<row EntityID='"+arg.GetArgString(L"EntityID")+L"'";
|
str += L" category='" + arg.GetArgString(L"EntityName")+L"'/>";
|
bill = L"EntityID=L"+arg.GetArgString(L"EntityID")+L" Category=L" + arg.GetArgString(L"EntityName");
|
ShowDetail(str);
|
}
|
}
|
|
return 1;
|
}
|
|
int onloaded()
|
{
|
|
return 1;
|
}
|
};
|
