#include <wobject/xstring.hpp>
|
#include <xcontrol/xtreeview.hpp>
|
#include <xcontrol/xdwgrid.hpp>
|
|
#include "vbusiness/vframe/listwin.vframe.vbusiness.hpp"
|
#include "viewobject/view.base.hpp"
|
|
using xml = KXMLDOMDocument;
|
class __declspec(dllexport) MaintAP : public xframe
|
{
|
public:
|
xstring APID;
|
xstring APType;
|
xdwtable dw_base;
|
xnode m_agentNode; //Agent Condition
|
HWND hObject = 0;
|
public:
|
MaintAP(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {}
|
public:
|
static MaintAP* CreateInstance(void* implPtr, void* hWnd)
|
{
|
MaintAP* pWin = new MaintAP(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;
|
}
|
|
//½¹µã¼¤»î´¦Àíº¯Êý
|
int OnSetFocus(TEvent* evt, LPARAM param)
|
{
|
//ÖØÖù¤¾ßÌõ
|
SetAgent();
|
return 1;
|
}
|
int updateAdvance()
|
{
|
xstring AdvanceID = dw_base.GetItemString(1, L"AdvanceID");
|
xstring ChargeOffState = L"Y";
|
xstring ChargeOffDate = dw_base.GetItemString(1, L"APDate");
|
xstring PayedAmount = dw_base.GetItemString(1, L"PayedAmount");
|
xstring val = L"<data><PO><item guid='" + AdvanceID + L"' update.modify='1'>" +
|
L"<ChargeOffState update.modify='1'>" + ChargeOffState + L"</ChargeOffState>" +
|
L"<ChargeOffMoney update.modify='1'>" + PayedAmount + L"</ChargeOffMoney>" +
|
L"<ChargeOffDate update.modify='1'>" + ChargeOffDate + L"</ChargeOffDate></item></PO></data>";
|
xaserverarg arg;
|
|
arg.AddArg(L"content", val);
|
xml x ;
|
|
if (xurl::get(L"/sale/data/PurchaseOrder/update/polistex", arg.GetString(), x) != 1)
|
{
|
xstring error = x.text();
|
//alert(error);
|
return 0;
|
}
|
return 1;
|
}
|
|
int OnSave()
|
{
|
xstring APNo = dw_base.GetItemString(1, L"APNo");
|
xml x ;
|
if (APNo == L"")
|
{
|
x = ViewObject::RetrieveData(L"/sale/data/AP/MakeAPNo");
|
APNo = x.text();
|
dw_base.SetItemString(1, L"APNo", APNo);
|
}
|
xstring AdvanceID = dw_base.GetItemString(1, L"AdvanceID");
|
xstring OrigSysID = dw_base.GetItemString(1, L"OrigSysID");
|
xstring APType1 = dw_base.GetItemString(1, L"APType");
|
if (APType1 != L"000")
|
{
|
if (AdvanceID == L"" && OrigSysID != L"") {
|
alert(L"ÇëתÈë");
|
return 0;
|
}
|
}
|
|
x.Reset();
|
dw_base.AcceptText();
|
dw_base.DwUpdateAllTo(x);
|
xaserverarg arg;
|
|
arg.AddArg(L"content", x.xml());
|
if (xurl::get(L"/sale/data/AP/update", 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();
|
updateAdvance();
|
alert(L"±£´æ³É¹¦!");
|
|
SendMessage(hObject, 0x401, (LPARAM)L"xmRefresh", 0);
|
CloseWindow();
|
}
|
else
|
{
|
alert(L"±£´æʧ°Ü!");
|
}
|
return 1;
|
}
|
|
int OnItemChanged(TEvent* evt, LPARAM p)
|
{
|
DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
|
xstring colname = hdr.colname;
|
xstring value = hdr.data;
|
int row = hdr.row;
|
xstring dwname = L"dw_base";
|
xstring ETD = L"";
|
|
if (value == L"") return 1;
|
if (colname == L"SupplierID")
|
{
|
dw_base.SetItemString(1, L"APSupplierID", dw_base.GetItemString(1, L"SupplierID"));
|
dw_base.SetItemDisplayString(1, L"APSupplierID", dw_base.GetItemDisplayString(1, L"SupplierID"));
|
}
|
if (colname == L"Amount")
|
{
|
dw_base.SetItemString(1, L"PayedAmount", dw_base.GetItemString(1, L"Amount"));
|
}
|
if (colname == L"InvoiceNo")
|
{
|
dw_base.SetItemString(1, L"NotifyInvoiceNo", dw_base.GetItemString(1, L"InvoiceNo"));
|
|
xml x11 = ViewObject::RetrieveData(L"/sale/data/AP/GetInvoiceNo", L"InvoiceNo", dw_base.GetItemString(1, L"InvoiceNo"));
|
if (x11)
|
{
|
ETD = x11.text();
|
}
|
dw_base.SetItemString(1, L"GDNDate", ETD);
|
}
|
|
return 1;
|
|
}
|
int OnImport()
|
{
|
xaserverarg arg1;
|
|
arg1.AddArg(L"PONo", dw_base.GetItemString(1, L"PONo"));
|
OpenWindow(L"dev:xpage[Select.AP.vx]", arg1);
|
xstring str = arg1.GetArgString(L"items");
|
if (str != L"")
|
{
|
xml x ;
|
|
x.loadXML(str);
|
KXMLDOMNodeList items = x.selectNodes(L"data/item");
|
KXMLDOMNode t = items.item(0);
|
KXMLDOMNodeList items1 = x.selectNodes(L"data");
|
KXMLDOMNode t1 = items1.item(0);
|
if (t1.selectSingleNode(L"item/@guid"))dw_base.SetItemString(1, L"AdvanceID", t1.selectSingleNode(L"item/@guid").text());
|
if (t.selectSingleNode(L"PONo"))dw_base.SetItemString(1, L"PONo", t.selectSingleNode(L"PONo").text());
|
if (t.selectSingleNode(L"OrgName"))dw_base.SetItemString(1, L"OrgName", t.selectSingleNode(L"OrgName").text());
|
if (t.selectSingleNode(L"SalespersonID/@_displaystring"))dw_base.SetItemDisplayString(1, L"SalespersonID", t.selectSingleNode(L"SalespersonID/@_displaystring").text());
|
if (t.selectSingleNode(L"SalespersonID"))dw_base.SetItemString(1, L"SalespersonID", t.selectSingleNode(L"SalespersonID").text());
|
if (t.selectSingleNode(L"AdvancedMoney"))dw_base.SetItemString(1, L"Amount", t.selectSingleNode(L"AdvancedMoney").text());
|
if (t.selectSingleNode(L"AdvancedMoney"))dw_base.SetItemString(1, L"PayedAmount", t.selectSingleNode(L"AdvancedMoney").text());
|
if (t.selectSingleNode(L"PartyID"))dw_base.SetItemString(1, L"SupplierID", t.selectSingleNode(L"PartyID").text());
|
if (t.selectSingleNode(L"PartyID"))dw_base.SetItemString(1, L"APSupplierID", t.selectSingleNode(L"PartyID").text());
|
if (t.selectSingleNode(L"ShortName"))dw_base.SetItemDisplayString(1, L"APSupplierID", t.selectSingleNode(L"ShortName").text());
|
if (t.selectSingleNode(L"ShortName"))dw_base.SetItemDisplayString(1, L"SupplierID", t.selectSingleNode(L"ShortName").text());
|
if (t.selectSingleNode(L"SONo"))dw_base.SetItemString(1, L"SONO", t.selectSingleNode(L"SONo").text());
|
|
if (t.selectSingleNode(L"POAmount"))dw_base.SetItemString(1, L"POAmount", t.selectSingleNode(L"POAmount").text());
|
}
|
return 1;
|
}
|
//ÃüÁî·¢²¼º¯Êý
|
int OnCmdDispatch(xstring comdid)
|
{
|
if (comdid == L"xmImport")
|
{
|
OnImport();
|
return 1;
|
}
|
else if (comdid == L"xmClose")
|
{
|
CloseWindow();
|
return 1;
|
}
|
else if (comdid == L"xmSave")
|
{
|
return OnSave();
|
}
|
return 0;
|
}
|
|
//ÃüÁî´¦Àíʼþ
|
int OnXCommand(TEvent* evt, LPARAM param)
|
{
|
return OnCmdDispatch(evt->xcommand.pStrID);
|
}
|
|
int OnAttachEvent()
|
{
|
//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
|
AttachEvent(L"WM_XCOMMAND", (FEvent)&MaintAP::OnXCommand);
|
AttachEvent(L"dw_base", L"DWV_ITEMCHANGED", (FEvent)&MaintAP::OnItemChanged);
|
//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
|
AttachEvent(L"WM_SETFOCUS", (FEvent)&MaintAP::OnSetFocus);
|
return 1;
|
}
|
|
int OnRetrieve()
|
{
|
xml x ;
|
|
xaserverarg arg;
|
|
arg.AddArg(L"EntityID", APID);
|
if (getUrl(L"/sale/data/AP/base", arg.GetString(), x) != 1)
|
{
|
trace(x.text());
|
return -1;
|
}
|
else
|
{
|
dw_base.Retrieve(x);
|
dw_base.Redraw();
|
}
|
return 1;
|
}
|
|
int onload()
|
{
|
SetArg();
|
APID = L"";
|
APType = L"";
|
if (GetWinParam())
|
{
|
xaserverarg arg=GetArg();
|
|
APID = arg.GetArgString(L"APID");
|
APType = arg.GetArgString(L"APType");
|
}
|
dw_base = GetControl(L"dw_base");
|
dw_base.openUrl(L"/sale/view/AP/template/Base1");
|
dw_base.SetColHeaderHeight(0);
|
dw_base.SetRowSelectorWidth(0);
|
dw_base.SetHScrollState(false);
|
dw_base.SetVScrollState(false);
|
|
OnAttachEvent();
|
|
if (APID != L"")
|
{
|
OnRetrieve();
|
}
|
else
|
{
|
xstring sdate = publiccode::GetCurrentDate();
|
dw_base.SetItemString(1, L"APDate", sdate);
|
dw_base.SetItemString(1, L"PayedDate", sdate);
|
dw_base.SetItemString(1, L"CreateDate", sdate);
|
xstring suserid = publiccode::GetUser().id;
|
xstring susername = publiccode::GetUser().name;
|
dw_base.SetItemString(1, L"CreatorID", suserid);
|
dw_base.SetItemDisplayString(1, L"CreatorID", susername);
|
dw_base.SetItemString(1, L"APType", L"001");
|
dw_base.SetItemDisplayString(1, L"APType", L"Ô¤¸¶¿î");
|
dw_base.SetItemString(1, L"ApprovalStatus", L"6");
|
|
}
|
for (int m = 1; m <= dw_base.GetColumnCount(); m++)
|
{
|
xstring col = dw_base.GetColumnName(m);
|
if (col == L"OrgName" || col == L"APNo")
|
dw_base.SetColumnProp(col.c_str(), L"cellprotect", L"1");
|
}
|
return 1;
|
}
|
|
int onloaded()
|
{
|
SetAgent();
|
|
return 1;
|
}
|
};
|
