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

$PBExportHeader$w_saletask_tc_edit.srw
forward
global type w_saletask_tc_edit from w_pageretr_ch
end type
type cb_del from uo_imflatbutton within w_saletask_tc_edit
end type
type cb_edit from uo_imflatbutton within w_saletask_tc_edit
end type
type cb_add from uo_imflatbutton within w_saletask_tc_edit
end type
type dw_1 from u_dw_rbtnfilter within w_saletask_tc_edit
end type
type cb_ch_ywy from uo_imflatbutton within w_saletask_tc_edit
end type
type cb_cmpl from uo_imflatbutton within w_saletask_tc_edit
end type
end forward

global type w_saletask_tc_edit from w_pageretr_ch
integer width = 3995
integer height = 2380
string title = "销售订单提成编辑"
boolean minbox = true
boolean maxbox = true
windowtype windowtype = popup!
windowstate windowstate = maximized!
event ue_viewprint ( )
event ue_print ( )
event ue_ch_outrepdef ( )
cb_del cb_del
cb_edit cb_edit
cb_add cb_add
dw_1 dw_1
cb_ch_ywy cb_ch_ywy
cb_cmpl cb_cmpl
end type
global w_saletask_tc_edit w_saletask_tc_edit

type variables
boolean if_del

long cur_scid 
long cur_taskid



//uo_order_ml obj_order
string ins_sqlerrtext

String ls_newname = ''
Long ll_prownum
Long ls_powerid
Int li_auditprint
String ls_rpname = ''
Long ls_msgprintid_rpt = 0

end variables

forward prototypes
public subroutine wf_facechange ()
end prototypes

event ue_viewprint();//IF NOT f_power_ind(1360) THEN
//	MessageBox('提示','你没有使用权限！',information!,OK!)
//	RETURN
//END IF
//
//Long LS_ROW,ll_mx
//String ls_ll_cardid
//String ls_msg
//Long ls_msgprintid
//String ls_parms[]
//Long ll_cardid[]
//
//ls_msgprintid = Message.LongParm
//
//
//SELECT dft_new_dwname,powerid,auditprint,prownum
//	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum
//	FROM sys_dft_dwprint_dynamic
//	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
//IF sqlca.SQLCode <> 0 THEN
//	ls_newname = ''
//	ls_powerid = 0
//END IF
//
//
//ll_mx = 0
//ls_msg = ''
//dw_pageretr.AcceptText()
//FOR LS_ROW = 1 TO dw_pageretr.RowCount()
//	IF dw_pageretr.Object.isselect[LS_ROW] = 1 THEN
//		ll_mx ++
//		ls_parms[ll_mx] =  String(dw_pageretr.Object.cardid[LS_ROW])
//		ll_cardid[ll_mx] =  dw_pageretr.Object.cardid[LS_ROW]
//	END IF
//NEXT
//
//IF ls_msg <> '' THEN
//	MessageBox('错误',ls_msg,stopsign!,OK!)
//	RETURN
//END IF
//
//S_print_MSG LS_PRMSG
//IF ls_newname <> '' THEN
//	LS_PRMSG.obj_dwNAME = ls_newname
//ELSE
//	LS_PRMSG.obj_dwNAME = 'dw_rp_saletaskmx_card_print'
//END IF
//
//LS_PRMSG.TAG_TEXT = '流程卡打印'
//LS_PRMSG.FILTER_STRING = ''
//LS_PRMSG.retr_pram_falg = 17
//LS_PRMSG.PAGECH_FLAG = 0
//LS_PRMSG.retr_scid = cur_scid
//LS_PRMSG.a_string_arr = ls_parms
//LS_PRMSG.rowcnt = ll_mx
//OpenWithParm(w_publ_preview,LS_PRMSG)
//
//
//String arg_msg
//printnum = Message.DoubleParm
//IF printnum > 0 THEN
//	FOR LS_ROW = 1 TO ll_mx
//		f_update_printnum('u_saletaskmx_card',printnum,cur_scid,ll_cardid[LS_ROW],'','',arg_msg,TRUE)
//	NEXT
//	CHOOSE CASE  sys_option_saletask_sc_card2
//		CASE 1
//			IF MessageBox ("询问","打印是否成功?成功则确认当前选定流程卡",Question!,YesNo! ) = 1 THEN
//				cb_audit.TriggerEvent(Clicked!)
//			END IF
//		CASE 2
//			cb_audit.TriggerEvent(Clicked!)
//	END CHOOSE
//END IF
//
//cb_refresh.TriggerEvent(Clicked!)
end event

event ue_print();//IF NOT f_power_ind(1360) THEN
//	MessageBox('提示','你没有使用权限！',information!,OK!)
//	RETURN
//END IF
//
//Long LS_ROW,ll_cardid[]
//Long ll_sptid,printid
//String ls_taskcode
//String ls_printid
//String ls_parms[]
//String ls_msg
//Long ll_mx
//Long ls_msgprintid
//s_saletaskmx s_mx[]
//ls_msgprintid = Message.LongParm
//
//
//SELECT dft_new_dwname,powerid,auditprint,prownum
//	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum
//	FROM sys_dft_dwprint_dynamic
//	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
//IF sqlca.SQLCode <> 0 THEN
//	ls_newname = ''
//	ls_powerid = 0
//END IF
//
//
//
//ll_mx = 0
//ls_msg = ''
//dw_pageretr.AcceptText()
//FOR LS_ROW = 1 TO dw_pageretr.RowCount()
//	IF dw_pageretr.Object.isselect[LS_ROW] = 1 THEN
//		ll_mx ++
//		ls_parms[ll_mx] =  String(dw_pageretr.Object.cardid[LS_ROW])
//		ll_cardid[ll_mx] =  dw_pageretr.Object.cardid[LS_ROW]
//	END IF
//NEXT
//
//
//IF ls_msg <> '' THEN
//	MessageBox('错误',ls_msg,stopsign!,OK!)
//	RETURN
//END IF
//
//IF ll_mx = 0 THEN
//	MessageBox('提示','请选择要打印的目标单据!',information!,OK!)
//	RETURN
//END IF
//
//S_print_MSG LS_PRMSG
//
//
//IF ls_newname <> '' THEN
//	LS_PRMSG.obj_dwNAME = ls_newname
//ELSE
//	LS_PRMSG.obj_dwNAME = 'dw_rp_saletaskmx_card_print'
//END IF
//
//
//
//uo_print_preview uo_print
//LS_PRMSG.TAG_TEXT = '流程卡打印'
//LS_PRMSG.FILTER_STRING = ''
//LS_PRMSG.retr_pram_falg = 17
//LS_PRMSG.PAGECH_FLAG = 0
//LS_PRMSG.retr_scid = cur_scid
//LS_PRMSG.a_string_arr = ls_parms
//LS_PRMSG.rowcnt = ll_mx
//uo_print.FACT_PRINT_MSG = LS_PRMSG
//
//String arg_msg
//IF uo_print.uof_print_begin(arg_msg) = 0 THEN
//	MessageBox("错误",arg_msg,stopsign!,OK!)
//	RETURN
//END IF
//uo_print.ds_print()
//
//
//
//FOR LS_ROW = 1 TO ll_mx
//	
//	f_update_printnum('u_saletaskmx_card',1,cur_scid,ll_cardid[LS_ROW],'','',arg_msg,TRUE)
//NEXT
//
//
//CHOOSE CASE  sys_option_saletask_sc_card2
//	CASE 1
//		IF MessageBox ("询问","打印是否成功?成功则确认当前选定流程卡",Question!,YesNo! ) = 1 THEN
//			cb_audit.TriggerEvent(Clicked!)
//		END IF
//	CASE 2
//		cb_audit.TriggerEvent(Clicked!)
//END CHOOSE
//
//cb_refresh.TriggerEvent(Clicked!)
end event

event ue_ch_outrepdef();IF not dw_edit_mode THEN return 
Long i, ll_row
ll_row = dw_pageretr.GetRow()

IF Not IsValid(w_outrepdef_edit_ch_arr) THEN
	Open(w_outrepdef_edit_ch_arr)
	s_outrepdef_arr s_outrep_ch
	s_outrep_ch = Message.PowerObjectParm
	FOR i = 1 To  UpperBound(s_outrep_ch.outrepname)
		//if isnull(s_outrep_ch.outrepname[i]) then s_outrep_ch.outrepname[i] = ''
		IF s_outrep_ch.outrepname[i] <> '' THEN //正常返回值则可以取以下值
			IF dw_pageretr.Find("outrepname = '"+s_outrep_ch.outrepname[i]+"'", 1, dw_pageretr.RowCount()) <= 0 THEN
				IF dw_pageretr.GetRow() > 0 THEN
					IF dw_pageretr.Object.outrepname[ll_row] <> '' THEN
						ll_row = dw_pageretr.InsertRow (0)
					ELSE
						ll_row = dw_pageretr.GetRow()
					END IF
				ELSE
					ll_row = dw_pageretr.InsertRow (0)
				END IF
				
				
				dw_pageretr.Object.outrepname[ll_row] = s_outrep_ch.outrepname[i]
			END IF
		END IF
	NEXT
END IF



end event

public subroutine wf_facechange ();
IF dw_edit_mode THEN
	cb_refresh.Enabled = FALSE
	cb_del.Enabled = TRUE
	cb_add.Enabled = TRUE
	cb_ch_ywy.Enabled = TRUE
	cb_cmpl.Enabled = TRUE
	
	
	dw_pageretr.RBUTTON_FILTER_USE = FALSE //右键查询功能开关
	dw_pageretr.titleclick_sort_use = FALSE //单击标题排序功能开关 
	dw_1.RBUTTON_FILTER_USE = FALSE //右键查询功能开关
	dw_1.titleclick_sort_use = FALSE //单击标题排序功能开关 
	
	cb_edit.Text = "放弃&E"
	cb_edit.normalpicname = 'Undo.bmp'
ELSE
	cb_refresh.Enabled = TRUE
	cb_del.Enabled = FALSE
	cb_add.Enabled = FALSE
	cb_ch_ywy.Enabled = FALSE
	cb_cmpl.Enabled = FALSE
	dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
	dw_pageretr.titleclick_sort_use = TRUE //单击标题排序功能开关 
	dw_1.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
	dw_1.titleclick_sort_use = TRUE //单击标题排序功能开关 
	
	cb_edit.Text = "修改&E"
	cb_edit.normalpicname = 'OPEN.bmp'
END IF

Long i
IF dw_edit_mode THEN
	dw_pageretr.SetTabOrder ('outrepname',10 )
	dw_pageretr.SetTabOrder ('rate',20 )
	
	dw_1.SetTabOrder ('u_saletaskmx_gbotheramt',10 )
ELSE
	dw_pageretr.SetTabOrder ('outrepname',0 )
	dw_pageretr.SetTabOrder ('rate',0 )
	
	dw_1.SetTabOrder ('u_saletaskmx_gbotheramt',0 )
END IF

cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.TriggerEvent('ue_textchange')












end subroutine

on w_saletask_tc_edit.create
int iCurrent
call super::create
this.cb_del=create cb_del
this.cb_edit=create cb_edit
this.cb_add=create cb_add
this.dw_1=create dw_1
this.cb_ch_ywy=create cb_ch_ywy
this.cb_cmpl=create cb_cmpl
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_del
this.Control[iCurrent+2]=this.cb_edit
this.Control[iCurrent+3]=this.cb_add
this.Control[iCurrent+4]=this.dw_1
this.Control[iCurrent+5]=this.cb_ch_ywy
this.Control[iCurrent+6]=this.cb_cmpl
end on

on w_saletask_tc_edit.destroy
call super::destroy
destroy(this.cb_del)
destroy(this.cb_edit)
destroy(this.cb_add)
destroy(this.dw_1)
destroy(this.cb_ch_ywy)
destroy(this.cb_cmpl)
end on

event ue_before_open;call super::ue_before_open;if_ue_retr=true
if_ue_sort=true

//uo_task = create uo_saletask
//uo_task.commit_transaction = sqlca
end event

event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	IF POS(trim(sle_usual_query.text),'%')=0 THEN
		obj_expr=obj_expr+'( u_mtrldef_mtrlcode LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( u_mtrldef_mtrlcode LIKE "'+trim(sle_usual_query.text)+'" )'
	END IF 
end if

dw_pageretr.setfilter(obj_expr)

dw_pageretr.SetRedraw(False)
dw_pageretr.filter()
if dw_pageretr.rowcount()>=1 then
	dw_pageretr.selectrow(0,false)
	dw_pageretr.selectrow(1,true )
end if
dw_pageretr.SetRedraw(TRUE )
end event

event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart=" u_mtrldef.mtrlcode like '%"+trim(sle_usual_query.text)+"%'"
	else
		ls_querystrpart=" u_mtrldef.mtrlcode like '"+trim(sle_usual_query.text)+"'"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_pageretr,ls_newselect,1)  
this.triggerevent('retrieve_pageretr')

end event

event open;THIS.TriggerEvent('ue_before_open')
wf_movetocenter()
OLD_TITLE = THIS.Title

s_tran = Message.PowerObjectParm
IF NOT IsNull(s_tran) THEN
	retrieve_all = TRUE
	cur_scid = s_tran.b_long
	cur_taskid = s_tran.c_long
END IF

dw_pageretr.SetTransObject (sqlca)
dw_1.SetTransObject (sqlca)
//pkcolumndbtname = wf_get_pkcolumndbtname(dw_pageretr) //取第一列为关键字
//
//ori_oldselect = dw_pageretr.Describe("DataWindow.Table.Select")
//ls_newselect = ori_oldselect
//ds_curquery = CREATE DATASTORE
//ds_curquery.DataObject = 'd_extr_find'
//ds_curquery.SetTransObject (sqlca)
//
//wf_editindex_lockf() 

cb_refresh.triggerevent(clicked!)


end event

event resize;call super::resize;dw_pageretr.height = this.height - dw_pageretr.y - 140

dw_1.width = this.width - dw_1.x - 40
dw_1.height = this.height - dw_1.y - 140
end event

event close;call super::close;IF IsValid(s_sys_win_open[102].win) THEN
	s_sys_win_open[102].win.TriggerEvent('retrieve_childdw')
END IF
end event

type cb_func from w_pageretr_ch`cb_func within w_saletask_tc_edit
boolean visible = false
end type

type cb_exit from w_pageretr_ch`cb_exit within w_saletask_tc_edit
integer x = 1239
string text = "退出"
end type

event cb_exit::clicked;IF dw_edit_mode THEN
	IF MessageBox ("询问","是否确定不保存退出",Question!,YesNo! ) = 2 THEN RETURN
END IF


Close(PARENT)

end event

type sle_usual_query from w_pageretr_ch`sle_usual_query within w_saletask_tc_edit
boolean visible = false
integer x = 197
integer y = 184
end type

type cb_retrieveall from w_pageretr_ch`cb_retrieveall within w_saletask_tc_edit
boolean visible = false
integer x = 1413
end type

type em_pagerowno from w_pageretr_ch`em_pagerowno within w_saletask_tc_edit
boolean visible = false
integer x = 1115
integer y = 32
end type

type dw_pageretr from w_pageretr_ch`dw_pageretr within w_saletask_tc_edit
integer y = 180
integer width = 1061
integer height = 2080
string dataobject = "dw_saletaskmx_ywymx_edit"
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event dw_pageretr::dberror;call super::dberror;ins_sqlerrtext=sqlerrtext
return 1
end event

event dw_pageretr::doubleclicked;PARENT.TriggerEvent('ue_ch_outrepdef')
end event

event dw_pageretr::dwnkey;call super::dwnkey;IF KeyDown(keydownarrow!) THEN
	Long li_row
	IF This.GetRow() = This.RowCount() THEN
		li_row = This.InsertRow(0)
		This.SelectRow(0, False)
		This.SetRow(li_row)
		This.SelectRow(li_row, True)
	END IF
ELSEIF KeyDown(keyenter!) THEN
	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
	keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
	RETURN 1
END IF


end event

event dw_pageretr::clicked;IF row > 0 THEN
	This.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row, True)
END IF

end event

event dw_pageretr::rowfocuschanging;//
end event

event dw_pageretr::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type st_1 from w_pageretr_ch`st_1 within w_saletask_tc_edit
boolean visible = false
integer x = 18
end type

type cb_nextpage from w_pageretr_ch`cb_nextpage within w_saletask_tc_edit
boolean visible = false
integer x = 1563
end type

type cb_choice from w_pageretr_ch`cb_choice within w_saletask_tc_edit
boolean visible = false
integer x = 814
integer taborder = 120
end type

type cb_refresh from w_pageretr_ch`cb_refresh within w_saletask_tc_edit
end type

event cb_refresh::clicked;dw_pageretr.SetRedraw(False)
dw_pageretr.Retrieve(cur_scid, cur_taskid)
dw_pageretr.SetRedraw(True)

dw_1.SetRedraw(False)
dw_1.Retrieve(cur_scid, cur_taskid)
dw_1.SetRedraw(True)


end event

type cb_help from w_pageretr_ch`cb_help within w_saletask_tc_edit
boolean visible = false
integer x = 1531
end type

type ln_bar from w_pageretr_ch`ln_bar within w_saletask_tc_edit
end type

type ln_bar2 from w_pageretr_ch`ln_bar2 within w_saletask_tc_edit
end type

type r_bar from w_pageretr_ch`r_bar within w_saletask_tc_edit
integer x = 2949
end type

type ln_1 from w_pageretr_ch`ln_1 within w_saletask_tc_edit
boolean visible = false
integer beginy = 252
integer endy = 252
end type

type ln_2 from w_pageretr_ch`ln_2 within w_saletask_tc_edit
boolean visible = false
integer beginy = 256
integer endy = 256
end type

type cb_del from uo_imflatbutton within w_saletask_tc_edit
integer x = 535
integer width = 155
integer height = 164
integer taborder = 70
boolean bringtotop = true
boolean enabled = false
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT dw_edit_mode THEN
	MessageBox('系统提示','非编辑状态下不可用')
	RETURN
END IF

IF MessageBox ("询问","是否确定要删除当前细目记录?",Question!,YesNo! ) = 2 THEN RETURN
IF dw_pageretr.GetRow() = 0 THEN
	MessageBox('提示','请选择删除的行对象!')
	RETURN
END IF
if_del = TRUE
Long ll_i
dw_pageretr.SetRedraw(FALSE)
FOR ll_i =  dw_pageretr.RowCount() TO 1 STEP -1
	IF dw_pageretr.IsSelected(ll_i) THEN
		dw_pageretr.DeleteRow (ll_i)
	END IF
NEXT
dw_pageretr.SetRedraw(TRUE)
if_del = FALSE
IF dw_pageretr.RowCount() = 0 THEN dw_pageretr.InsertRow(0)
dw_pageretr.TriggerEvent (RowFocusChanged!)

end event

type cb_edit from uo_imflatbutton within w_saletask_tc_edit
integer x = 343
integer width = 192
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1359) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF


IF dw_edit_mode THEN
	cb_refresh.TriggerEvent(Clicked!)
END IF

dw_edit_mode = NOT dw_edit_mode
wf_facechange()

end event

type cb_add from uo_imflatbutton within w_saletask_tc_edit
integer x = 151
integer width = 192
integer height = 164
integer taborder = 60
boolean bringtotop = true
boolean enabled = false
string text = "保存&S"
string normalpicname = "Save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Int rslt = 1
String arg_msg
Long i, cnt

dw_pageretr.AcceptText()
dw_1.AcceptText()

uo_saletask uo_task
uo_task = Create uo_saletask

s_saletaskmx s_mx[]
s_saletaskmx_outrep s_mx_rep[]

cnt = 0
FOR i = 1 To dw_1.RowCount()
	cnt ++
	s_mx[cnt].printid = dw_1.Object.u_saletaskmx_printid[i]
	s_mx[cnt].gbrate = dw_1.Object.u_saletaskmx_gbrate[i]
	s_mx[cnt].gbotheramt = dw_1.Object.u_saletaskmx_gbotheramt[i]
NEXT

cnt = 0
FOR i = 1 To dw_pageretr.RowCount()
	cnt ++
	s_mx_rep[cnt].outrepname = dw_pageretr.Object.outrepname[i]
	s_mx_rep[cnt].rate = dw_pageretr.Object.rate[i]
	s_mx_rep[cnt].amt = dw_pageretr.Object.amt[i]
NEXT

IF uo_task.uof_add_tc(cur_scid, cur_taskid, s_mx, s_mx_rep, arg_msg, True) = 0 THEN
	rslt = 0
	GOTO ext
END IF
//
//IF dw_pageretr.Update() = -1 THEN
//	IF Pos(ins_sqlerrtext,"Cannot insert duplicate key row") > 0 THEN
//		ls_errmsg = "关键内容重复"
//	ELSE
//		ls_errmsg = "因为网络或其他原因>"+ins_sqlerrtext
//	END IF
//	ROLLBACK;
//	MessageBox ('提示',ls_errmsg+",保存操作失败!", Information!, OK! )
//	RETURN
//END IF

ext:
Destroy uo_task
IF rslt = 0 THEN
	MessageBox ('提示',"保存操作失败!"+arg_msg, Information!, OK! )
	RETURN
ELSE
	MessageBox ('提示',"保存成功!", Information!, OK! )
	dw_edit_mode = Not dw_edit_mode
	wf_facechange()
END IF






end event

type dw_1 from u_dw_rbtnfilter within w_saletask_tc_edit
integer x = 1065
integer y = 180
integer width = 2926
integer height = 2080
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_saletaskmx_dhmx_edit"
end type

event clicked;call super::clicked;IF row > 0 THEN
	This.SelectRow(0,False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF

end event

type cb_ch_ywy from uo_imflatbutton within w_saletask_tc_edit
integer x = 690
integer width = 274
integer height = 164
integer taborder = 60
boolean bringtotop = true
boolean enabled = false
string text = "选业务员"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;PARENT.TriggerEvent('ue_ch_outrepdef')
end event

type cb_cmpl from uo_imflatbutton within w_saletask_tc_edit
integer x = 965
integer width = 274
integer height = 164
integer taborder = 80
boolean bringtotop = true
boolean enabled = false
string text = "计算提成"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF Not dw_edit_mode THEN RETURN

dw_pageretr.AcceptText()
dw_1.AcceptText()

Long i
Decimal lde_rate_sum, lde_rate
Decimal lde_tcamt_sum, lde_tcamt, lde_restamt
Decimal  lde_billtcamt_sum, lde_gbotheramt_sum



//计算总比例(>0)
IF dw_pageretr.RowCount() <= 0 THEN
	MessageBox('系统提示','请选择业务员')
	RETURN
END IF

FOR i = 1 To dw_pageretr.RowCount()
	lde_rate_sum += dw_pageretr.Object.rate[i]
NEXT

IF lde_rate_sum = 0 THEN
	MessageBox('系统提示','总分配比例不能为0')
	RETURN
END IF

//计算总提成金额
//usaleqty  *   u_saletaskmx_enprice  *  u_saletaskmx_rebate
FOR i = 1 To dw_1.RowCount()
	lde_billtcamt_sum += (Round((dw_1.Object.usaleqty[i] - dw_1.Object.u_saletaskmx_stopqty[i]) * dw_1.Object.u_saletaskmx_enprice[i] * dw_1.Object.u_saletaskmx_rebate[i], 2)) * dw_1.Object.u_saletaskmx_gbrate[i]
	lde_gbotheramt_sum += dw_1.Object.u_saletaskmx_gbotheramt[i]
NEXT
lde_tcamt_sum = lde_billtcamt_sum + lde_gbotheramt_sum

//计算个人提成金额(=个人比例*总提成金额/总比例)(余额分给最后一人)
lde_restamt = lde_tcamt_sum
FOR i = 1 To dw_pageretr.RowCount()
	IF i = dw_pageretr.RowCount() THEN
		lde_tcamt = lde_restamt
	ELSE
		lde_rate = dw_pageretr.Object.rate[i]
		lde_tcamt = Round(lde_rate * lde_tcamt_sum / lde_rate_sum, 2)
		
		lde_restamt -= lde_tcamt
	END IF
	
	dw_pageretr.Object.amt[i] = lde_tcamt
NEXT


end event