update some

xj qian

2024-07-05 6e93e717799723de98287f5a036ab34367bd08cd

 jrj/project/business/AP/maint.ap.cpp

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,306 @@
#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'>" +
            "<ChargeOffState update.modify='1'>" + ChargeOffState + L"</ChargeOffState>" +
            "<ChargeOffMoney update.modify='1'>" + PayedAmount + L"</ChargeOffMoney>" +
            "<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;
            }
         }

			
         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()
      {
         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, L"cellprotect", L"1");
         }
         return 1;
      }

      int onloaded()
      {
         SetAgent();

         return 1;
      }
   };