From 6a4764ee747fff45d89ef48f98873d6409e4f85e Mon Sep 17 00:00:00 2001
From: LiFan <2308045698@qq.com>
Date: 星期二, 16 七月 2024 17:22:23 +0800
Subject: [PATCH] update
---
jrj/project/business/BasicCode/CustomerMarketMaint.cpp | 177 ++++++++++++++++++++++++++++++-----------------------------
1 files changed, 90 insertions(+), 87 deletions(-)
diff --git a/jrj/project/business/BasicCode/CustomerMarketMaint.cpp b/jrj/project/business/BasicCode/CustomerMarketMaint.cpp
index 136986c..1198a1b 100644
--- a/jrj/project/business/BasicCode/CustomerMarketMaint.cpp
+++ b/jrj/project/business/BasicCode/CustomerMarketMaint.cpp
@@ -1,89 +1,92 @@
-use "system.vl"
-use "win.vl"
-use "maint.vl"
-use "file.vl"
-use "dev:vm[xcell.vm]"
-unit vbusiness.entity
-[
- CustomerMarketMaint is extend maint;
- about CustomerMarketMaint
- [
- field:
- [
- msxml::IXMLDOMDocument m_configDoc;
- string m_userid;
- string m_username;
- string ContactID;
- xdwtable__ dw_base;
- xcell__ dw_cell;
- ]
-
- method:
- [
- int alert(string str)
- {
- //win__::MessageBox(this.GetHWND(),str,"提示22:",0);
- TApp::alert(this,str);
- return 0;
- }
- int ViewUpdate(param pr,string updateItem,xaserverarg__ arg)
- {
- if(updateItem=="update")
- {
-
- dw_base.ResetUpdateStatus();
- return 1;
- }
- }
- string GetEntityData(param pr)
- {
- xml__ x = new xml__;
- x.setNativePointer(xml__::CreateInstance());
- dw_base.DwUpdateAllTo(x.GetXmlDoc());
- //trace("------x");
- trace(x.GetXml());
- return x.GetXml();
- }
- int onload()
- {
- maint::onload();
- dw_base = new xdwtable__;
- dw_base.setNativePointer(this.GetControl("dw_base"));
- if (!maint::m_EntityID)
- {
- //string suserid = TApp::GetUserInfo().id;
- string suserid = xaserver__::GetUserId();
- string susername = TApp::GetUserInfo().name;
- string sdate = TApp::GetCurDate();
- dw_base.SetItemString(dw_base.GetRow(),"CreatorID",suserid);//Party
- dw_base.SetItemDisplayString(dw_base.GetRow(),"CreatorID",susername);
- dw_base.SetItemString(dw_base.GetRow(),"CreateDate",sdate);
- xml__ x=new xml__;
- x.setNativePointer(xml__::CreateInstance());
- xaserverarg__ arg=new xaserverarg__;
- arg.setNativePointer(arg.CreateInstance());
- arg.AddArg("id", suserid);
- if(xaserver__::ExecXQuery("","[OrgInfo.xq]",arg.GetString(),x)!=1)
- {
- trace(x.GetXml());
- return nil;
- }
- //alert(x.GetXml());
- msxml::IXMLDOMElement e= x.GetXmlDoc().documentElement;
- trace(e.xml);
- if(e.selectSingleNode("orgid"))
- {
- string orgid= e.selectSingleNode("orgid").text;
- dw_base.SetItemString(1,"OrgID",orgid);
- }
+#include <wobject/xstring.hpp>
+#include <xcontrol/xtreeview.hpp>
+#include <xcontrol/xdwgrid.hpp>
+#include <wobject/xdouble.hpp>
+#include <xcontrol/xlayersheet.hpp>
- if(e.selectSingleNode("orgname"))
- {
- string orgname = e.selectSingleNode("orgname").text;
- dw_base.SetItemDisplayString(1,"OrgID",orgname);
- }
- }
+#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 = TApp::GetUserInfo().id;
+ xstring suserid = xaserver::GetUserId();
+ xstring susername = TApp::GetUserInfo().name;
+ xstring sdate = TApp::GetCurDate();
+ 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;
}
- ]
- ]
-]
\ No newline at end of file
+ //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);
+ }
+ }
+ }
+};
\ No newline at end of file
--
Gitblit v1.9.3