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/CartermList.cpp |  319 +++++++++++++++++++++++++++--------------------------
 1 files changed, 162 insertions(+), 157 deletions(-)

diff --git a/jrj/project/business/BasicCode/CartermList.cpp b/jrj/project/business/BasicCode/CartermList.cpp
index c09b17a..dc1585c 100644
--- a/jrj/project/business/BasicCode/CartermList.cpp
+++ b/jrj/project/business/BasicCode/CartermList.cpp
@@ -1,165 +1,170 @@
-use "system.vl"
-use "win.vl"
-use "list.vl"
-use "file.vl"
-unit vbusiness.entity
-[
-	CartermList is extend list;
-	about CartermList
-	[
-		field:
-		[	
-			xdwpages__ dw_pages;
-			xstring m_QueryTxt;
-			msxml::IXMLDOMDocument m_configDoc;
-			static int dw_hWnd;			
-		]
-		
-		method:
-		[
+#include <wobject/xstring.hpp>
+#include <xcontrol/xtreeview.hpp>
+#include <xcontrol/xdwgrid.hpp>
+#include <wobject/xdouble.hpp>
+#include <xcontrol/xlayersheet.hpp>
 
-			int alert(xstring str)
-			{
-				//win__::MessageBox(this.GetHWND(),str,L"提示22:",0);
-				TApp::alert(this,str);
-				return 0;
-			}		
+#include "vbusiness/vframe/listwin.vframe.vbusiness.hpp"
+#include "viewobject/view.base.hpp"
 
-		
-			xstring GetGuid(){
-				return TApp::GetGuid();			
-			}							
-			int OnAddrow()
-			{
-				this.dw_list.InsertRow(0); 
-				int rows = this.dw_list.GetRowCount();
-				this.dw_list.SetRow(rows);					
-				this.dw_list.SetItemString(rows,L"PartyID",GetGuid());	
-				this.dw_list.SetItemString(rows,L"ContactID",GetGuid());						
-				this.dw_list.SetItemString(rows,L"PAStatus",L"1");
-				this.dw_list.SetItemString(rows,L"PStatus",L"1");
-				this.dw_list.SetItemString(rows,L"PCStatus",L"1");					
-				this.dw_list.SetItemString(rows,L"Type",L"7");					
-			}
-			int OnInsertRow()
-			{
-				int row = this.dw_list.GetRow();
-				if(row<1 || row>this.dw_list.GetRowCount()) return 0;
-				this.dw_list.InsertRow(row); 
-				this.dw_list.SetItemString(row,L"PartyID",GetGuid());					
-				this.dw_list.SetItemString(row,L"ContactID",GetGuid());						
-				this.dw_list.SetItemString(row,L"PAStatus",L"1");
-				this.dw_list.SetItemString(row,L"PStatus",L"1");
-				this.dw_list.SetItemString(row,L"PCStatus",L"1");					
-				this.dw_list.SetItemString(row,L"Type",L"7");					
-			}
-			
-			int ViewUpdate(param pr,xstring updateItem,xaserverarg__   arg)
-				{
-					if(	updateItem==L"del")
-					{
-						int DelRow = this.dw_list.GetRow();
-						this.dw_list.DeleteRow(DelRow);
+using xml = KXMLDOMDocument;
+class __declspec(dllexport) CartermList : public xwin
+{
+public:
+	xdwgrid	dw_list;
+	xdwpages dw_pages;
+	xstring m_QueryTxt;
+	KXMLDOMDocument m_configDoc;
+	static int dw_hWnd;
 
-					}
+public:
+	CartermList(void* implPtr, HWND hWnd) :xwin(implPtr, hWnd) {}
+public:
+	static CartermList* CreateInstance(void* implPtr, void* hWnd)
+	{
+		CartermList* pWin = new CartermList(implPtr, (HWND)hWnd);
+		return pWin;
+	}
+	int alert(xstring str)
+	{
+		//win::MessageBox(GetHWND(),str,L"提示22:",0);
+		TApp::alert(this, str);
+		return 0;
+	}
 
-					return 1;
-				}
-					
-			int OnDeleteRow()
-			{	
-				int rows = this.dw_list.GetRowCount();
-				int row2 = this.dw_list.GetPrevSelectRow(rows);
-				while(row2 > 0){
-					this.dw_list.DeleteRow(row2);
-					row2 = this.dw_list.GetPrevSelectRow(row2 - 1);
-				}
-				this.dw_list.SelectRow(0, false);			
-			}
-			
-			int OnSave()
-			{				
-				/*xstring no = this.dw_list.GetItemString(1,L"CarTermNo");
-				if(no==L""){
-					alert(L"请输入车队编码!");
-					return -1;
-				}	
-				xstring SName = this.dw_list.GetItemString(1,L"Name");
-				if(SName==L""){
-					alert(L"请输入车队名称!");
-					return -1;
-				}
-				xstring ContacterName = this.dw_list.GetItemString(1,L"ContacterName");
-				if(ContacterName==L""){
-					alert(L"请输入联系人名称!");
-					return -1;
-				}	*/										
-				xml__ x=new xml__;
-				x.setNativePointer(xml__::CreateInstance());
-				this.dw_list.AcceptText();					
-				this.dw_list.DwUpdateAllToEx(x.GetXmlDoc()); 
-				trace(x.GetXml());
-				xaserverarg__ arg=new xaserverarg__;
-				arg.setNativePointer(arg.CreateInstance());	
-				arg.AddArg(L"content",x.GetXml());						
-				arg.AddArg(L"dbmap",L"CarTerm.dbmap");		
-				if (getUrl(L"/sale/data/CarTerm/entity/carterm/save",arg.GetString(),x) != 1)
-				{
-					trace(L"error:"+x.GetXml());
-					alert(L"保存失败!");
-					return 0;
-				}						
-				else
-				{	
-					trace(x.GetXml());
-					if(x.GetXmlDoc().selectSingleNode(L"error"))
-					{
-						alert(L"保存出错2!");
-						return 0;
-					}					
-					alert(L"保存成功!");					
-					this.dw_list.ResetUpdateStatus();							
-				}
-				this.dw_list.Redraw();			
-				return 0;
-			}				
-			int OnCmdDispatch(xstring comdid)
+
+	xstring GetGuid() {
+		return TApp::GetGuid();
+	}
+	int OnAddrow()
+	{
+		dw_list.InsertRow(0);
+		int rows = dw_list.GetRowCount();
+		dw_list.SetRow(rows);
+		dw_list.SetItemString(rows, L"PartyID", GetGuid());
+		dw_list.SetItemString(rows, L"ContactID", GetGuid());
+		dw_list.SetItemString(rows, L"PAStatus", L"1");
+		dw_list.SetItemString(rows, L"PStatus", L"1");
+		dw_list.SetItemString(rows, L"PCStatus", L"1");
+		dw_list.SetItemString(rows, L"Type", L"7");
+	}
+	int OnInsertRow()
+	{
+		int row = dw_list.GetRow();
+		if (row<1 || row>dw_list.GetRowCount()) return 0;
+		dw_list.InsertRow(row);
+		dw_list.SetItemString(row, L"PartyID", GetGuid());
+		dw_list.SetItemString(row, L"ContactID", GetGuid());
+		dw_list.SetItemString(row, L"PAStatus", L"1");
+		dw_list.SetItemString(row, L"PStatus", L"1");
+		dw_list.SetItemString(row, L"PCStatus", L"1");
+		dw_list.SetItemString(row, L"Type", L"7");
+	}
+
+	int ViewUpdate(param pr, xstring updateItem, xaserverarg   arg)
+	{
+		if (updateItem == L"del")
+		{
+			int DelRow = dw_list.GetRow();
+			dw_list.DeleteRow(DelRow);
+
+		}
+
+		return 1;
+	}
+
+	int OnDeleteRow()
+	{
+		int rows = dw_list.GetRowCount();
+		int row2 = dw_list.GetPrevSelectRow(rows);
+		while (row2 > 0) {
+			dw_list.DeleteRow(row2);
+			row2 = dw_list.GetPrevSelectRow(row2 - 1);
+		}
+		dw_list.SelectRow(0, false);
+	}
+
+	int OnSave()
+	{
+		/*xstring no = dw_list.GetItemString(1,L"CarTermNo");
+		if(no==L""){
+			alert(L"请输入车队编码!");
+			return -1;
+		}
+		xstring SName = dw_list.GetItemString(1,L"Name");
+		if(SName==L""){
+			alert(L"请输入车队名称!");
+			return -1;
+		}
+		xstring ContacterName = dw_list.GetItemString(1,L"ContacterName");
+		if(ContacterName==L""){
+			alert(L"请输入联系人名称!");
+			return -1;
+		}	*/
+		xml x;
+
+		dw_list.AcceptText();
+		dw_list.DwUpdateAllToEx(x);
+		trace(x.xml());
+		xaserverarg arg;
+
+		arg.AddArg(L"content", x.xml());
+		arg.AddArg(L"dbmap", L"CarTerm.dbmap");
+		if (xurl::get(L"/sale/data/CarTerm/entity/carterm/save", arg.GetString(), x) != 1)
+		{
+			trace(L"error:" + (xstring)x.xml());
+			alert(L"保存失败!");
+			return 0;
+		}
+		else
+		{
+			trace(x.xml());
+			if (x.selectSingleNode(L"error"))
 			{
-				if(comdid.find(L"action:bill.row.add",0)>=0) {
-					OnAddrow();
-				}
-				else if(comdid.find(L"bill.row.insert",0)>=0) {
-					OnInsertRow(); 							
-				}
-				else if(comdid.find(L"bill.row.delete",0)>=0) {
-					OnDeleteRow();
-				}
-				else if(comdid.find(L"bill.save",0)>=0) {					
-					trace(1);
-					OnSave();
-				}				
+				alert(L"保存出错2!");
 				return 0;
 			}
+			alert(L"保存成功!");
+			dw_list.ResetUpdateStatus();
+		}
+		dw_list.Redraw();
+		return 0;
+	}
+	int OnCmdDispatch(xstring comdid)
+	{
+		if (comdid.find(L"action:bill.row.add", 0) >= 0) {
+			OnAddrow();
+		}
+		else if (comdid.find(L"bill.row.insert", 0) >= 0) {
+			OnInsertRow();
+		}
+		else if (comdid.find(L"bill.row.delete", 0) >= 0) {
+			OnDeleteRow();
+		}
+		else if (comdid.find(L"bill.save", 0) >= 0) {
+			//trace(1);
+			OnSave();
+		}
+		return 0;
+	}
 
-			int OnXCommand(ref TXCommandEvent evt,int p)
-			{
-				return OnCmdDispatch(evt.pStrID);
-			}
-			
-			int OnAttachEvent()
-			{
-				AttachEvent(L"WM_XCOMMAND",OnXCommand);			
-				return 0;
-			}
-			
-			int onload()
-			{			
-				OnAttachEvent();								
-				list::onload();
-				this.dw_list.SetReadOnly(false);	
-				return -1;
-			}
-					
-		]
-	]
-]
\ No newline at end of file
+	int OnXCommand(TEvent* evt, LPARAM param)
+	{
+		return OnCmdDispatch(evt->xcommand.pStrID);
+	}
+
+	int OnAttachEvent()
+	{
+		AttachEvent(L"WM_XCOMMAND", (FEvent)&CartermList::OnXCommand);
+		return 1;
+	}
+
+	int onload()
+	{
+		OnAttachEvent();
+		list::onload();
+		dw_list.SetReadOnly(false);
+		return -1;
+	}
+
+};
\ No newline at end of file

--
Gitblit v1.9.3