Q5/ws_objects/Ew_sale.pbl.src/w_dytitle_ware_pdb.srw

$PBExportHeader$w_dytitle_ware_pdb.srw
forward
global type w_dytitle_ware_pdb from w_dytitle_inwarebuy
end type
end forward

global type w_dytitle_ware_pdb from w_dytitle_inwarebuy
end type
global w_dytitle_ware_pdb w_dytitle_ware_pdb

forward prototypes
public subroutine wf_save ()
public subroutine wf_reset_dw1 ()
public function integer wf_save_dytitle_ware_pdb (long arg_hang, string arg_name, string arg_dwtitlename, string arg_execltitlename, string arg_filtername, string arg_msg)
end prototypes

public subroutine wf_save ();long i,hang
string arg_msg
hang=long(trim(sle_1.text))
for i=1 to dw_1.rowcount()
	if wf_save_dytitle_ware_pdb(hang,dw_1.Object.name[i],dw_1.Object.dwtitlename[i],dw_1.Object.execltitlename[i],of_globalreplace(dw_1.Object.filtername[i],'，',','),arg_msg )=0 then
		messagebox('Error','保存出错！' + arg_msg)
		return
	end if
next

messagebox('成功','保存成功' )


end subroutine

public subroutine wf_reset_dw1 ();Long i,ll_hang
dw_1.AcceptText()
String ls_name,ls_dwtitlename,ls_execltitlename,ls_filtername
FOR i = 1 To dw_1.RowCount()
	IF i = 1 THEN
		SELECT Top 1 hang Into :ll_hang From u_dytitle_ware_pdb;
		IF ll_hang <> 0 THEN
			sle_1.Text = string(ll_hang)
		ELSE
			sle_1.Text = '1'
		END IF
	END IF
	
	IF dw_1.Object.Name[i] <> '' THEN
		ls_name = dw_1.Object.Name[i]
		SELECT execltitlename,filtername Into :ls_execltitlename,:ls_filtername From u_dytitle_ware_pdb Where Name = :ls_name;
		IF ls_execltitlename <> '' THEN
			dw_1.Object.execltitlename[i] = ls_execltitlename
		ELSE
			dw_1.Object.execltitlename[i] = dw_1.Object.dwtitlename[i]
		END IF
		dw_1.Object.filtername[i] = ls_filtername//过滤字眼
		
	END IF
NEXT










end subroutine

public function integer wf_save_dytitle_ware_pdb (long arg_hang, string arg_name, string arg_dwtitlename, string arg_execltitlename, string arg_filtername, string arg_msg);Long rslt = 1, i
if isnull(arg_filtername) then arg_filtername=''
UPDATE u_dytitle_ware_pdb
	SET hang = :arg_hang,
	dwtitlename = :arg_dwtitlename,
	execltitlename = :arg_execltitlename,
	filtername=:arg_filtername
	WHERE name = :arg_name;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "更新明细标题与execl标题对应关系表操作失败"+"~n"+sqlca.SQLErrText
	GOTO ext
ELSEIF sqlca.SQLNRows = 0 THEN
	INSERT INTO u_dytitle_ware_pdb(hang,name,dwtitlename,execltitlename,filtername) VALUES (:arg_hang,:arg_name,:arg_dwtitlename,:arg_execltitlename,:arg_filtername);
END IF




ext:

IF rslt = 0 THEN
	ROLLBACK;
ELSE
	COMMIT;
END IF
RETURN rslt




end function

event open;s_dytitle_ware_pdb s_tran
s_tran=message.powerobjectparm

long i,row
for i=1 to upperbound(s_tran.col_name)
	row=dw_1.insertrow(0)
    dw_1.object.name[row]=s_tran.col_name[i]
	dw_1.object.dwtitlename[row]=s_tran.title_name[i]
next

wf_reset_dw1()
end event

on w_dytitle_ware_pdb.create
call super::create
end on

on w_dytitle_ware_pdb.destroy
call super::destroy
end on

type cb_func from w_dytitle_inwarebuy`cb_func within w_dytitle_ware_pdb
end type

type cb_exit from w_dytitle_inwarebuy`cb_exit within w_dytitle_ware_pdb
end type

type dw_1 from w_dytitle_inwarebuy`dw_1 within w_dytitle_ware_pdb
end type

type cb_1 from w_dytitle_inwarebuy`cb_1 within w_dytitle_ware_pdb
end type

type st_1 from w_dytitle_inwarebuy`st_1 within w_dytitle_ware_pdb
end type

type sle_1 from w_dytitle_inwarebuy`sle_1 within w_dytitle_ware_pdb
end type

type cb_2 from w_dytitle_inwarebuy`cb_2 within w_dytitle_ware_pdb
end type