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

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

global type w_dytitle_saletask from w_dytitle_inwarebuy
end type
global w_dytitle_saletask w_dytitle_saletask

forward prototypes
public subroutine wf_save ()
public subroutine wf_reset_dw1 ()
end prototypes

public subroutine wf_save ();long i,hang
string arg_msg
string ls_filtername
uo_saletask uo_save
uo_save = Create uo_saletask
uo_save.commit_transaction = sqlca
dw_1.AcceptText()
hang=long(trim(sle_1.text))
for i=1 to dw_1.rowcount()
	ls_filtername = of_globalreplace(dw_1.Object.filtername[i],'，',',')
	if uo_save.uof_save_dytitle_saletask(hang,dw_1.Object.name[i],dw_1.Object.dwtitlename[i],dw_1.Object.execltitlename[i],ls_filtername,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_saletask;
		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_saletask 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

event open;s_dytitle_saletask 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_saletask.create
call super::create
end on

on w_dytitle_saletask.destroy
call super::destroy
end on

type cb_func from w_dytitle_inwarebuy`cb_func within w_dytitle_saletask
end type

type cb_exit from w_dytitle_inwarebuy`cb_exit within w_dytitle_saletask
end type

type dw_1 from w_dytitle_inwarebuy`dw_1 within w_dytitle_saletask
end type

type cb_1 from w_dytitle_inwarebuy`cb_1 within w_dytitle_saletask
end type

type st_1 from w_dytitle_inwarebuy`st_1 within w_dytitle_saletask
end type

type sle_1 from w_dytitle_inwarebuy`sle_1 within w_dytitle_saletask
end type

type cb_2 from w_dytitle_inwarebuy`cb_2 within w_dytitle_saletask
end type