xj qian
2024-07-16 7a91c3a1ed37b0332d4ff0ebeae60bd6da3665c0
jrj/project/business/BasicCode/CustomerMarketMaint.cpp
对比新文件
@@ -0,0 +1,92 @@
#include <wobject/xstring.hpp>
#include <xcontrol/xtreeview.hpp>
#include <xcontrol/xdwgrid.hpp>
#include <wobject/xdouble.hpp>
#include <xcontrol/xlayersheet.hpp>
#include "vbusiness/vframe/listwin.vframe.vbusiness.hpp"
#include "viewobject/view.base.hpp"
using xml = KXMLDOMDocument;
class __declspec(dllexport) CustomerMarketMaint : public xframe
{
public:
   KXMLDOMDocument m_configDoc;
   xstring m_userid;
   xstring m_username;
   xstring ContactID;
   xdwtable dw_base;
   xcell dw_cell;
public:
   CustomerMarketMaint(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {}
public:
   static CustomerMarketMaint* CreateInstance(void* implPtr, void* hWnd)
   {
      CustomerMarketMaint* pWin = new CustomerMarketMaint(implPtr, (HWND)hWnd);
      return pWin;
   }
   int alert(xstring str)
   {
      //win::MessageBox(GetHWND(),str,L"鎻愮ず22:",0);
      TApp::alert(this, str);
      return 0;
   }
   int ViewUpdate(param pr, xstring updateItem, xaserverarg  arg)
   {
      if (updateItem == L"update")
      {
         dw_base.ResetUpdateStatus();
         return 1;
      }
   }
   xstring GetEntityData(param pr)
   {
      xml x;
      dw_base.DwUpdateAllTo(x);
      //trace(L"------x");
      trace(x.xml());
      return x.xml();
   }
   int onload()
   {
      maint::onload();
      dw_base = new xdwtable;
      dw_base.setNativePointer(GetControl(L"dw_base"));
      if (!maint::m_EntityID)
      {
         //xstring suserid = publiccode::GetUser().id;
         xstring suserid = xaserver::GetUserId();
         xstring susername = publiccode::GetUser().name;
         xstring sdate = publiccode::GetCurrentDate();
         dw_base.SetItemString(dw_base.GetRow(), L"CreatorID", suserid);//Party
         dw_base.SetItemDisplayString(dw_base.GetRow(), L"CreatorID", susername);
         dw_base.SetItemString(dw_base.GetRow(), L"CreateDate", sdate);
         xml x;
         xaserverarg arg;
         arg.AddArg(L"id", suserid);
         if (xaserver::ExecXQuery(L"", L"[OrgInfo.xq]", arg.GetString(), x) != 1)
         {
            trace(x.xml());
            return nil;
         }
         //alert(x.xml());
         KXMLDOMElement e = x.documentElement();
         trace(e.xml());
         if (e.selectSingleNode(L"orgid"))
         {
            xstring orgid = e.selectSingleNode(L"orgid").text();
            dw_base.SetItemString(1, L"OrgID", orgid);
         }
         if (e.selectSingleNode(L"orgname"))
         {
            xstring orgname = e.selectSingleNode(L"orgname").text();
            dw_base.SetItemDisplayString(1, L"OrgID", orgname);
         }
      }
   }
};