update some

xj qian

2024-07-05 6e93e717799723de98287f5a036ab34367bd08cd

 jrj/project/business/AR/ExchageFile.cpp

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,504 @@
#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) ExchangeFileView : public xframe
   {
   public:
      xcell   dw_exchangefile;
      xdwtable dw_arg;
      xdwgrid dw_exch;
      xstring filename;
      xnode   m_agentNode;   //Agent Condition

   public:
      ExchangeFileView(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {}
   public:
      static ExchangeFileView* CreateInstance(void* implPtr, void* hWnd)
      {
         ExchangeFileView* pWin = new ExchangeFileView(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 OnCellClicked(TEvent* evt, LPARAM p)
      {
         DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
         //if(hdr.col ==1)hdr.idFrom = -1;
         //if(hdr.col ==2)hdr.idFrom = -1;
         if (hdr.row == 1)hdr.idFrom = -1;
         return 2;
      }

      int OnValid()
      {
         int row = dw_exchangefile.GetValidRow();
         int col = dw_exchangefile.GetValidCol();
         for (int i = 2; i < row; i++)
         {

         }
         return 1;
      }

      int OnCellItemChanged(TEvent* evt, LPARAM p)
      {
         DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
         /*int currentrow;
         int currentcol;
         const xstring data;
         int anchorrow;
         int anchorcol;*/
         if (hdr.currentcol == 1 && hdr.data != L"")
         {
            //dw_exchangefile.SetItemString(hdr.currentrow,hdr.currentcol, L"");
         }
         return 1;
      }

      //焦点激活处理函数
      int OnSetFocus(TEvent* evt, LPARAM param)
      {
         //重置工具条
         SetAgent();
         return 1;
      }

      int OnDeleteRow()
      {
         dw_exch.DeleteRow(0);
         return 1;
      }

      int OnInsertRow()
      {
         int row = dw_exch.InsertRow(0);
         xstring sdate = publiccode::GetCurrentDate();
         dw_exch.SetItemString(row, L"CreateDate", sdate);
         dw_exch.SetItemString(row, L"SEDate", sdate);
         dw_exch.SetItemString(row, L"CurrencyCode", L"USD");
         xstring suserid = publiccode::GetUser().id;
         xstring susername = publiccode::GetUser().name;
         dw_exch.SetItemString(row, L"CreatorID", suserid);
         dw_exch.SetItemDisplayString(row, L"CreatorID", susername);

         if (row > 1)
         {
            xstring exchrate = dw_exch.GetItemString(row - 1, L"ExchRate");
            if (exchrate != L"") dw_exch.SetItemString(row, L"ExchRate", exchrate);
         }
         return 1;
      }


      int OnTran()
      {
         //get head
         xstring head = L"";
         xstring val = L"";
         int cols = dw_exchangefile.GetValidCol(1);
         for (int col = 1; col <= cols; ++col)
         {
            val = dw_exchangefile.GetItemString(1, col);
            val = val.trim();
            if (val == L"")continue;
            if (val.find(L"(L") >= 0) val = val.left(val.find(L"(L"));
            if (val.find(L"（") >= 0) val = val.left(val.find(L"（"));
            if (val.find(L"[") >= 0) val = val.left(val.find(L"["));
            if (val.find(L"【") >= 0) val = val.left(val.find(L"【"));
            if (val.find(L"/") >= 0) val = val.left(val.find(L"/"));
            if (val.find(L"\r") >= 0) val = val.left(val.find(L"\r"));
            if (val.find(L"\n") >= 0) val = val.left(val.find(L"\n"));
            if (head == L"") head = val; else head += L",L" + val;
         }

         xml x;
			
         xaserverarg arg ;
         arg.setNativePointer(arg.CreateInstance());
         arg.AddArg(L"head", head);
         //alert(head);
         if (getUrl(L"/sale/data/AR/match/bank", arg.GetString(), x) != 1)return 1;
         KXMLDOMNode n = x.selectSingleNode(L"data/Bank");
         if (!n)
         {
            alert(L"未匹配到合适的银行，请先配置数据转换信息");
            return 1;
         }

         KXMLDOMNodeList items = n.selectNodes(L"Item");
         int len = items.length();
         IntegerArray indexs = IntegerArray::make();
         StringArray columns = StringArray::make();
         xstring bank = n.selectSingleNode(L"@name").text();
         for (int i = 0; i < len; i++)
         {
            KXMLDOMElement e = items.item(i);
            xstring str = e.getAttribute(L"index");
            indexs.push_back(str.toInt());
            columns.push_back(e.selectSingleNode(L"DataColumn").text());
         }

         if (MessageBox(GetHWND(), L"是否载入" + bank + L"结汇数据!", L"提示", 1) == 2)  return 1;

         SwitchLayer(L"sheet2", L"frame");
         //set bank account
         xml xb = ViewObject::RetrieveData(L"/sale/data/AR/tran/bank/info", L"bank", bank);
         if (xb)
         {
            KXMLDOMNode nt = xb.selectSingleNode(L"/data/Item/Account");
            if (nt)
            {
               dw_arg.SetItemString(1, L"Bank", nt.text());
               if (nt.selectSingleNode(L"@_displaystring"))
                  dw_arg.SetItemDisplayString(1, L"Bank", nt.selectSingleNode(L"@_displaystring").text());
            }

         }

         //clear data
         for (int m = dw_exch.GetRowCount(); m > 0; m--)   dw_exch.DeleteRow(m);


         //读取客户转换信息
         xml xc;
			
         if (getUrl(L"/sale/data/AR/tran/customer", L"", xc) != 1)
         {
            trace(xc.text());
            return -1;
         }

         HCURSOR  hCursor = xutil::SetCursorWait();
         KXMLDOMDocument xdoc = xc;

         int rows = dw_exchangefile.GetValidRow();
         for (int row = 2; row <= rows; ++row)
         {
            val = dw_exchangefile.GetItemString(row, indexs.item(0));
            if (val.trim() == L"") continue;
            int curRow = dw_exch.InsertRow(0);

            //init
            xstring sdate = publiccode::GetCurrentDate();
            dw_exch.SetItemString(curRow, L"CreateDate", sdate);
            dw_exch.SetItemString(curRow, L"SEDate", sdate);
            xstring suserid = publiccode::GetUser().id;
            xstring susername = publiccode::GetUser().name;
            dw_exch.SetItemString(curRow, L"CreatorID", suserid);
            dw_exch.SetItemDisplayString(curRow, L"CreatorID", susername);

            for (int k = 0; k < indexs.length(); k++)
            {
               val = dw_exchangefile.GetItemString(row, indexs.item(k));
               if (columns.item(k) == L"ExchRate")
               {
                  double d = val.toDouble();
                  if (d > 100.0) d = d / 100.0;
                  dw_exch.SetItemDouble(curRow, L"ExchRate", d);
               }
               else if (columns.item(k) == L"CurrencyCode")
               {
                  if (val == L"美元") val = L"USD";
               }
               else if (columns.item(k) == L"CustomerID")
               {
                  if (xdoc)
                  {
                     KXMLDOMNode n1 = xdoc.selectSingleNode(L"/data/Item[contains(\"" + val + L"\",RawColumn)]");
                     if (n1)
                     {
                        //alert(n1.xml);
                        if (n1.selectSingleNode(L"DataColumn"))dw_exch.SetItemString(curRow, columns.item(k), n1.selectSingleNode(L"DataColumn").text());
                        if (n1.selectSingleNode(L"DataColumn/@_displaystring"))dw_exch.SetItemDisplayString(curRow, columns.item(k), n1.selectSingleNode(L"DataColumn/@_displaystring").text());
                     }
                  }
               }
               else
                  dw_exch.SetItemString(curRow, columns.item(k), val);
            }
         }
         xutil::RestoreCursor(hCursor);
         alert(L"转换完成!");

         return 1;
      }

      int OnSaveData()
      {
         xstring exchRate = dw_arg.GetItemString(1, L"ExchRate");
         xstring Bank = dw_arg.GetItemString(1, L"Bank");
         if (Bank == L"")
         {
            alert(L"请输入结汇银行!");
            return 1;
         }
         if (exchRate == L"")
         {
            alert(L"请输入汇率!");
            return 1;
         }
         for (int row = 1; row <= dw_exch.GetRowCount(); row++)
         {
            if (dw_exch.GetItemString(row, L"ExchRate") == L"")
            {
               dw_exch.SetItemString(row, L"ExchRate", exchRate);
            }
            /*else
            {

            }*/
            if (dw_exch.GetItemString(row, L"Bank") == L"")
            {
               dw_exch.SetItemString(row, L"Bank", Bank);
               dw_exch.SetItemDisplayString(row, L"Bank", dw_arg.GetItemDisplayString(1, L"Bank"));
            }
         }
         dw_exch.Redraw();

         xml x;
			
         dw_exch.AcceptText();
         dw_exch.DwUpdateAllToEx(x);
         xaserverarg arg ;
			
         arg.AddArg(L"content", x.xml());




         //trace(x.xml());
         if (xurl::get(L"/sale/data/AR/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_exch.ResetUpdateStatus();
            alert(L"保存成功!");
         }
         else
         {
            alert(L"保存失败!");
         }
         return 1;
      }

      int OnSave(bool saveas = false)
      {

         xstring myurl = L"data/SettleExchange";
         xstring sfilename = filename;
         if (filename == L"" || saveas)
         {
            xaserverarg arg ;
            arg.setNativePointer(arg.CreateInstance());
            arg.AddArg(L"src", L"data/SettleExchange");
            OpenWindow(L"dev:xpage[trade.document.saveas.vx]", cast(arg as int));
            if (arg.GetArgString(L"result") == L"ok")
            {
               sfilename = arg.GetArgString(L"filename");
            }
            else
               return 1;
         }

         xstring content = dw_exchangefile.GetData();

         xstring sguid = publiccode::GetGuid();
         xstring sname = sguid;
         xstring str = sname.mid(0, 2);
         str = str.toUpper();
         xstring suri = L"attachment" + str;
         int ret = xaserver::UploadData(suri, sguid + L".jpg", content);
         if (ret < 0)
         {
            alert(L"上传文件出错!");
            return 0;
         }

         xml x;
			
         xaserverarg args ;
         args.setNativePointer(args.CreateInstance());
         args.AddArg(L"myurl", myurl);
         args.AddArg(L"name", sfilename);
         args.AddArg(L"filepath", sname);
         args.AddArg(L"fileext", L"xdoc");
         args.AddArg(L"filesource", sfilename);



         if (xurl::get(L"/sale/data/TDocument3/attachment/add", args.GetString(), x) != 1)
         {
            alert(L"保存出错了!");
            return 0;
         }
         else
         {
            filename = sfilename;
            SetWindowText(GetHWND(), L"结汇文件:" + filename);
            alert(x.text());
         }

         return 1;
      }

      int SendCtrlCmd(xcontrol xc, xstring cmd)
      {
         SendMessage(xc.GetId(), 0x401, cmd, 0);
         return 1;
      }


      //命令发布函数
      int OnCmdDispatch(xstring comdid)
      {
         if (comdid == L"xmFileOpen")
         {
            xaserverarg args ;
            args.setNativePointer(args.CreateInstance());
            args.AddArg(L"src", L"data/SettleExchange");
            args.AddArg(L"process", L"path");
            OpenWindow(L"dev:xpage[trade.document.selectdlg.vx]", cast(args as int));
            if (args.GetArgString(L"result") == L"ok")
            {
               xstring u = args.GetArgString(L"src");
               xml x;
					
               xaserver::LoadUrl(GetServerUrl(), u, L"", x);
               dw_exchangefile.LoadTemplateEx(x.documentElement());
               dw_exchangefile.Redraw();
               filename = args.GetArgString(L"filename");
               SetWindowText(GetHWND(), L"结汇文件:" + filename);
            }
            return 1;
         }
         else if (comdid == L"xmFileNew")
         {
            dw_exchangefile.openUrl(L"/sale/view/AR/template/file");
            dw_exchangefile.Redraw();
            filename = L"";
            SetWindowText(GetHWND(), L"结汇文件:[new]");
            return 1;
         }
         else if (comdid == L"xmFileSave")
         {
            return OnSave();
         }
         if (comdid == L"xmAddRow")
         {
            return OnInsertRow();
         }
         else if (comdid == L"xmDeleteRow")
         {
            return OnDeleteRow();
         }
         else if (comdid == L"xmSave")
         {
            return OnSaveData();
         }
         else if (comdid == L"xmFileSaveAs")
         {
            return OnSave(/*saveas*/true);
         }
         else if (comdid.left(3) == L"IK_")
         {
            xstring cmd = comdid.mid(3, comdid.length());
            SendCtrlCmd(GetControl(L"dw_raw"), cmd);
            return 1;
         }
         else if (comdid == L"xmTrans")
         {
            OpenWindow(L"dev:xpage[ExchangeColumnTran.vx]");
            return 1;
         }
         else if (comdid == L"xmClient")
         {
            OpenWindow(L"dev:xpage[CustomerTran.AR.vx]");
            return 1;
         }
         else if (comdid == L"xmBank")
         {
            OpenWindow(L"dev:xpage[ExchangeBankTran.vx]");
            return 1;
         }
         else if (comdid == L"xmTran")
         {
            return OnTran();
         }
         return 0;
      }

      //命令处理事件
      int OnXCommand(TEvent* evt, LPARAM param)
      {
         return OnCmdDispatch(evt->xcommand.pStrID);
      }

      int OnAttachEvent()
      {
         //绑定工具条点击事件
         AttachEvent(L"WM_XCOMMAND", (FEvent)&ExchangeFileView::OnXCommand);
         //获取焦点事件，用于重置工具条
         AttachEvent(L"WM_SETFOCUS", (FEvent)&ExchangeFileView::OnSetFocus);
         AttachEvent(L"dw_exchangefile", L"CELL_ITEMCHANGED", (FEvent)&ExchangeFileView::OnCellItemChanged);
         AttachEvent(L"dw_exchangefile", L"DWV_CLICKED", (FEvent)&ExchangeFileView::OnCellClicked);
         return 1;
      }



      int onload()
      {
         dw_arg = GetControl(L"dw_arg");
         dw_arg.openUrl(L"/sale/view/AR/template/import/arg");
         dw_arg.SetColHeaderHeight(0);
         dw_arg.SetRowSelectorWidth(0);
         dw_arg.SetHScrollState(false);
         dw_arg.SetVScrollState(false);

         dw_exchangefile = GetControl(L"dw_raw");
         dw_exch = GetControl(L"dw_exch");
         dw_exch.openUrl(L"/sale/view/AR/template/listex");
         OnAttachEvent();


         filename = L"";
         return 1;
      }

      int onloaded()
      {
         SetAgent();
         SetWindowText(GetHWND(), L"结汇文件:[new]");

         return 1;
      }
   };