| | |
| | | #include <wobject/xstring.hpp> |
| | | #include <xcontrol/xtreeview.hpp> |
| | | #include <xcontrol/xdwgrid.hpp> |
| | | use "xcontrol.vframe.vbusiness.vd" |
| | | use "xbase.vframe.vbusiness.vd" |
| | | use "enquiry.view.vd" |
| | | use "quote.view.vd" |
| | | use "publiccode.vutil.vbusiness.vd" |
| | | |
| | | #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" |
| | | #include "viewobject/view.base.hpp" |
| | | |
| | | using xml = KXMLDOMDocument; |
| | | class __declspec(dllexport) listSupplierv3 : public listwin |
| | | { |
| | | public: |
| | | xdwgrid dw_goods; |
| | | xtreeview tv_1; |
| | | xcombobox ddlb_1; |
| | | int changeddlb; |
| | | xstring TypeWork; |
| | | xstring GoodsUrl; |
| | | xstring m_sType; //type |
| | | xstring m_sTypeTxt; //选中树的data |
| | | // xstring m_searchtxt; |
| | | int PIndex; |
| | | xnode m_agentNode; //Agent Condition |
| | | xstring m_agentCond; //Agent Node |
| | | |
| | | public: |
| | | listSupplierv3(void* implPtr, HWND hWnd) :listwin(implPtr, hWnd) {} |
| | | public: |
| | | static listSupplierv3* CreateInstance(void* implPtr, void* hWnd) |
| | | unit trade |
| | | [ |
| | | class EnquiryMaintView : public frame |
| | | { |
| | | listSupplierv3* pWin = new listSupplierv3(implPtr, (HWND)hWnd); |
| | | return pWin; |
| | | } |
| | | int OnRetrieve() |
| | | { |
| | | xml x; |
| | | xdwgrid dw_goods; |
| | | xdwtable dw_base; |
| | | |
| | | xaserverarg arg; |
| | | arg.AddArg(L"pageindex", xstring(PIndex)); //第几页 |
| | | arg.AddArg(L"pagenumber", xstring(listwin::m_pageNumber)); //每页数量 |
| | | arg.AddArg(L"QueryTxt", listwin::m_QueryTxt); |
| | | arg.AddArg(L"sType", m_sType); |
| | | arg.AddArg(L"sTypeTxt", m_sTypeTxt); |
| | | trace(arg.GetString()); |
| | | //alert(L"xxxx"); |
| | | if (getUrl(GetServerUrl(), L"/sale/data/" + GetEntityName(1) + L"/entity/list", arg.GetString(), x) != 1) |
| | | xnode m_agentNode; //Agent Condition |
| | | string sheetname; |
| | | |
| | | int SetAgent() |
| | | { |
| | | return -1; |
| | | } |
| | | else |
| | | { |
| | | KXMLDOMElement e = x.documentElement(); |
| | | if (listwin::dw_pages && e.selectSingleNode(L"@TotalPage")) |
| | | string xfNodeAgentArea = "agentarea"; |
| | | xnode anode = GetAgentNode(xfNodeAgentArea); |
| | | if (m_agentNode) |
| | | { |
| | | xstring s = e.selectSingleNode(L"@TotalPage").text(); //总数量 |
| | | listwin::dw_pages.SetMaxPage(s.toInt()); |
| | | SetAgentNodeContent(anode, m_agentNode); |
| | | } |
| | | //alert(x.GetXml()); |
| | | dw_list.Retrieve(x); |
| | | dw_list.Redraw(); |
| | | dw_list.SetReadOnly(true); |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | int SetEntityData(xaserverarg arg) |
| | | { |
| | | xstring strQueryTxt = arg.GetArgString(L"QueryTxt"); |
| | | xml x; |
| | | |
| | | arg.AddArg(L"sType", m_sType); |
| | | arg.AddArg(L"sTypeTxt", m_sTypeTxt); |
| | | trace(arg.GetString()); |
| | | if (getUrl(GetServerUrl(), L"/sale/data/" + GetEntityName(1) + L"/entity/list", arg.GetString(), x) != 1) |
| | | { |
| | | alert(x.text()); |
| | | |
| | | return -1; |
| | | } |
| | | else |
| | | { |
| | | KXMLDOMElement e = x.documentElement(); |
| | | if (listwin::dw_pages && e.selectSingleNode(L"@TotalPage")) |
| | | else |
| | | { |
| | | |
| | | xstring s = e.selectSingleNode(L"@TotalPage").text(); //总数量 |
| | | listwin::dw_pages.SetMaxPage(s.toInt()); |
| | | } |
| | | //trace(x.GetXml()); |
| | | listwin::dw_list.Retrieve(x); |
| | | listwin::dw_list.Redraw(); |
| | | listwin::dw_list.SetReadOnly(true); |
| | | } |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int OnChangePages(TEvent* evt, LPARAM p) |
| | | { |
| | | PAGENMHDR* h = (PAGENMHDR*)evt->notify.pnmh; |
| | | int c = h->cur; |
| | | |
| | | |
| | | HCURSOR hCursor = xutil::SetCursorWait(); |
| | | OnRetrieve(); |
| | | PIndex = c; |
| | | xutil::RestoreCursor(hCursor); |
| | | return 1; |
| | | |
| | | |
| | | } |
| | | |
| | | int ViewUpdate(int pr, xstring updateItem, xaserverarg arg) |
| | | { |
| | | if (updateItem == L"refresh") |
| | | { |
| | | //trace(L"sd"); |
| | | xdwpages zz = GetControl(L"pages"); |
| | | int h = zz.SetCurPage(1); |
| | | //trace(h); |
| | | OnRetrieve(); |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | //树选择 |
| | | int OnTreeSelChanged(TEvent evt, LPARAM p) |
| | | { |
| | | if (changeddlb != 1) |
| | | { |
| | | //alert(L"1"); |
| | | |
| | | HTREEITEM h = tv_1.GetSelectedItem(); |
| | | KXMLDOMElement& e = *(KXMLDOMElement*)tv_1.GetItemData(h); |
| | | |
| | | xstring t = e.selectSingleNode(L"@type").text(); |
| | | m_sType = t + L""; |
| | | xstring txt = e.selectSingleNode(L"@code").text(); |
| | | if (txt == L"") |
| | | txt = e.selectSingleNode(L"@name").text(); |
| | | m_sTypeTxt = txt + L""; |
| | | |
| | | //alert(m_sTypeTxt); |
| | | |
| | | PIndex = 1; |
| | | OnRetrieve(); |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | int createSubTree(HTREEITEM h, KXMLDOMElement ele) |
| | | { |
| | | KXMLDOMNodeList nlist = ele.selectNodes(L"item"); |
| | | int i; |
| | | int s = nlist.length(); |
| | | if (s > 0) |
| | | for (i = 0; i < s; i++) |
| | | { |
| | | |
| | | KXMLDOMElement* e = new KXMLDOMElement(nlist.item(i)); |
| | | xstring name = e->selectSingleNode(L"@name").text(); |
| | | HTREEITEM hw = tv_1.InsertChildItem(h, name, (LPARAM)e, 15); |
| | | createSubTree(hw, *e); |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | int OnCreateTree(xstring sType) |
| | | { |
| | | |
| | | while (tv_1.GetRootItem()) |
| | | tv_1.DeleteItem(tv_1.GetRootItem()); |
| | | |
| | | xml x; |
| | | |
| | | xaserverarg arg; |
| | | |
| | | arg.AddArg(L"sType", sType); |
| | | //Tree.pref.supplier.xq |
| | | //getUrl(GetEntityName(1)+L"/entity/list",arg.GetString(),x); |
| | | //if (xaserver::ExecXQuery(GetServerUrl(),L"[Tree.pref.supplier.xq]",arg.GetString(),x)!=1) |
| | | if (getUrl(GetServerUrl(), L"/sale/data/" + GetEntityName(1) + L"/pref/list/tree", arg.GetString(), x) != 1) |
| | | { |
| | | trace(x.text()); |
| | | return -1; |
| | | } |
| | | else |
| | | { |
| | | KXMLDOMNodeList nlist = x.selectNodes(L"root/item"); |
| | | int len = nlist.length(); |
| | | if (len > 0) |
| | | { |
| | | int i; |
| | | for (i = 0; i < len; i++) |
| | | msxml::IXMLDOMElement xframeElement = GetElement(); |
| | | msxml::IXMLDOMElement agent = xframeElement.selectSingleNode("agent/" + xfNodeAgentArea + "[1]/*"); |
| | | if (agent) |
| | | { |
| | | |
| | | KXMLDOMElement* e = new KXMLDOMElement(nlist.item(i)); |
| | | xstring name = e->selectSingleNode(L"@name").text(); |
| | | HTREEITEM hw = tv_1.InsertChildItem(0, name, (LPARAM)e, 15); |
| | | |
| | | createSubTree(hw, *e); |
| | | tv_1.ExpandItem(hw); |
| | | string s = agent.xml; |
| | | m_agentNode = SetAgentNodeContent(anode, s); |
| | | } |
| | | tv_1.ExpandItem(0); |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | return 1; |
| | | } |
| | | //焦点激活处理函数 |
| | | int OnSetFocus(ref TEvent evt, int param) |
| | | { |
| | | //重置工具条 |
| | | SetAgent(); |
| | | return 1; |
| | | } |
| | | |
| | | //xcombobox下拉 |
| | | int OnSelectDdlb(TEvent evt, LPARAM p) |
| | | { |
| | | changeddlb = 1; |
| | | string GetEntityData(int pr) |
| | | { |
| | | dw_base.AcceptText(); |
| | | dw_goods.AcceptText(); |
| | | if (dw_base.GetItemString(1, "EnquiryNo") == "") |
| | | { |
| | | string EnquiryNo = EnquiryView::MakeBillNo(); |
| | | dw_base.SetItemString(1, "EnquiryNo", EnquiryNo); |
| | | } |
| | | |
| | | int CB_GETCURSEL = 0x0147; |
| | | int nIndex = SendMessageW(ddlb_1.GetHWND(), CB_GETCURSEL, 0, 0); |
| | | KXMLDOMElement e = ddlb_1.GetElement();//GetitemData(wid,nIndex);//ddlb_1.GetElement(); |
| | | KXMLDOMElement e2 = e.selectSingleNode(L"item[" + xstring((nIndex + 1)) + L"]"); |
| | | xstring text = e2.selectSingleNode(L"@element").text(); |
| | | OnCreateTree(text); |
| | | changeddlb = 0; |
| | | return 1; |
| | | } |
| | | xml x = new xml; |
| | | x.setNativePointer(xml::CreateInstance()); |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | dw_goods.DwUpdateAllToEx(x.GetXmlDoc()); |
| | | dw_base.DwUpdateAllTo(x.GetXmlDoc()); |
| | | return x.GetXml(); |
| | | } |
| | | |
| | | int OnDeleteRow() |
| | | { |
| | | int row = listwin::dw_list.GetNextSelectRow(1); |
| | | if (row < 1) { |
| | | row = listwin::dw_list.GetRow(); |
| | | if (row < 1) { |
| | | //win::MessageBox(GetHWND(),L"请选中要删除的行!",L"提示",0); |
| | | int SetSeqNo(xdwgrid dw_obj, string SeqNoColumn, int nRow) |
| | | { |
| | | if (nRow > 1) |
| | | { |
| | | int SeqNo = dw_goods.GetItemInt(nRow - 1, SeqNoColumn); |
| | | if (SeqNo != 0) SeqNo += 10; else SeqNo = nRow * 10; |
| | | dw_obj.SetItemInt(nRow, SeqNoColumn, SeqNo); |
| | | } |
| | | else |
| | | dw_obj.SetItemInt(nRow, SeqNoColumn, 10); |
| | | return 1; |
| | | } |
| | | |
| | | int Adjust() |
| | | { |
| | | string str; |
| | | for (int i = 1; i <= dw_goods.GetRowCount(); i++) |
| | | { |
| | | str = dw_goods.GetItemString(i, "SupplierID"); |
| | | if (dw_goods.GetItemString(i, "ItemID") != "") |
| | | if (str == "") |
| | | { |
| | | if (i > 1) |
| | | { |
| | | if (dw_goods.GetItemString(i - 1, "SupplierID") != "") |
| | | { |
| | | dw_goods.SetItemDisplayString(i, "SupplierID", dw_goods.GetItemDisplayString(i - 1, "SupplierID")); |
| | | dw_goods.ItemChangeTo(i, "SupplierID", dw_goods.GetItemString(i - 1, "SupplierID")); |
| | | } |
| | | } |
| | | } |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | int OnSave() |
| | | { |
| | | dw_base.AcceptText(); |
| | | dw_goods.AcceptText(); |
| | | if (dw_base.GetItemString(1, "Remark") != "保存") |
| | | { |
| | | if (dw_base.GetItemString(1, "EnquiryNo") == "") |
| | | { |
| | | string EnquiryNo = EnquiryView::MakeBillNo(); |
| | | dw_base.SetItemString(1, "EnquiryNo", EnquiryNo); |
| | | } |
| | | |
| | | if (dw_base.GetItemString(1, "ValidDay") == "") |
| | | { |
| | | alert("请输入有效期!"); |
| | | return 1; |
| | | } |
| | | /*if(dw_base.GetItemString(1,"SupplierID")=="") |
| | | { |
| | | alert("供应商为空!"); |
| | | return 1; |
| | | }*/ |
| | | if (dw_base.GetItemString(1, "Source") == "") |
| | | { |
| | | alert("请输入询价类别!"); |
| | | return 1; |
| | | } |
| | | string Packing = ""; |
| | | string Packings = ""; |
| | | Adjust(); |
| | | for (int i = 1; i <= dw_goods.GetRowCount(); i++) |
| | | { |
| | | if (dw_goods.GetItemString(i, "ItemMiniQty") == "") |
| | | { |
| | | alert("请输入起订量!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "Picture") == "") |
| | | { |
| | | alert("请 " + i.toString() + "行,上传产品图片!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "POPrice") == "" || dw_goods.GetItemString(i, "POPrice") == ".000") |
| | | { |
| | | alert("请输入采购价!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "PriceType") == "") |
| | | { |
| | | alert("请输入价格类型!"); |
| | | return 1; |
| | | } |
| | | |
| | | if (dw_goods.GetItemString(i, "SampleFee") == "") |
| | | { |
| | | alert("请输入打样费!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "TestFee") == "") |
| | | { |
| | | alert("请输入测试费!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "ModelFee") == "") |
| | | { |
| | | alert("请输入模具费!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "VolumeDesc") == "") |
| | | { |
| | | alert("请输入包装尺码!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "WarehousingReason") == "") |
| | | { |
| | | alert("请输入入库理由!"); |
| | | return 1; |
| | | } |
| | | |
| | | /*if(dw_goods.GetItemString(i,"Packing") !="") |
| | | { |
| | | Packing = dw_goods.GetItemString(i,"Packing"); |
| | | if(Packings=="") |
| | | Packings = Packing; |
| | | else if(Packings.find(Packing) < 0) Packings+=","+Packing; |
| | | }*/ |
| | | if (dw_goods.GetItemString(i, "Packing") == "") |
| | | { |
| | | alert("请输包装方式!"); |
| | | return 1; |
| | | } |
| | | else |
| | | { |
| | | xml xx = ViewObject::RetrieveData("/sale/data/Enquiry/GetPacking", "str", dw_goods.GetItemString(i, "Packing")); |
| | | string Results = xx.GetXmlDoc().text; |
| | | int ResultsInt = Results.toInt(); |
| | | if (ResultsInt == 0) |
| | | { |
| | | alert("第" + i.toString() + "行包装方式错误,请重新选择!"); |
| | | return 1; |
| | | } |
| | | } |
| | | } |
| | | trace("********" + Packings + "*********"); |
| | | } |
| | | |
| | | xml x = new xml; |
| | | x.setNativePointer(xml::CreateInstance()); |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | dw_goods.DwUpdateAllToEx(x.GetXmlDoc()); |
| | | dw_base.DwUpdateAllTo(x.GetXmlDoc()); |
| | | |
| | | //alert(x.GetXml()); |
| | | |
| | | string error = ""; |
| | | arg.AddArg("content", x.GetXml()); |
| | | if (url::get("/sale/data/Enquiry/update", arg.GetString(), x) != 1) |
| | | { |
| | | error = x.GetXmlDoc().text; |
| | | alert(error); |
| | | } |
| | | else |
| | | { |
| | | string str = x.GetXmlDoc().documentElement.getAttribute("text"); |
| | | if (str == "true") |
| | | { |
| | | dw_goods.ResetUpdateStatus(); |
| | | dw_base.ResetUpdateStatus(); |
| | | UpdateEnquiryLineID(); |
| | | |
| | | xaserverarg arg_ = new xaserverarg; |
| | | arg_.setNativePointer(GetParam()); |
| | | //trace("\r\nSource:"+arg_.GetArgString("Source")); |
| | | if (arg_.GetArgString("Source") == "quote") |
| | | InsertEnquiryPriceList(); |
| | | else if (arg_.GetArgString("Source") == "pricebill") |
| | | InsertEnquiryPriceListByEnquiryID(); |
| | | |
| | | alert("保存成功!"); |
| | | int hWnd = 0; |
| | | if (arg_.GetArgString("Source") == "pricebill") |
| | | { |
| | | if (arg_.GetArgString("hWnd") != "") |
| | | { |
| | | hWnd = arg_.GetArgString("hWnd").toInt(); |
| | | win32::PostMessage(hWnd, 0x401, "xmRefresh", 0); |
| | | } |
| | | } |
| | | if (arg_.GetArgString("Source") == "") |
| | | { |
| | | if (arg_.GetArgString("hWnd") != "") |
| | | { |
| | | hWnd = arg_.GetArgString("hWnd").toInt(); |
| | | win32::PostMessage(hWnd, 0x401, "xmReresh", 0); |
| | | } |
| | | } |
| | | } |
| | | else |
| | | { |
| | | alert("保存失败!"); |
| | | } |
| | | } |
| | | if (x) x.Free(); |
| | | return 1; |
| | | } |
| | | |
| | | int InsertEnquiryPriceListByEnquiryID() |
| | | { |
| | | //trace("\r\nInsertEnquiryPriceListByEnquiryID Start!"); |
| | | xml x = ViewObject::RetrieveData("/sale/data/Enquiry/InsertEnquiryPriceListByEnquiryID", "EnquiryID", dw_base.GetGuid(1)); |
| | | //trace("\r\nInsertEnquiryPriceListByEnquiryID:" + dw_base.GetGuid(1)+" "+ x.GetXml()); |
| | | return 1; |
| | | } |
| | | |
| | | int InsertEnquiryPriceList() |
| | | { |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(GetParam()); |
| | | string EntityIDList = arg.GetArgString("EntityIDList"); |
| | | xml x = ViewObject::RetrieveData("/sale/data/Enquiry/InsertEnquiryPriceList", "ItemList", EntityIDList); |
| | | xml x1 = ViewObject::RetrieveData("/sale/data/Enquiry/Update/UpdateQuoteLine", "ItemList", EntityIDList); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | |
| | | int UpdateEnquiryLineID() |
| | | { |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | int row = dw_base.GetRow(); |
| | | if (row < 1) return 0; |
| | | |
| | | string EnquiryID = dw_base.GetGuid(1); |
| | | |
| | | xml x = ViewObject::RetrieveData("/sale/data/Enquiry/Update/UpdateEnquiryLineID", "EnquiryID", EnquiryID); |
| | | return 1; |
| | | } |
| | | |
| | | int OnSave1() |
| | | { |
| | | dw_base.AcceptText(); |
| | | dw_goods.AcceptText(); |
| | | if (dw_base.GetItemString(1, "EnquiryNo") == "") |
| | | { |
| | | string EnquiryNo = EnquiryView::MakeBillNo(); |
| | | dw_base.SetItemString(1, "EnquiryNo", EnquiryNo); |
| | | } |
| | | |
| | | if (dw_base.GetItemString(1, "ValidDay") == "") |
| | | { |
| | | alert("请输入有效期!"); |
| | | return 1; |
| | | } |
| | | |
| | | if (dw_base.GetItemString(1, "Source") == "") |
| | | { |
| | | alert("请输入询价类别!"); |
| | | return 1; |
| | | } |
| | | string Packing = ""; |
| | | string Packings = ""; |
| | | for (int i = 1; i <= dw_goods.GetRowCount(); i++) |
| | | { |
| | | if (dw_goods.GetItemString(i, "ItemMiniQty") == "") |
| | | { |
| | | alert("请输入起订量!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "Picture") == "") |
| | | { |
| | | alert("请 " + i.toString() + "行,上传产品图片!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "POPrice") == "" || dw_goods.GetItemString(i, "POPrice") == ".000") |
| | | { |
| | | alert("请输入采购价!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "PriceType") == "") |
| | | { |
| | | alert("请输入价格类型!"); |
| | | return 1; |
| | | } |
| | | |
| | | if (dw_goods.GetItemString(i, "SampleFee") == "") |
| | | { |
| | | alert("请输入打样费!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "TestFee") == "") |
| | | { |
| | | alert("请输入测试费!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "ModelFee") == "") |
| | | { |
| | | alert("请输入模具费!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "VolumeDesc") == "") |
| | | { |
| | | alert("请输入包装尺码!"); |
| | | return 1; |
| | | } |
| | | if (dw_goods.GetItemString(i, "WarehousingReason") == "") |
| | | { |
| | | alert("请输入入库理由!"); |
| | | return 1; |
| | | } |
| | | |
| | | |
| | | if (dw_goods.GetItemString(i, "Packing") != "") |
| | | { |
| | | Packing = dw_goods.GetItemString(i, "Packing"); |
| | | if (Packings == "") |
| | | Packings = Packing; |
| | | else if (Packings.find(Packing) < 0) Packings += "," + Packing; |
| | | } |
| | | } |
| | | |
| | | trace("********" + Packings + "*********"); |
| | | xml x = new xml; |
| | | x.setNativePointer(xml::CreateInstance()); |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | dw_base.DwUpdateAllTo(x.GetXmlDoc()); |
| | | msxml::IXMLDOMElement ele = x.GetXmlDoc().documentElement; |
| | | |
| | | xml x1 = xml::Make(); |
| | | dw_goods.DwUpdateAllToEx(x1.GetXmlDoc()); |
| | | msxml::IXMLDOMNodeList items = x1.GetXmlDoc().selectNodes("Enquiry/Item"); |
| | | int len = items.length; |
| | | bool processed = false; |
| | | msxml::IXMLDOMNode child; |
| | | msxml::IXMLDOMNode nodeColumn; |
| | | msxml::IXMLDOMElement eleItem; |
| | | msxml::IXMLDOMElement eleColumn; |
| | | string guid; |
| | | for (int k = 0; k < len; k++) |
| | | { |
| | | msxml::IXMLDOMElement e = items.item(k); |
| | | /*processed = false; |
| | | msxml::IXMLDOMNode col = e.selectSingleNode("QuoteNo"); |
| | | if(col) |
| | | { |
| | | if(col.text !="") |
| | | { |
| | | child = e.cloneNode(-1); |
| | | ele.appendChild(child); |
| | | child.release(); |
| | | processed = true; |
| | | } |
| | | col.release(); |
| | | } |
| | | if(!processed) |
| | | {*/ |
| | | string itemNew = e.getAttribute("update.new"); |
| | | string itemDelete = e.getAttribute("update.delete"); |
| | | string itemModify = e.getAttribute("update.modify"); |
| | | if (itemDelete == "1") |
| | | { |
| | | eleItem = x.GetXmlDoc().createElement("Item"); |
| | | eleItem.setAttribute("update.modify", "1"); |
| | | guid = e.getAttribute("guid"); |
| | | eleItem.setAttribute("guid", guid); |
| | | |
| | | eleColumn = x.GetXmlDoc().createElement("LineType"); |
| | | eleColumn.setAttribute("update.modify", "1"); //delete |
| | | eleColumn.text = "1"; |
| | | eleItem.appendChild(eleColumn); |
| | | ele.appendChild(eleItem); |
| | | eleColumn.release(); |
| | | eleItem.release(); |
| | | processed = true; |
| | | } |
| | | else if (itemModify == "1") |
| | | { |
| | | if (itemNew != "1") |
| | | { |
| | | //update origin row |
| | | eleItem = x.GetXmlDoc().createElement("Item"); |
| | | eleItem.setAttribute("update.modify", "1"); |
| | | guid = e.getAttribute("guid"); |
| | | eleItem.setAttribute("guid", guid); |
| | | |
| | | eleColumn = x.GetXmlDoc().createElement("RealEnquiryLineID"); |
| | | eleColumn.setAttribute("update.modify", "1"); |
| | | guid = publiccode::GetGuid(); |
| | | eleColumn.text = guid; |
| | | eleItem.appendChild(eleColumn); |
| | | eleColumn.release(); |
| | | |
| | | eleColumn = x.GetXmlDoc().createElement("LineType"); |
| | | eleColumn.setAttribute("update.modify", "1"); |
| | | eleColumn.text = "1"; //modify |
| | | eleItem.appendChild(eleColumn); |
| | | ele.appendChild(eleItem); |
| | | eleColumn.release(); |
| | | eleItem.release(); |
| | | |
| | | //insert new row |
| | | eleItem = e.cloneNode(-1); |
| | | eleItem.setAttribute("update.modify", "1"); |
| | | eleItem.setAttribute("update.new", "1"); |
| | | eleItem.setAttribute("guid", publiccode::GetGuid()); |
| | | |
| | | eleColumn = x.GetXmlDoc().createElement("LineType"); |
| | | eleColumn.setAttribute("update.modify", "1"); |
| | | eleColumn.text = "0"; //normal |
| | | eleItem.appendChild(eleColumn); |
| | | eleColumn.release(); |
| | | |
| | | nodeColumn = e.selectSingleNode("ModifyDate"); |
| | | if (!nodeColumn) |
| | | eleColumn = x.GetXmlDoc().createElement("ModifyDate"); |
| | | else |
| | | eleColumn = nodeColumn; |
| | | eleColumn.text = publiccode::GetCurrentDate(); |
| | | eleItem.appendChild(eleColumn); |
| | | eleColumn.release(); |
| | | |
| | | ele.appendChild(eleItem); |
| | | eleItem.release(); |
| | | } |
| | | else |
| | | { |
| | | guid = e.getAttribute("guid"); |
| | | child = e.cloneNode(-1); |
| | | child.selectSingleNode("RealEnquiryLineID").text = guid; |
| | | child.selectSingleNode("RelEnquiryLineID").text = guid; |
| | | ele.appendChild(child); |
| | | //trace(child.xml); |
| | | child.release(); |
| | | } |
| | | } |
| | | //} |
| | | e.release(); |
| | | } |
| | | x1.Free(); |
| | | string error = ""; |
| | | arg.AddArg("content", x.GetXml()); |
| | | if (url::get("/sale/data/Enquiry/update", arg.GetString(), x) != 1) |
| | | { |
| | | error = x.GetXmlDoc().text; |
| | | alert(error); |
| | | } |
| | | else |
| | | { |
| | | string str = x.GetXmlDoc().documentElement.getAttribute("text"); |
| | | if (str == "true") |
| | | { |
| | | alert("保存成功!"); |
| | | //dw_goods.ResetUpdateStatus(); |
| | | //dw_base.ResetUpdateStatus(); |
| | | OnRetrieve(dw_base.GetItemString(1, "EnquiryNo")); |
| | | } |
| | | else |
| | | { |
| | | alert("保存失败!"); |
| | | } |
| | | } |
| | | if (x) x.Free(); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int ImportProductByText(string str) |
| | | { |
| | | string CustomerID = dw_base.GetItemString(1, "CustomerID"); |
| | | //trace("Customer:"+CustomerID); |
| | | xml x; |
| | | if (CustomerID == "") |
| | | x = QuoteView::LookupProductsByText(str); |
| | | else |
| | | x = QuoteView::LookupProductsByText(str, CustomerID); |
| | | |
| | | if (!x) return 1; |
| | | msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("/Items/Item"); |
| | | trace("********" + x.GetXml() + "********"); |
| | | int len = items.length; |
| | | if (str.find(" ") < 0 && len > 0) len = 1; |
| | | for (int i = 0; i < len; i++) |
| | | { |
| | | msxml::IXMLDOMElement e = items.item(i); |
| | | dw_goods.InsertRow(0); |
| | | int nRow = dw_goods.GetRowCount(); |
| | | SetSeqNo(dw_goods, "SeqNo", nRow); |
| | | dw_goods.SetItemString(nRow, "UOMCode", "007"); |
| | | dw_goods.SetItemDisplayString(nRow, "UOMCode", "PCS"); |
| | | dw_goods.SetItemString(nRow, "KOPCode", "120"); |
| | | dw_goods.SetItemDisplayString(nRow, "KOPCode", "CTNS"); |
| | | dw_goods.SetItemString(nRow, "SKUNo", e.getAttribute("SKUNo")); |
| | | dw_goods.SetItemString(nRow, "ItemID", e.getAttribute("SKUID")); |
| | | //dw_goods.SetItemString(nRow,"ItemName",e.getAttribute("EName")); |
| | | dw_goods.SetItemString(nRow, "ItemName", e.getAttribute("CName")); |
| | | dw_goods.SetItemString(nRow, "GoodsNo", e.getAttribute("GoodsNo")); |
| | | dw_goods.SetItemString(nRow, "CustomerItemNo", e.getAttribute("CustomerItemNo")); |
| | | dw_goods.SetItemString(nRow, "Packing", e.getAttribute("Packing")); |
| | | dw_goods.SetItemString(nRow, "VolumeDesc", e.getAttribute("VolumeDesc")); |
| | | dw_goods.SetItemString(nRow, "PackingRate", e.getAttribute("QtyPerPkg")); |
| | | dw_goods.SetItemString(nRow, "InnerQty", e.getAttribute("InnerQty")); |
| | | dw_goods.SetItemString(nRow, "VATRefundRate", e.getAttribute("VATRefundRate")); |
| | | dw_goods.SetItemString(nRow, "VATRate", e.getAttribute("VATRate")); |
| | | dw_goods.SetItemString(nRow, "HSCode", e.getAttribute("HSCode")); |
| | | //trace("+++++"+e.getAttribute("Picture")+"+++++"); |
| | | dw_goods.SetItemString(nRow, "Picture", e.getAttribute("Picture")); |
| | | |
| | | if (dw_goods.GetItemString(nRow, "VolumeDesc") != "" && |
| | | dw_goods.GetItemString(nRow, "Packages") != "") |
| | | { |
| | | int qty = EvalQtyPerFCL45H(nRow); |
| | | dw_goods.SetItemString(nRow, "Packages45H", qty.toString()); |
| | | dw_goods.SetItemDouble(nRow, "TransportationFee", 5000.0 / qty); |
| | | } |
| | | /* |
| | | dw_goods.SetItemString(nRow,"NwPerPkg",e.getAttribute("NwPerPkg")); |
| | | dw_goods.SetItemString(nRow,"GwPerPkg",e.getAttribute("GwPerPkg")); |
| | | dw_goods.SetItemString(nRow,"QTYPerPk",e.getAttribute("QTYPerPk")); |
| | | dw_goods.SetItemString(nRow,"InnerQty",e.getAttribute("InnerQty")); |
| | | */ |
| | | } |
| | | |
| | | int row = dw_goods.GetRow(); |
| | | if (row >= 1) |
| | | { |
| | | imageview im = GetControl("im1"); |
| | | im.ResetEx(); |
| | | string skuno = dw_goods.GetItemString(row, "SKUNo"); |
| | | OnShowImage(skuno, row); |
| | | im.Redraw(); |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | double EvalCost(int row) |
| | | { |
| | | double cost = 0.0; |
| | | cost += dw_goods.GetItemDouble(row, "POPrice"); |
| | | cost += dw_goods.GetItemDouble(row, "PaperCardPrice"); |
| | | cost += dw_goods.GetItemDouble(row, "TransportationFee"); |
| | | cost += dw_goods.GetItemDouble(row, "OtherFee"); |
| | | cost += dw_goods.GetItemDouble(row, "ManagementFee"); |
| | | return cost; |
| | | } |
| | | |
| | | double EvalRefund(int row) |
| | | { |
| | | double VATRefundRate = dw_goods.GetItemDouble(row, "VATRefundRate"); |
| | | double VATRefund = dw_goods.GetItemDouble(row, "POPrice") * VATRefundRate / 117.0; |
| | | VATRefund += dw_goods.GetItemDouble(row, "PaperCardPrice") * 13.0 / 117.0; |
| | | return VATRefund; |
| | | } |
| | | |
| | | int EvalQtyPerFCL45H(int row) |
| | | { |
| | | double vol = EvalVol(dw_goods.GetItemString(row, "VolumeDesc")); |
| | | double packages = dw_goods.GetItemDouble(row, "Packages"); |
| | | return (packages * 67.0 / vol).toInt(); |
| | | } |
| | | double EvalUnitProfit(int row) |
| | | { |
| | | double ExchangeRate = dw_base.GetItemDouble(1, "ExchangeRate"); |
| | | double FobUnitPrice = dw_goods.GetItemDouble(row, "FobUnitPrice"); |
| | | double UnitCost = dw_goods.GetItemDouble(row, "UnitCost"); |
| | | double VATRefund = dw_goods.GetItemDouble(row, "VATRefund"); |
| | | return ExchangeRate * FobUnitPrice - UnitCost + VATRefund; |
| | | } |
| | | |
| | | double EvalProfitRate(int row) |
| | | { |
| | | double UnitProfit = EvalUnitProfit(row); |
| | | double UnitCost = dw_goods.GetItemDouble(row, "UnitCost"); |
| | | return UnitProfit / UnitCost; |
| | | } |
| | | double EvalSaleProfitRate(int row) |
| | | { |
| | | double UnitProfit = EvalUnitProfit(row); |
| | | double FobUnitPrice = dw_goods.GetItemDouble(row, "FobUnitPrice"); |
| | | return UnitProfit / FobUnitPrice; |
| | | } |
| | | |
| | | double EvalExchangeCostRate(int row) |
| | | { |
| | | double FobUnitPrice = dw_goods.GetItemDouble(row, "FobUnitPrice"); |
| | | double UnitCost = dw_goods.GetItemDouble(row, "UnitCost"); |
| | | double VATRefund = dw_goods.GetItemDouble(row, "VATRefund"); |
| | | return (UnitCost - VATRefund) / FobUnitPrice; |
| | | } |
| | | |
| | | double EvalTransportationFee(int row) |
| | | { |
| | | double vol = EvalVol(dw_goods.GetItemString(row, "VolumeDesc")); |
| | | double packages = dw_goods.GetItemDouble(row, "Packages"); |
| | | return 80 * vol / packages; |
| | | } |
| | | |
| | | double EvalVol(string value) |
| | | { |
| | | double vol = 1.0; |
| | | string volstr = value; |
| | | int pos1 = volstr.find("*"); |
| | | int pos2 = volstr.find("X"); |
| | | int pos3 = volstr.find("x"); |
| | | int pos = pos1; |
| | | //trace("pos: "+ pos.toString() + "pos1: "+ pos1.toString() + "pos2: "+ pos2.toString() +"pos3: "+ pos3.toString()); |
| | | if (pos2 > 0 && pos == -1) pos = pos2; |
| | | if (pos2 >= 0 && pos2 < pos) pos = pos2; |
| | | //trace("pos: "+ pos.toString() + "pos1: "+ pos1.toString() + "pos2: "+ pos2.toString() +"pos3: "+ pos3.toString()); |
| | | if (pos3 > 0 && pos == -1) pos = pos3; |
| | | if (pos3 >= 0 && pos3 < pos) pos = pos3; |
| | | //trace("pos: "+ pos.toString() + "pos1: "+ pos1.toString() + "pos2: "+ pos2.toString() +"pos3: "+ pos3.toString()); |
| | | while (pos >= 0) |
| | | { |
| | | string tm = volstr.left(pos); |
| | | volstr = volstr.mid(pos + 1, 9999); |
| | | vol *= tm.toDouble(); |
| | | |
| | | pos1 = volstr.find("*"); |
| | | pos2 = volstr.find("X"); |
| | | pos3 = volstr.find("x"); |
| | | pos = pos1; |
| | | if (pos2 > 0 && pos == -1) pos = pos2; |
| | | if (pos2 >= 0 && pos2 < pos) pos = pos2; |
| | | if (pos3 > 0 && pos == -1) pos = pos3; |
| | | if (pos3 >= 0 && pos3 < pos) pos = pos3; |
| | | } |
| | | if (volstr != "") vol *= volstr.toDouble(); |
| | | return vol / 1000000.0; |
| | | } |
| | | |
| | | int OnShare() |
| | | { |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | arg.AddArg("EntityID", dw_base.GetGuid(1)); |
| | | //arg.AddArg("EntityName", GetEntityName(0)); |
| | | arg.AddArg("EntityName", "Enquiry3"); |
| | | |
| | | OpenWindow("dev:xpage[UserGroupShare.vx]", cast(arg as int)); |
| | | return 1; |
| | | } |
| | | |
| | | int OnItemChanged(ref TNotifyEvent evt, int p) |
| | | { |
| | | ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); |
| | | string colname = hdr.colname; |
| | | string value = hdr.data; |
| | | int row = hdr.row; |
| | | |
| | | double VATRefund = 0.0; |
| | | double VATRefundRate = 0.0; |
| | | if ((colname == "GoodsNo" || colname == "CustomerItemNo") && value != "") |
| | | { |
| | | if (colname == "CustomerItemNo") |
| | | { |
| | | if (dw_goods.GetItemString(row, "GoodsNo") != "") return 1; |
| | | } |
| | | xml x; |
| | | string CustomerID = dw_base.GetItemString(1, "CustomerID"); |
| | | string sval = value; |
| | | if (colname == "GoodsNo") |
| | | { |
| | | if (CustomerID != "") |
| | | sval = "gs:" + value; |
| | | else |
| | | sval = value; |
| | | } |
| | | if (colname == "CustomerItemNo") |
| | | /*sval="cs:"+value; |
| | | if(CustomerID !="") |
| | | x = QuoteView::LookupProductsByText(sval,CustomerID ); |
| | | else |
| | | x = QuoteView::LookupProductsByText(sval);*/ |
| | | sval = value; |
| | | x = ViewObject::RetrieveData("/sale/data/Quote/LookGDN", "str", sval); |
| | | if (!x) return 1; |
| | | msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("/Items/Item"); |
| | | trace(x.GetXml()); |
| | | int len = items.length; |
| | | if (len == 0) |
| | | { |
| | | if (colname == "GoodsNo") |
| | | { |
| | | alert("没有此公司型号!"); |
| | | dw_goods.SetItemString(dw_goods.GetRow(), "GoodsNo", ""); |
| | | } |
| | | return 1; |
| | | } |
| | | if (len >= 1) |
| | | { |
| | | msxml::IXMLDOMElement e = items.item(0); |
| | | int nRow = dw_goods.GetRow(); |
| | | dw_goods.SetItemString(nRow, "SKUNo", e.getAttribute("SKUNo")); |
| | | dw_goods.SetItemString(nRow, "ItemID", e.getAttribute("SKUID")); |
| | | dw_goods.SetItemString(nRow, "ItemName", e.getAttribute("CName")); |
| | | if (colname == "CustomerItemNo")dw_goods.SetItemString(nRow, "GoodsNo", e.getAttribute("GoodsNo")); |
| | | if (colname == "GoodsNo")dw_goods.SetItemString(nRow, "CustomerItemNo", e.getAttribute("CustomerItemNo")); |
| | | dw_goods.SetItemString(nRow, "Packing", e.getAttribute("Packing")); |
| | | dw_goods.SetItemString(nRow, "InnerQty", e.getAttribute("InnerQty")); |
| | | dw_goods.SetItemString(nRow, "PackingRate", e.getAttribute("PackingRate")); |
| | | dw_goods.SetItemString(nRow, "VolumeDesc", e.getAttribute("VolumeDesc")); |
| | | dw_goods.SetItemString(nRow, "Packages", e.getAttribute("QTYPerPkg")); |
| | | dw_goods.SetItemString(nRow, "SupplierID", e.getAttribute("SupplierID")); |
| | | dw_goods.SetItemDisplayString(nRow, "SupplierID", e.getAttribute("SupplierID1")); |
| | | dw_goods.SetItemString(nRow, "POCreatorID", e.getAttribute("POCreatorID")); |
| | | dw_goods.SetItemDisplayString(nRow, "POCreatorID", e.getAttribute("POCreatorID1")); |
| | | dw_goods.SetItemString(nRow, "Picture", e.getAttribute("Picture")); |
| | | |
| | | if (dw_goods.GetItemString(nRow, "VolumeDesc") != "" && |
| | | dw_goods.GetItemString(nRow, "Packages") != "") |
| | | { |
| | | int qty1 = EvalQtyPerFCL45H(nRow); |
| | | dw_goods.SetItemString(nRow, "Packages45H", qty1.toString()); |
| | | dw_goods.SetItemDouble(nRow, "TransportationFee", 5000.0 / qty1); |
| | | } |
| | | dw_goods.Redraw(); |
| | | } |
| | | } |
| | | |
| | | else if (colname == "POPrice" || colname == "PaperCardPrice" || colname == "TransportationFee" || |
| | | colname == "OtherFee" || colname == "ManagementFee") |
| | | { |
| | | dw_goods.SetItemDouble(row, "UnitCost", EvalCost(row)); |
| | | |
| | | if ((colname == "POPrice" || colname == "PaperCardPrice") && dw_goods.GetItemString(row, "VATRefundRate") != "") |
| | | { |
| | | dw_goods.SetItemDouble(row, "VATRefund", EvalRefund(row)); |
| | | } |
| | | } |
| | | else if (colname == "VATRefundRate" && value != "") |
| | | { |
| | | dw_goods.SetItemDouble(row, "VATRefund", EvalRefund(row)); |
| | | } |
| | | else if (colname == "VolumeDesc" || colname == "Packages") |
| | | { |
| | | if (dw_goods.GetItemString(row, "VolumeDesc") != "" && |
| | | dw_goods.GetItemString(row, "Packages") != "") |
| | | { |
| | | int qty = EvalQtyPerFCL45H(row); |
| | | dw_goods.SetItemString(row, "Packages45H", qty.toString()); |
| | | dw_goods.SetItemDouble(row, "TransportationFee", EvalTransportationFee(row)); |
| | | dw_goods.SetItemDouble(row, "UnitCost", EvalCost(row)); |
| | | } |
| | | } |
| | | else if (colname == "FobUnitPrice") |
| | | { |
| | | string CurrencyCode = dw_base.GetItemString(1, "CurrencyCode"); |
| | | string expRate = ""; |
| | | string exchRate = ""; |
| | | |
| | | xml x0 = ViewObject::RetrieveData("/sale/data/GDN3/profit/param", "item", "dcomp_amt"); |
| | | if (x0.GetXmlDoc().selectSingleNode("root/item/@value")) |
| | | expRate = x0.GetXmlDoc().selectSingleNode("root/item/@value").text; |
| | | x0 = ViewObject::RetrieveData("/sale/data/GDN3/profit/param", "item", "cryrate"); |
| | | if (x0.GetXmlDoc().selectSingleNode("root/item/@value")) |
| | | exchRate = x0.GetXmlDoc().selectSingleNode("root/item/@value").text; |
| | | double r1 = exchRate.toDouble(); |
| | | double r2 = expRate.toDouble(); |
| | | double val = value.toDouble(); |
| | | if (CurrencyCode == "RMB" || CurrencyCode == "CNY") |
| | | { |
| | | if (exchRate != "") |
| | | { |
| | | double ManagementFee = (val / r1) * r2; |
| | | double OtherFee = (val / r1) * 0.2; |
| | | dw_goods.SetItemDouble(row, "ManagementFee", ManagementFee); |
| | | dw_goods.SetItemDouble(row, "OtherFee", OtherFee); |
| | | } |
| | | } |
| | | else |
| | | { |
| | | dw_goods.SetItemDouble(row, "ManagementFee", val * 0.15); |
| | | dw_goods.SetItemDouble(row, "OtherFee", val * 0.2); |
| | | } |
| | | dw_goods.SetItemDouble(row, "UnitCost", EvalCost(row)); |
| | | } |
| | | if (dw_goods.GetItemString(row, "FobUnitPrice") != "" && |
| | | dw_goods.GetItemString(row, "POPrice") != "" && |
| | | dw_goods.GetItemString(row, "VolumeDesc") != "" && |
| | | dw_goods.GetItemString(row, "Packages") != "") |
| | | { |
| | | dw_goods.SetItemDouble(row, "UnitProfit", EvalUnitProfit(row)); |
| | | dw_goods.SetItemDouble(row, "ProfitRate", EvalProfitRate(row)); |
| | | dw_goods.SetItemDouble(row, "SaleProfitRate", EvalSaleProfitRate(row)); |
| | | dw_goods.SetItemDouble(row, "ExchangeCostRate", EvalExchangeCostRate(row)); |
| | | } |
| | | |
| | | dw_goods.SetItemString(row, "ModifyDate", publiccode::GetCurrentDate()); |
| | | dw_goods.Redraw(); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int OnBaseItemChanged(ref TNotifyEvent evt, int p) |
| | | { |
| | | ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); |
| | | string colname = hdr.colname; |
| | | string value = hdr.data; |
| | | |
| | | string dwname = "dw_base"; |
| | | if (value != "") |
| | | { |
| | | //trace("\r\nsupplierid:"+value); |
| | | msxml::IXMLDOMNodeList nlist = GetElement().selectNodes("//*[@name='" + dwname + "']/trans[@for='" + colname + "']"); |
| | | ViewObject::TransData(nlist, dw_base, hdr.row, colname, value); |
| | | } |
| | | if (colname == "ExchangeRate") |
| | | { |
| | | if (dw_goods.GetRowCount() > 0) |
| | | { |
| | | for (int i = 1; i <= dw_goods.GetRowCount(); i++) |
| | | { |
| | | dw_goods.SetItemDouble(i, "UnitProfit", EvalUnitProfit(i)); |
| | | dw_goods.SetItemDouble(i, "ProfitRate", EvalProfitRate(i)); |
| | | dw_goods.SetItemDouble(i, "SaleProfitRate", EvalSaleProfitRate(i)); |
| | | dw_goods.SetItemDouble(i, "ExchangeCostRate", EvalExchangeCostRate(i)); |
| | | } |
| | | } |
| | | dw_goods.Redraw(); |
| | | } |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int OnPriceEval() |
| | | { |
| | | OpenWindow("dev:xpage[eval.Enquiry3.vx]", cast(dw_goods as int)); |
| | | return 1; |
| | | } |
| | | |
| | | |
| | | int OnRowChanged(ref TNotifyEvent evt, int p) |
| | | { |
| | | ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); |
| | | int row = hdr.row; |
| | | |
| | | imageview im = GetControl("im1"); |
| | | im.ResetEx(); |
| | | string skuno = dw_goods.GetItemString(row, "SKUNo"); |
| | | OnShowImage(skuno, row); |
| | | im.Redraw(); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int OnShowImage() |
| | | { |
| | | int rowCount = dw_goods.GetRowCount(); |
| | | string skunos; |
| | | for (int i = 1; i <= rowCount; i++) |
| | | { |
| | | string skuno = dw_goods.GetItemString(i, "SKUNo"); |
| | | if (i == 1) |
| | | skunos = skuno; |
| | | else |
| | | skunos += "," + skuno; |
| | | } |
| | | |
| | | xaserverarg arg_pic = new xaserverarg; |
| | | arg_pic.setNativePointer(arg_pic.CreateInstance()); |
| | | arg_pic.AddArg("SKUNoList", skunos); |
| | | arg_pic.AddArg("ParentWindow", GetHWND().toString()); |
| | | arg_pic.AddArg("OpenFlag", "1"); |
| | | OpenWindow("dev:xpage[SKU.PictureView.Product3.vx]", cast(arg_pic as int)); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int OnShowImage(string skuno, int row) |
| | | { |
| | | imageview im = GetControl("im1"); |
| | | |
| | | xml xp = new xml; |
| | | xp.setNativePointer(xml::CreateInstance()); |
| | | xaserverarg arg_pic = new xaserverarg; |
| | | arg_pic.setNativePointer(arg_pic.CreateInstance()); |
| | | arg_pic.AddArg("SKUNo", skuno); |
| | | |
| | | string res = "/sale/data/ProductLibrary3/pref/picture/imagelistSKUNo"; |
| | | string customerID = dw_base.GetItemString(1, "CustomerID"); |
| | | string customerItemNo = dw_goods.GetItemString(row, "CustomerItemNo"); |
| | | if (customerItemNo != "") |
| | | { |
| | | //trace(customerID+":"+customerItemNo); |
| | | res = "/sale/data/ProductLibrary3/pref/picture/customer/imagelistSKUNo"; |
| | | arg_pic.AddArg("CustomerID", customerID); |
| | | arg_pic.AddArg("CustomerItemNo", customerItemNo); |
| | | } |
| | | |
| | | bool hasIamge = false; |
| | | if (url::get(res, arg_pic.GetString(), xp) != 1) |
| | | { |
| | | //trace(xp.GetXml()); |
| | | return 1; |
| | | } |
| | | else |
| | | { |
| | | //trace(xp.GetXml()); |
| | | msxml::IXMLDOMNodeList nlistp = xp.GetXmlDoc().selectNodes("ImageList/image"); |
| | | int lenp = nlistp.length; |
| | | for (int ip = 0; ip < lenp; ip++) |
| | | { |
| | | hasIamge = true; |
| | | msxml::IXMLDOMElement xitem = nlistp.item(ip); |
| | | string picname = xitem.selectSingleNode("PicPath").text; |
| | | string goodno = xitem.selectSingleNode("GoodsNo").text; |
| | | if (picname == "/business/products/Thumbs//") |
| | | picname = "/business/products/Thumbs/00/00000000-0000-0000-0000-000000000000.jpg"; |
| | | im.AddImages(picname, goodno); |
| | | } |
| | | } |
| | | if (!hasIamge) |
| | | { |
| | | res = "/sale/data/ProductLibrary3/pref/picture/imagelistSKUNo"; |
| | | if (url::get(res, arg_pic.GetString(), xp) != 1) |
| | | { |
| | | //trace(xp.GetXml()); |
| | | return 1; |
| | | } |
| | | else |
| | | { |
| | | nlistp = xp.GetXmlDoc().selectNodes("ImageList/image"); |
| | | lenp = nlistp.length; |
| | | for (ip = 0; ip < lenp; ip++) |
| | | { |
| | | xitem = nlistp.item(ip); |
| | | picname = xitem.selectSingleNode("PicPath").text; |
| | | goodno = xitem.selectSingleNode("GoodsNo").text; |
| | | if (picname == "/business/products/Thumbs//") |
| | | picname = "/business/products/Thumbs/00/00000000-0000-0000-0000-000000000000.jpg"; |
| | | im.AddImages(picname, goodno); |
| | | } |
| | | } |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | |
| | | int OnPrint() |
| | | { |
| | | if (dw_base.GetItemString(1, "EnquiryNo") == "") |
| | | { |
| | | alert("请先保存数据!"); |
| | | return 1; |
| | | } |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | arg.AddArg("EntityName", "Enquiry", ""); |
| | | arg.AddArg("EntityID", dw_base.GetItemString(1, "EnquiryID"), ""); |
| | | arg.AddArg("EntityNo", dw_base.GetItemString(1, "EnquiryNo"), ""); |
| | | int p = arg.ptr_native_; |
| | | openUrl("/sale/view/view.base/xpage/Template/PrintViewEx", p); |
| | | return 1; |
| | | } |
| | | |
| | | int ReSeqNo(string SeqNoColumn) |
| | | { |
| | | for (int i = 1; i <= dw_goods.GetRowCount(); i++) |
| | | { |
| | | dw_goods.SetItemString(i, SeqNoColumn, (i * 10).toString()); |
| | | } |
| | | dw_goods.Redraw(); |
| | | return 1; |
| | | } |
| | | |
| | | int OnAskGoodsNo() |
| | | { |
| | | int rowCount = dw_goods.GetRowCount(); |
| | | string skunos = ""; |
| | | |
| | | for (int i = 1; i <= rowCount; i++) |
| | | { |
| | | if (dw_goods.GetItemString(i, "SKUNo") != "" && dw_goods.GetItemString(i, "GoodsNo") == "" && dw_goods.GetItemString(i, "Submitter") == "") |
| | | { |
| | | if (skunos == "") |
| | | skunos = dw_goods.GetItemString(i, "SKUNo"); |
| | | else |
| | | skunos += "," + dw_goods.GetItemString(i, "SKUNo"); |
| | | } |
| | | } |
| | | xaserverarg arg = ViewObject::MakeArg(); |
| | | arg.AddArg("SKUNoList", skunos); |
| | | OpenWindow("dev:xpage[Product.FetchNo.vx]", cast(arg as int)); |
| | | return 1; |
| | | } |
| | | |
| | | //命令发布函数 |
| | | int OnCmdDispatch(string comdid) |
| | | { |
| | | if (comdid == "xmNewProduct") |
| | | { |
| | | //xaserverarg arg = new xaserverarg; |
| | | //arg.setNativePointer(arg.CreateInstance()); |
| | | openUrl("/sale/view/Enquiry3/xpage/quick/newestproduct", GetHWND()); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmPrint") return OnPrint(); |
| | | else if (comdid == "xmImage") |
| | | return OnShowImage(); |
| | | else if (comdid == "xmShare") |
| | | return OnShare(); |
| | | else if (comdid == "xmImportProduct") |
| | | { |
| | | string str = GetControl("goods").GetText(); |
| | | str = str.trim(); |
| | | if (str == "") |
| | | { |
| | | xaserverarg arg1 = new xaserverarg; |
| | | arg1.setNativePointer(arg1.CreateInstance()); |
| | | arg1.AddArg("HWND", GetHWND().toString()); |
| | | arg1.AddArg("CustomerID", dw_base.GetItemString(1, "CustomerID")); |
| | | OpenWindow("dev:xpage[Entity.Product.Select.vx]", cast(arg1 as int)); |
| | | int row = dw_goods.GetRow(); |
| | | if (row >= 1) |
| | | { |
| | | imageview im = GetControl("im1"); |
| | | im.ResetEx(); |
| | | string skuno = dw_goods.GetItemString(row, "SKUNo"); |
| | | OnShowImage(skuno, row); |
| | | im.Redraw(); |
| | | } |
| | | } |
| | | else |
| | | ImportProductByText(str); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmSave") |
| | | { |
| | | OnSave(); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmPriceEval") |
| | | return OnPriceEval(); |
| | | else if (comdid == "xmOpen") |
| | | { |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | OpenWindow("dev:xpage[SOEnquiry.list.vx]", cast(arg as int)); |
| | | if (arg.GetArgString("id") != "") return OnRetrieve(arg.GetArgString("id")); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmDeleteRow") |
| | | { |
| | | if (dw_goods.GetItemString(dw_goods.GetRow(), "QuoteNo") != "") |
| | | { |
| | | alert("产品已被应用,不能删除"); |
| | | return 1; |
| | | } |
| | | dw_goods.DeleteRow(0); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmBOMSchema") |
| | | { |
| | | OpenWindow("dev:xpage[ProductSchema.vx]", 0); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmProductDesc") |
| | | { |
| | | xaserverarg arg2 = new xaserverarg; |
| | | arg2.setNativePointer(arg2.CreateInstance()); |
| | | int row2 = dw_goods.GetRow(); |
| | | if (row2 < 1) return 0; |
| | | string str2 = dw_goods.GetItemString(row2, "ProductDesc"); |
| | | arg2.AddArg("value", str2); |
| | | OpenWindow("dev:xpage[memo.edit.new.vx]", arg2.getNativePointer()); |
| | | if (arg2.GetArgString("comdid") == "xmOK") |
| | | { |
| | | str2 = arg2.GetArgString("value"); |
| | | dw_goods.AcceptText(); |
| | | dw_goods.SetItemString(row2, "ProductDesc", str2); |
| | | dw_goods.Redraw(); |
| | | } |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmReSeqNo") |
| | | { |
| | | if (win32::MessageBox(GetHWND(), "是否重置序号!", "提示1", 1) == 2) |
| | | return 1; |
| | | return ReSeqNo("SeqNo"); |
| | | } |
| | | else if (comdid == "xmAddRow") |
| | | { |
| | | int nRow = dw_goods.InsertRow(0); |
| | | SetSeqNo(dw_goods, "SeqNo", nRow); |
| | | dw_goods.SetItemString(nRow, "UOMCode", "007"); |
| | | dw_goods.SetItemDisplayString(nRow, "UOMCode", "PCS"); |
| | | dw_goods.SetItemString(nRow, "KOPCode", "120"); |
| | | dw_goods.SetItemDisplayString(nRow, "KOPCode", "CTNS"); |
| | | |
| | | xaserverarg arg3 = new xaserverarg; |
| | | arg3.setNativePointer(arg3.CreateInstance()); |
| | | int row3 = dw_goods.GetRow(); |
| | | if (row3 < 1) return 0; |
| | | dw_goods.SetItemString(nRow, "SKUNo", dw_goods.GetItemString(row3, "SKUNo")); |
| | | dw_goods.SetItemString(nRow, "ItemID", dw_goods.GetItemString(row3, "ItemID")); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmClose") |
| | | { |
| | | CloseWindow(); |
| | | return 1; |
| | | } |
| | | else if (comdid.find("ImportXml:", 0) == 0) |
| | | { |
| | | string strImport = comdid.mid("ImportXml:".length(), 9999); |
| | | ImportProductByText(strImport); |
| | | return 1; |
| | | } |
| | | else if (comdid == "xmAskGoodsNo") |
| | | { |
| | | return OnAskGoodsNo(); |
| | | } |
| | | return 0; |
| | | } |
| | | |
| | | int OnImgDBClicked(ref TNotifyEvent evt, int pr) |
| | | { |
| | | ref IMGNNMHDR nmtv = evt.pnmh; |
| | | string src = nmtv.path; |
| | | /*if(src.length() > 60) |
| | | src = src.right(44); |
| | | else |
| | | src=src.mid(src.find("Thumbs", 0)+6, 50); |
| | | */ |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | //arg.AddArg("src","/business/products/chanpin"+src); |
| | | arg.AddArg("src", src); |
| | | |
| | | //win::OpenWindow("dev:xpage[BigPicture.vx]",arg); |
| | | |
| | | int h = openUrl("/sale/view/ProductLibrary/xpage/bigpictureview", arg); |
| | | return 1; |
| | | /* |
| | | xwin x = new xwin; |
| | | x.setNativePointer(h); |
| | | m_winHwnd = x.GetHWND(); |
| | | |
| | | string sh = doc.GetXml(); |
| | | int p = cast(sh as int); |
| | | win32::SendMessage(m_winHwnd, 0x401, p, 0); |
| | | */ |
| | | return 1; |
| | | } |
| | | |
| | | //命令处理事件 |
| | | int OnXCommand(ref TXCommandEvent evt, int param) |
| | | { |
| | | return OnCmdDispatch(evt.pStrID); |
| | | } |
| | | |
| | | int OnItemAskStyle(ref TNotifyEvent evt, int p) |
| | | { |
| | | int DMS_CSSSTYLE = 0x8; |
| | | ref DWASKSTYLENMHDR hdr = trust(evt.pnmh as ref DWASKSTYLENMHDR); |
| | | int row = hdr.row; |
| | | int col = hdr.col; |
| | | string colname = hdr.colname; |
| | | |
| | | int rows = dw_goods.GetRowCount(); |
| | | if (row < 1 || row > rows) |
| | | { |
| | | return 1; |
| | | } |
| | | if (colname == "POPrice") |
| | | { |
| | | if (dw_goods.GetItemTipString(row, colname) != "") |
| | | { |
| | | hdr.mask = DMS_CSSSTYLE; |
| | | hdr.cssstyle = "color:#cc0000"; |
| | | } |
| | | } |
| | | return 1; |
| | | } |
| | | int OnAttachEvent() |
| | | { |
| | | //绑定工具条点击事件 |
| | | AttachEvent("WM_XCOMMAND", OnXCommand); |
| | | //获取焦点事件,用于重置工具条 |
| | | AttachEvent("WM_SETFOCUS", OnSetFocus); |
| | | AttachEvent("dw_goods", "DWV_ITEMCHANGED", OnItemChanged); |
| | | AttachEvent("dw_base", "DWV_ITEMCHANGED", OnBaseItemChanged); |
| | | AttachEvent("im1", "IMG_LDBCLICK", OnImgDBClicked); |
| | | AttachEvent("dw_goods", "DWV_ROWFOCUSCHANGED", OnRowChanged); |
| | | AttachCloseWindow(); |
| | | AttachEvent("dw_goods", "DWV_ASKSTYLE", OnItemAskStyle); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int OnRetrieve(string id) |
| | | { |
| | | xml x = new xml; |
| | | x.setNativePointer(xml::CreateInstance()); |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | arg.AddArg("id", id); |
| | | if (getUrl("/sale/data/Enquiry/maint", arg.GetString(), x) != 1) |
| | | { |
| | | alert(x.GetXmlDoc().text); |
| | | return -1; |
| | | } |
| | | } |
| | | |
| | | KXMLDOMElement e = listwin::dw_list.GetRowElement(row); |
| | | //xstring sguid = e.SelectSingleNode(L"@guid").text; |
| | | //xstring sName = e.selectSingleNode(L"Name").text+L""; |
| | | xstring sguid = dw_list.GetItemString(dw_list.GetRow(), L"SupplierID"); |
| | | xstring sName = dw_list.GetItemString(dw_list.GetRow(), L"Name"); |
| | | int MB_YESNO = 0x00000004; |
| | | int IDYES = 6; |
| | | if (MessageBoxW(GetHWND(), L"确认要删除供应商 " + sName + L" 的信息吗?", L"提示", MB_YESNO) != IDYES) return 1; |
| | | xml x; |
| | | |
| | | xaserverarg arg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | arg.AddArg(L"guid", sguid); |
| | | arg.AddArg(L"EntityID", sguid); |
| | | // trace(sguid); |
| | | if (xurl::post(GetServerUrl(), L"/sale/data/" + GetEntityName(1) + L"/entity/delete", arg.GetString(), x) != 1) |
| | | { |
| | | xstring error = x.text(); |
| | | trace(error); |
| | | } |
| | | else |
| | | { |
| | | KXMLDOMElement msg = x.selectNodes(L"process").item(0); |
| | | xstring success = msg.selectSingleNode(L"@finished").text(); |
| | | if (success == L"0") |
| | | { |
| | | alert(msg.selectSingleNode(L"@errInfo").text()); |
| | | } |
| | | else |
| | | { |
| | | MessageBoxW(GetHWND(), L"删除成功!", L"提示", 0); |
| | | listwin::dw_list.DeleteRow(row); |
| | | } |
| | | } |
| | | return 1; |
| | | } |
| | | //alert(x.GetXml()); |
| | | dw_base.Retrieve(x); |
| | | dw_goods.Retrieve(x); |
| | | dw_base.Redraw(); |
| | | dw_goods.Redraw(); |
| | | |
| | | int OnRowChangedEx(TEvent* evt, LPARAM p) |
| | | { |
| | | DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; |
| | | int row = hdr.row; |
| | | //if(row < 1 or row > dw_list.GetRowCount()) return 1; |
| | | KXMLDOMElement ele = listwin::dw_list.GetRowElement(row); |
| | | xstring entity = ele.selectSingleNode(L"SupplierID").text(); |
| | | xml x; |
| | | if (dw_goods.GetRowCount() > 0) |
| | | { |
| | | imageview im = GetControl("im1"); |
| | | im.ResetEx(); |
| | | string skuno = dw_goods.GetItemString(1, "SKUNo"); |
| | | OnShowImage(skuno, 1); |
| | | im.Redraw(); |
| | | } |
| | | |
| | | xaserverarg arg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | arg.AddArg(L"EntityID", entity); |
| | | //x.LoadXml("<Enquiry/>"); |
| | | //dw_base.RetrieveDiff(x); |
| | | //dw_goods.RetrieveDiff(x); |
| | | |
| | | |
| | | xstring no1 = publiccode::GetUser().no; |
| | | if (no1 != L"00201") |
| | | { |
| | | |
| | | if (TypeWork.find(L"采购") >= 0) |
| | | { |
| | | GoodsUrl = L"/sale/data/SupplierV3/entity/supplieritemEx"; |
| | | } |
| | | else |
| | | { |
| | | GoodsUrl = L"/sale/data/SupplierV3/entity/supplieritem"; |
| | | } |
| | | } |
| | | else |
| | | { |
| | | GoodsUrl = L"/sale/data/SupplierV3/entity/supplieritem"; |
| | | } |
| | | if (getUrl(GetServerUrl(), GoodsUrl, arg.GetString(), x) != 1) |
| | | { |
| | | trace(x.text()); |
| | | return -1; |
| | | } |
| | | else |
| | | { |
| | | dw_goods.Retrieve(x); |
| | | dw_goods.Redraw(); |
| | | dw_goods.SetReadOnly(true); |
| | | } |
| | | SetAgent(L"list", entity); |
| | | return 1; |
| | | } |
| | | |
| | | int GridSearch() |
| | | { |
| | | //alert(L"你好"); |
| | | #if 0 |
| | | |
| | | xstring m_config = L"view.Supplier.v3.config"; |
| | | xdwgrid dw = listwin::dw_list; |
| | | xaserverarg& arg = *new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | xstring str = TFile::node(m_config, L"config", L"search"); |
| | | if (str != L"") { |
| | | arg.AddArg(L"sheet", str); |
| | | } |
| | | else |
| | | arg.AddArg(L"sheet", L"dev:sheet[Supplier.v3.tpl/list]"); |
| | | arg.AddArg(L"search", listwin::m_QueryTxt); |
| | | openUrl(L"view.dlg.vface/xpage/grid/column/search", &arg); |
| | | xstring ok = arg.GetArgString(L"return"); |
| | | if (ok == L"ok") { |
| | | xstring txt = arg.GetArgString(L"search"); |
| | | if (txt != L"") { |
| | | listwin::m_QueryTxt = txt; |
| | | //trace(txt); |
| | | OnRetrieve(); |
| | | } |
| | | } |
| | | #endif |
| | | return 0; |
| | | } |
| | | |
| | | int OnSelectAllRow() |
| | | { |
| | | int rows = listwin::dw_list.GetRowCount(); |
| | | if (rows < 1) return -1; |
| | | listwin::dw_list.SelectRow(1, rows, true); |
| | | listwin::dw_list.Redraw(); |
| | | return 1; |
| | | } |
| | | |
| | | int OnRClick(TEvent evt, LPARAM p) |
| | | { |
| | | return 1; |
| | | } |
| | | int OnLogOff() |
| | | { |
| | | return 1; |
| | | } |
| | | int OnChecked() |
| | | { |
| | | xstring partyno = dw_list.GetItemString(dw_list.GetRow(), L"PartyNo"); |
| | | if (partyno.find(L"N") < 0) |
| | | { |
| | | alert(L"已经是正式供应商"); |
| | | return 0; |
| | | } |
| | | xstring entityid = GetEntityID(dw_list.GetRow()); |
| | | int MB_OKCANCEL = 1; |
| | | int IDOK = 1; |
| | | int ret = MessageBoxW(GetHWND(), L"是否转成正式供应商?", L"提示", MB_OKCANCEL); |
| | | if (ret == IDOK) |
| | | { |
| | | xml x = ViewObject::RetrieveData(GetServerUrl(), L"/sale/data/SupplierV3/entity/updateno", L"entityid", entityid); |
| | | |
| | | if (xstring(x.xml()).find(L"success") > 0) |
| | | { |
| | | alert(L"处理成功"); |
| | | OnRetrieve(); |
| | | } |
| | | } |
| | | return 1; |
| | | } |
| | | int PreOnCmdDispatch(xstring comdid) |
| | | { |
| | | //alert(comdid); |
| | | |
| | | if (comdid.find(L"action:LogOff", 0) >= 0) return OnLogOff(); |
| | | if (comdid.find(L"action:bill.delete", 0) >= 0) |
| | | { |
| | | OnDeleteRow(); |
| | | return 0; |
| | | } |
| | | if (comdid == L"action:search1") return GridSearch(); |
| | | if (comdid == L"action:bill.refresh") |
| | | { |
| | | return OnRetrieve(); |
| | | } |
| | | if (comdid == L"action:bill.xmSaveAs") |
| | | { |
| | | xstring userno = publiccode::GetUser().no; |
| | | if (userno == L"00701" || userno == L"00601" || userno == L"admin") |
| | | { |
| | | dw_list.SaveAs(L""); |
| | | //dw_goods.SetItemTipString(1,"POPrice","21.4 2018/07/08\r\n23.4 2018/07/12"); |
| | | } |
| | | return 1; |
| | | } |
| | | if (comdid == L"action:bill.Annex") |
| | | |
| | | int Oncopy(string EnquiryID, string ItemID) |
| | | { |
| | | xaserverarg& arg = *new xaserverarg; |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(GetParam()); |
| | | |
| | | |
| | | dw_base.SetItemString(1, "ValidDay", arg.GetArgString("ValidDay")); |
| | | dw_base.SetItemString(1, "SONo", arg.GetArgString("SONo")); |
| | | dw_base.SetItemString(1, "Remark", arg.GetArgString("Remark")); |
| | | dw_base.SetItemString(1, "Source", arg.GetArgString("Source")); |
| | | dw_base.SetItemString(1, "PayTerm", arg.GetArgString("PayTerm")); |
| | | dw_base.SetItemString(1, "SupplierID", arg.GetArgString("SupplierID")); |
| | | dw_base.SetItemDisplayString(1, "SupplierID", arg.GetArgString("SupplierID/@_displaystring")); |
| | | dw_base.SetItemString(1, "CustomerContactName", arg.GetArgString("CustomerContactName")); |
| | | dw_base.SetItemString(1, "ContactTel", arg.GetArgString("ContactTel")); |
| | | |
| | | string sdate = publiccode::GetCurrentDate(); |
| | | dw_base.SetItemString(1, "EnquiryDate", sdate); |
| | | string suserid = publiccode::GetUser().id; |
| | | string susername = publiccode::GetUser().name; |
| | | dw_base.SetItemString(1, "SalespersonID", suserid); |
| | | dw_base.SetItemDisplayString(1, "SalespersonID", susername); |
| | | dw_base.SetItemString(1, "CompanyID", "E9E3C542-062C-4957-B8F4-9B92C3E351FC"); |
| | | dw_base.SetItemDisplayString(1, "CompanyID", "宁波家尔佳进出口有限公司"); |
| | | |
| | | //xml x = QuoteView::Oncopy(EnquiryID,ItemID); |
| | | |
| | | xml x = ViewObject::RetrieveData("/sale/data/Enquiry/Oncopy", "EnquiryID", EnquiryID, "ItemID", ItemID); |
| | | if (!x) return 1; |
| | | //alert(x.GetXml()); |
| | | msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("/Enquiry/Item"); |
| | | int len = items.length; |
| | | for (int i = 0; i < len; i++) |
| | | { |
| | | |
| | | msxml::IXMLDOMElement e = items.item(i); |
| | | dw_goods.InsertRow(i); |
| | | |
| | | int nRow = dw_goods.GetRow(); |
| | | |
| | | SetSeqNo(dw_goods, "SeqNo", nRow); |
| | | dw_goods.SetItemString(nRow, "UOMCode", "007"); |
| | | dw_goods.SetItemDisplayString(nRow, "UOMCode", "PCS"); |
| | | dw_goods.SetItemString(nRow, "KOPCode", "120"); |
| | | dw_goods.SetItemDisplayString(nRow, "KOPCode", "CTNS"); |
| | | if (e.selectSingleNode("ItemName"))dw_goods.SetItemString(nRow, "ItemName", e.selectSingleNode("ItemName").text); |
| | | if (e.selectSingleNode("GoodsNo"))dw_goods.SetItemString(nRow, "GoodsNo", e.selectSingleNode("GoodsNo").text); |
| | | if (e.selectSingleNode("SKUNo"))dw_goods.SetItemString(nRow, "SKUNo", e.selectSingleNode("SKUNo").text); |
| | | if (e.selectSingleNode("ItemMiniQty"))dw_goods.SetItemString(nRow, "ItemMiniQty", e.selectSingleNode("ItemMiniQty").text); |
| | | if (e.selectSingleNode("Picture"))dw_goods.SetItemString(nRow, "Picture", e.selectSingleNode("Picture").text); |
| | | if (e.selectSingleNode("ItemID"))dw_goods.SetItemString(nRow, "ItemID", e.selectSingleNode("ItemID").text); |
| | | if (e.selectSingleNode("ProductDesc"))dw_goods.SetItemString(nRow, "ProductDesc", e.selectSingleNode("ProductDesc").text); |
| | | if (e.selectSingleNode("Packing"))dw_goods.SetItemString(nRow, "Packing", e.selectSingleNode("Packing").text); |
| | | if (e.selectSingleNode("POPrice"))dw_goods.SetItemString(nRow, "POPrice", e.selectSingleNode("POPrice").text); |
| | | if (e.selectSingleNode("PriceType"))dw_goods.SetItemString(nRow, "PriceType", e.selectSingleNode("PriceType").text); |
| | | if (e.selectSingleNode("InnerQty"))dw_goods.SetItemString(nRow, "InnerQty", e.selectSingleNode("InnerQty").text); |
| | | if (e.selectSingleNode("PackingRate"))dw_goods.SetItemString(nRow, "PackingRate", e.selectSingleNode("PackingRate").text); |
| | | if (e.selectSingleNode("VolumeDesc"))dw_goods.SetItemString(nRow, "VolumeDesc", e.selectSingleNode("VolumeDesc").text); |
| | | if (e.selectSingleNode("SampleFee"))dw_goods.SetItemString(nRow, "SampleFee", e.selectSingleNode("SampleFee").text); |
| | | if (e.selectSingleNode("TestFee"))dw_goods.SetItemString(nRow, "TestFee", e.selectSingleNode("TestFee").text); |
| | | if (e.selectSingleNode("ModelFee"))dw_goods.SetItemString(nRow, "ModelFee", e.selectSingleNode("ModelFee").text); |
| | | if (e.selectSingleNode("BOMPartNo"))dw_goods.SetItemString(nRow, "BOMPartNo", e.selectSingleNode("BOMPartNo").text); |
| | | if (e.selectSingleNode("ModifyDate"))dw_goods.SetItemString(nRow, "ModifyDate", e.selectSingleNode("ModifyDate").text); |
| | | |
| | | if (e.selectSingleNode("EnquiryDate"))dw_goods.SetItemString(nRow, "EnquiryDate", e.selectSingleNode("EnquiryDate").text); |
| | | if (e.selectSingleNode("EnquiryPriceListID"))dw_goods.SetItemString(nRow, "EnquiryPriceListID", e.selectSingleNode("EnquiryPriceListID").text); |
| | | if (e.selectSingleNode("RelEnquiryLineID"))dw_goods.SetItemString(nRow, "RelEnquiryLineID", e.selectSingleNode("RelEnquiryLineID").text); |
| | | if (e.selectSingleNode("PirorEnquiryLineID"))dw_goods.SetItemString(nRow, "PirorEnquiryLineID", e.selectSingleNode("PirorEnquiryLineID").text); |
| | | if (e.selectSingleNode("RealEnquiryLineID"))dw_goods.SetItemString(nRow, "RealEnquiryLineID", e.selectSingleNode("RealEnquiryLineID").text); |
| | | if (e.selectSingleNode("category"))dw_goods.SetItemString(nRow, "category", e.selectSingleNode("category").text); |
| | | |
| | | |
| | | if (dw_goods.GetItemString(nRow, "VolumeDesc") != "" && |
| | | dw_goods.GetItemString(nRow, "Packages") != "") |
| | | { |
| | | int qty = EvalQtyPerFCL45H(nRow); |
| | | dw_goods.SetItemString(nRow, "Packages45H", qty.toString()); |
| | | dw_goods.SetItemDouble(nRow, "TransportationFee", 5000.0 / qty); |
| | | } |
| | | |
| | | } |
| | | return 1; |
| | | } |
| | | int OnInit() |
| | | { |
| | | //公司抬头、报价人、报价日期 |
| | | string sdate = publiccode::GetCurrentDate(); |
| | | dw_base.SetItemString(1, "EnquiryDate", sdate); |
| | | string suserid = publiccode::GetUser().id; |
| | | string susername = publiccode::GetUser().name; |
| | | dw_base.SetItemString(1, "SalespersonID", suserid); |
| | | dw_base.SetItemDisplayString(1, "SalespersonID", susername); |
| | | dw_base.SetItemString(1, "CompanyID", "E9E3C542-062C-4957-B8F4-9B92C3E351FC"); |
| | | dw_base.SetItemDisplayString(1, "CompanyID", "宁波家尔佳进出口有限公司"); |
| | | return 1; |
| | | } |
| | | |
| | | /* |
| | | pricebill: one of enquiry pricebill quote pricebill |
| | | */ |
| | | int RetrieveItemList(string items, string pricebill = "") |
| | | { |
| | | xml x = new xml; |
| | | x.setNativePointer(xml::CreateInstance()); |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(arg.CreateInstance()); |
| | | arg.AddArg(L"entityid", dw_list.GetItemString(dw_list.GetRow(), L"SupplierID")); |
| | | arg.AddArg(L"ApplyStatus", dw_list.GetItemString(dw_list.GetRow(), L"ApplyStatus")); |
| | | |
| | | OpenWindow(L"dev:xpage[maint.Document.Supplier.v3.vx]", (LPARAM)&arg); |
| | | return 1; |
| | | } |
| | | if (comdid == L"action:bill.AnnexEx") |
| | | { |
| | | xaserverarg& arg4 = *new xaserverarg; |
| | | arg4.setNativePointer(arg4.CreateInstance()); |
| | | arg4.AddArg(L"entityid", dw_list.GetItemString(dw_list.GetRow(), L"SupplierID")); |
| | | //arg4.AddArg(L"ApplyStatus",dw_list.GetItemString(dw_list.GetRow(),L"ApplyStatus")); |
| | | |
| | | //OpenWindow(L"dev:xpage[maint.Document.Customer.v3.vx]", p4); |
| | | OpenWindow(L"dev:xpage[maint.Document.SupplierSD.v3.vx]", (LPARAM)&arg4); |
| | | return 1; |
| | | } |
| | | if (comdid == L"action:bill.checked") |
| | | return OnChecked(); |
| | | // if(comdid==L"action:bill.import") return OnImport(); |
| | | // if(comdid.find(L"action:",0)>=0) return ProcessFlowAction(comdid,1); |
| | | //if(comdid==L"search") return GridSearch(L"view.dlg.vface/xpage/grid/column/edit"); |
| | | //if(comdid==L"showall") return ShowAll(); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | |
| | | int PostOnAttachEvent() |
| | | { |
| | | //获得树的选择事件 |
| | | AttachEvent(L"tv_1", L"TVN_SELCHANGED", (FEvent)&listSupplierv3::OnTreeSelChanged); |
| | | AttachEvent(L"cbx_1", L"CBN_SELCHANGE", (FEvent)&listSupplierv3::OnSelectDdlb); |
| | | AttachEvent(L"pages", L"PAGE_CLICK", (FEvent)&listSupplierv3::OnChangePages); |
| | | AttachEvent(L"dw_list", L"DWV_RCLICKED", (FEvent)&listSupplierv3::OnRClick);//鼠标右键 |
| | | //AttachEvent(L"dw_list", L"DWV_DOUBLECLICKED", (FEvent)&listSupplierv3::OnDoubleClicked); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | int onload() |
| | | { |
| | | PIndex = 1; |
| | | listwin::m_QueryTxt = L""; //查询条件 |
| | | m_sType = L""; //type |
| | | m_sTypeTxt = L""; //选中树的data |
| | | |
| | | listwin::onload(); |
| | | |
| | | tv_1 = GetControl(L"tv_1"); |
| | | ddlb_1 = GetControl(L"cbx_1"); |
| | | |
| | | changeddlb = 0; |
| | | OnCreateTree(L"GoodsCates"); |
| | | dw_list.SetColumnState(L"SupplierID", false); |
| | | dw_list.SetColumnState(L"userNo", false); |
| | | dw_list.SetColumnState(L"YearEstablished", false); |
| | | dw_list.SetColumnState(L"LegalPerson", false); |
| | | dw_list.SetColumnState(L"ThirdPartyReport", false); |
| | | dw_list.SetColumnState(L"bAddress", false); |
| | | dw_list.SetColumnState(L"PayType", false); |
| | | dw_list.SetColumnState(L"PicPath", false); |
| | | dw_list.SetColumnState(L"SDID", false); |
| | | dw_list.SetColumnState(L"AdvantageProduct", false); |
| | | //dw_list.SetColumnState(L"ApplyStatus",false); |
| | | |
| | | dw_goods = GetControl(L"dw_goods"); |
| | | dw_goods.openUrl(GetServerUrl(), L"/sale/view/SupplierV3/template/supplier/supplieritem"); |
| | | |
| | | if (publiccode::GetUser().name != L"admin") |
| | | { |
| | | xstring s = publiccode::GetUser().id; |
| | | |
| | | xml supplier_x = ViewObject::RetrieveData(GetServerUrl(), L"/sale/data/SupplierV3/entity/FindBySaleType", L"id", s); |
| | | if (supplier_x) |
| | | arg.AddArg("ItemList", items); |
| | | //alert(items); |
| | | string dataurl = "/sale/data/Enquiry/maint/items"; |
| | | if (pricebill == "pricebill") dataurl = "/sale/data/Enquiry/maint/pricelist/items"; |
| | | if (pricebill == "quote") dataurl = "/sale/data/Enquiry/FetchItemListByQuoteItemID"; |
| | | if (getUrl(dataurl, arg.GetString(), x) != 1) |
| | | { |
| | | TypeWork = supplier_x.text(); |
| | | alert(x.GetXmlDoc().text); |
| | | return -1; |
| | | } |
| | | else |
| | | { |
| | | |
| | | if (TypeWork.find(L"采购") >= 0) |
| | | trace("*****" + x.GetXml() + "*****"); |
| | | dw_goods.Retrieve(x); |
| | | dw_goods.Redraw(); |
| | | ReSeqNo("SeqNo"); |
| | | |
| | | |
| | | if (dw_goods.GetRowCount() > 0) |
| | | { |
| | | if (dw_goods.GetItemString(1, "customerno")) |
| | | { |
| | | dw_base.SetItemString(1, "CustomerNo", dw_goods.GetItemString(1, "customerno")); |
| | | } |
| | | imageview im = GetControl("im1"); |
| | | im.ResetEx(); |
| | | string skuno = dw_goods.GetItemString(1, "SKUNo"); |
| | | OnShowImage(skuno, 1); |
| | | im.Redraw(); |
| | | } |
| | | } |
| | | return 1; |
| | | } |
| | | |
| | | int onload() |
| | | { |
| | | dw_goods = GetControl("dw_goods"); |
| | | //dw_goods .openUrl("/sale/view/Enquiry3/template/goods"); |
| | | dw_goods.openUrl("/sale/view/Enquiry3/template/item/pricelist"); |
| | | dw_goods.SetColumnState("ItemID", false); |
| | | //dw_goods.SetColumnState("Picture",false); |
| | | dw_goods.SetColumnState("category", false); |
| | | dw_goods.SetColumnState("RealEnquiryLineID", false); |
| | | dw_goods.SetColumnState("RelEnquiryLineID", false); |
| | | dw_goods.SetColumnState("BOMPartNo", false); |
| | | |
| | | dw_base = GetControl("dw_base"); |
| | | |
| | | if (GetParam()) |
| | | { |
| | | xaserverarg arg = new xaserverarg; |
| | | arg.setNativePointer(GetParam()); |
| | | |
| | | sheetname = arg.GetArgString("sheetname"); |
| | | if (sheetname == "tab_list2") |
| | | { |
| | | dw_base.openUrl("/sale/view/Enquiry3/template/base2"); |
| | | //dw_base.SetItemString(1,"Source","客户询价"); |
| | | dw_goods.SetColumnState("SupplierID", true); |
| | | } |
| | | else |
| | | { |
| | | |
| | | dw_list.SetColumnState(L"DateEx", false); |
| | | dw_list.SetColumnState(L"DateExS", false); |
| | | dw_list.SetColumnState(L"Name", false); |
| | | dw_list.SetColumnState(L"ProvinceCode", false); |
| | | dw_list.SetColumnState(L"City", false); |
| | | dw_list.SetColumnState(L"District", false); |
| | | dw_list.SetColumnState(L"Address", false); |
| | | dw_list.SetColumnState(L"CName", false); |
| | | dw_list.SetColumnState(L"TEL", false); |
| | | dw_list.SetColumnState(L"Mob", false); |
| | | dw_list.SetColumnState(L"AreaCode", false); |
| | | dw_list.SetColumnState(L"Fax", false); |
| | | dw_goods.SetColumnState(L"Price", false); |
| | | dw_goods.SetColumnState(L"PackRMBPrice", false); |
| | | dw_goods.SetColumnState(L"PartRMBPrice", false); |
| | | dw_goods.SetColumnState(L"PaperRMBPrice", false); |
| | | dw_goods.SetColumnState(L"ETD", false); |
| | | dw_goods.SetColumnState(L"InvoiceNo", false); |
| | | dw_base.openUrl("/sale/view/Enquiry3/template/base"); |
| | | //dw_base.SetItemString(1,"Source","客户询价"); |
| | | dw_goods.SetColumnState("SupplierID", false); |
| | | } |
| | | dw_base.SetColHeaderHeight(0); |
| | | dw_base.SetRowSelectorWidth(0); |
| | | dw_base.SetHScrollState(false); |
| | | dw_base.SetVScrollState(false); |
| | | |
| | | string EnquiryNo = arg.GetArgString("EnquiryNo"); |
| | | string EnquiryID = arg.GetArgString("EnquiryID"); |
| | | string ItemID = arg.GetArgString("ItemID"); |
| | | if (EnquiryNo == "") EnquiryNo = arg.GetArgString("EntityNo"); |
| | | if (EnquiryNo != "") |
| | | { |
| | | OnRetrieve(EnquiryNo); |
| | | |
| | | } |
| | | else if (EnquiryID != "") { |
| | | Oncopy(EnquiryID, ItemID); |
| | | } |
| | | else |
| | | { |
| | | OnInit(); |
| | | |
| | | if (arg.GetArgString("CustomerID") != "") |
| | | { |
| | | dw_base.SetItemDisplayString(1, "SupplierID", arg.GetArgString("CustomerName")); |
| | | dw_base.ItemChangeTo(1, "SupplierID", arg.GetArgString("CustomerID")); |
| | | string dwname = "dw_base"; |
| | | string colname = "SupplierID"; |
| | | string value = arg.GetArgString("CustomerID"); |
| | | msxml::IXMLDOMNodeList nlist = GetElement().selectNodes("//*[@name='" + dwname + "']/trans[@for='" + colname + "']"); |
| | | ViewObject::TransData(nlist, dw_base, 1, colname, value); |
| | | } |
| | | |
| | | if (arg.GetArgString("EntityIDList") != "") |
| | | { |
| | | RetrieveItemList(arg.GetArgString("EntityIDList"), arg.GetArgString("Source")); |
| | | } |
| | | |
| | | } |
| | | } |
| | | else |
| | | OnInit(); |
| | | |
| | | OnAttachEvent(); |
| | | |
| | | dw_base.SetEditUpperMode(true); |
| | | dw_goods.SetEditUpperMode(true); |
| | | dw_goods.SetAskStyle(true); |
| | | |
| | | return 1; |
| | | } |
| | | |
| | | return 1; |
| | | } |
| | | int onloaded() |
| | | { |
| | | SetAgent(); |
| | | |
| | | int onloaded() |
| | | { |
| | | AttachEvent(L"dw_list", L"DWV_ROWFOCUSCHANGED", (FEvent)&listSupplierv3::OnRowChangedEx); |
| | | |
| | | listwin::onloaded(); |
| | | xstring EntityID; |
| | | int row = dw_list.GetRow(); |
| | | if (row<0 || row>dw_list.GetRowCount()) return 1; |
| | | KXMLDOMElement ele = dw_list.GetRowElement(row); |
| | | xstring id = listwin::m_configDoc.selectSingleNode(L"//entity/EntityID[1]").text(); |
| | | if (ele.selectSingleNode(id)) |
| | | EntityID = ele.selectSingleNode(id).text(); |
| | | listwin::SetAgent(L"list", EntityID); |
| | | return 1; |
| | | } |
| | | |
| | | }; |
| | | return 1; |
| | | } |
| | | }; |
| | | ] |