Q5/ws_objects/Ew_money.pbl.src/w_taskdamt.srw

$PBExportHeader$w_taskdamt.srw
forward
global type w_taskdamt from w_publ_1ton_share_detail
end type
type ddlb_scid from uo_ddlb_scid within w_taskdamt
end type
type ddlb_status from dropdownlistbox within w_taskdamt
end type
type st_2 from statictext within w_taskdamt
end type
type st_3 from statictext within w_taskdamt
end type
type cbx_1 from checkbox within w_taskdamt
end type
end forward

global type w_taskdamt from w_publ_1ton_share_detail
string title = "销售订单收款单"
boolean maxbox = true
windowstate windowstate = maximized!
event insert_childrow ( )
event ue_fj_edit ( )
event ue_fj_view ( )
ddlb_scid ddlb_scid
ddlb_status ddlb_status
st_2 st_2
st_3 st_3
cbx_1 cbx_1
end type
global w_taskdamt w_taskdamt

type variables
Long cur_scid = 0 //分店ID
Long cur_flag = -1 //-1：全部，0未审,1已审核
Int cur_editfocus = 0 //1:新建2:修改
Long il_moneyid_native
uo_giveback uo_giveback_mtrl
uo_taskdamt  uo_ware

long ins_accountsid_last
long ins_realmoneyid_last,ins_accounts_moneyid
long ins_itemid_last
long ins_banktypeid_last
decimal ins_realrate_last
end variables

forward prototypes
public function integer wf_addmx (long arg_cusid, datetime arg_startdate, datetime arg_enddate, ref string arg_msg)
public function integer wf_flagstatus_rf ()
public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg)
public function integer wf_refresh_curuc (long arg_billid)
public function integer wf_adduc_saletask (long arg_scid, long arg_taskid, ref string arg_msg)
public function integer wf_check_taskamt (ref string arg_msg)
end prototypes

event insert_childrow();Long li_row
li_row = dw_child.InsertRow(0)
dw_child.ScrollToRow(li_row)
dw_child.Object.moneyid_native[li_row] = il_moneyid_native

dw_child.Object.u_taskdamt_mx_accountsid[li_row] = ins_accountsid_last
dw_child.Object.u_taskdamt_mx_realrate[li_row] = ins_realrate_last
dw_child.Object.u_taskdamt_mx_realmoneyid[li_row] = ins_realmoneyid_last
dw_child.Object.u_accounts_moneyid[li_row] = ins_accounts_moneyid
dw_child.Object.u_taskdamt_mx_itemid[li_row] = ins_itemid_last
dw_child.Object.u_taskdamt_mx_banktypeid[li_row] = ins_banktypeid_last

dw_child.setitem(li_row,'u_taskdamt_mx_billtype',1)//默认值为余额收款

dw_child.SetColumn ('u_taskdamt_mx_billtype')


end event

event ue_fj_edit();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用',information!,OK!)
	RETURN
END IF

//IF NOT f_power_ind(1098) THEN
//	MessageBox(publ_operator,sys_msg_pow)
//	RETURN
//END IF

s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_pageretr.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('提示','没有指定附件数据库连接'+arg_msg,information!,OK!)
	RETURN
END IF

s_pic.f_long = 515 //
s_pic.f_string = dw_pageretr.Object.u_taskdamt_billcode[ls_row]
s_pic.g_long = dw_pageretr.Object.u_taskdamt_billid[ls_row]
s_pic.e_long = dw_pageretr.Object.u_taskdamt_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)

end event

event ue_fj_view();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用',information!,OK!)
	RETURN
END IF

s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_pageretr.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('提示','没有指定附件数据库连接'+arg_msg,information!,OK!)
	RETURN
END IF

s_pic.f_long = 515 //
s_pic.f_string = dw_pageretr.Object.u_taskdamt_billcode[ls_row]
s_pic.g_long = dw_pageretr.Object.u_taskdamt_billid[ls_row]
s_pic.e_long = dw_pageretr.Object.u_taskdamt_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)



end event

public function integer wf_addmx (long arg_cusid, datetime arg_startdate, datetime arg_enddate, ref string arg_msg);Int rslt = 1
Int ll_rowcount
Int ls_i,ls_currow
Long ll_scid
Long ll_outwareid
String ls_relcode
datetime ld_outdate
Decimal {5} ls_sumamt,ls_noreabteamt
arg_msg = ''

IF Year(Date(arg_startdate)) < 2000 OR IsNull(arg_startdate) THEN
	rslt = 0
	arg_msg = "缺少开始时间或不合理"
	GOTO EXT
END IF

IF Year(Date(arg_enddate)) < 2000 OR IsNull(arg_enddate) THEN
	rslt = 0
	arg_msg = '缺少结束时间或不合理'
	GOTO EXT
END IF

arg_startdate = DateTime(Date(arg_startdate),Time(0))
arg_enddate = DateTime(Date(arg_enddate),Time(23:59:59))
dw_child.Reset()

datastore ds_outware_sumamt
ds_outware_sumamt = CREATE datastore
ds_outware_sumamt.DataObject = "dw_outware_addmx"
ds_outware_sumamt.SetTransObject(sqlca)
ds_outware_sumamt.Retrieve(arg_cusid,arg_startdate,arg_enddate)

ll_rowcount = ds_outware_sumamt.RowCount()
IF ll_rowcount <= 0 THEN
	rslt = 0
	arg_msg = '该客户在这段时间内没有交易单据'
	GOTO EXT
END IF

FOR ls_i = 1 TO ll_rowcount
	ll_scid = ds_outware_sumamt.Object.scid[ls_i]
	ll_outwareid = ds_outware_sumamt.Object.outwareid[ls_i]
	ls_relcode = ds_outware_sumamt.Object.outwarecode[ls_i]
	ld_outdate = ds_outware_sumamt.Object.outdate[ls_i]
	//读该销售单的总金额
	SELECT SUM(round(fprice * qty * rebate,2)) AS amt
		INTO :ls_sumamt
		FROM u_outwaremx
		WHERE u_outwaremx.scid = :ll_scid
		AND u_outwaremx.outwareid = :ll_outwareid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '计算销售单的总金额失败！'
		GOTO EXT
	END IF
	IF ls_sumamt < 0 THEN
		rslt = 0
		arg_msg = '销售单的总金额错误！'
		GOTO EXT
	END IF
	//读该销售单的非折扣金额
	SELECT SUM(round(fprice * rebate * qty,2) ) AS amt
		INTO :ls_noreabteamt
		FROM u_outwaremx
		WHERE u_outwaremx.scid = :ll_scid AND u_outwaremx.outwareid = :ll_outwareid
		AND u_outwaremx.rebate >= :sys_option_cust_rate;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '计算销售单的非折扣金额失败！'
		GOTO EXT
	END IF
	IF ls_noreabteamt < 0 THEN
		rslt = 0
		arg_msg = '销售单的非折扣金额错误！'
		GOTO EXT
	END IF
	
	ls_currow = dw_child.InsertRow(0)
	
	dw_child.Object.scid[ls_currow] = ll_scid
	dw_child.Object.outwareid[ls_currow] = ll_outwareid
	dw_child.Object.relcode[ls_currow] = ls_relcode
	dw_child.Object.childsumamt[ls_currow] = ls_sumamt
	dw_child.Object.norebateamt[ls_currow] = ls_noreabteamt  
	dw_child.Object.givebackdate[ls_currow] = ld_outdate
NEXT

EXT:
RETURN rslt

end function

public function integer wf_flagstatus_rf ();Long pagerert_row

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
	GOTO ext
END IF

IF dw_edit_mode THEN
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
ELSE
	IF dw_pageretr.Object.u_taskdamt_flag[pagerert_row] = 0 THEN
		cb_auditing.Enabled = TRUE
		cb_auditing_cancel.Enabled = FALSE
	ELSEIF dw_pageretr.Object.u_taskdamt_flag[pagerert_row] = 1 THEN
		cb_auditing.Enabled = FALSE
		cb_auditing_cancel.Enabled = TRUE
	END IF
END IF

ext:
RETURN 0
end function

public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);//==============================================================================
// 函数: w_publ_1ton_share_detail::wf_xls_retrievedata()
//------------------------------------------------------------------------------
// 描述:  此函数需要 重载,复制祖先范例代码,然后修改retrieve参数部分两处即可
//------------------------------------------------------------------------------

Long LS_ROW,ll_id,i,ll_scid
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF

//修改点:获取 指定retriev参数
ll_id = dw_pageretr.Object.#1[LS_ROW]
ll_scid = dw_pageretr.Object.u_giveback_scid[LS_ROW]


////可选设置///
arg_obj_st.uo_const.create_new_pwd( )  //创建随机密码 
if sys_option_xls_ifuse_passwd = 1 then arg_obj_st.uo_const.pwd = trim(sys_option_xls_user_passwd)   //默认加密密码    默认为随即密码


boolean xls_locked
xls_locked = not (sys_option_xls_lock = 1)

/// Excel 的可选设置
if arg_obj_st.of_setoption(arg_ationid,  xls_locked,true,arg_msg) <> 1 then
		return 0
end if


for i = 1 to arg_str_billlist.count
	////可选操作///
	arg_str_billlist.bill[i].ds_data = create datastore                                  //
	arg_str_billlist.bill[i].ds_data.dataobject = arg_str_billlist.bill[i].datawindow       //
	arg_str_billlist.bill[i].ds_data.settransobject(sqlca)
	
	//修改点:注意retrieve 参数与上文对应
	arg_str_billlist.bill[i].ds_data.retrieve(ll_scid,ll_id)

next 

return 1
end function

public function integer wf_refresh_curuc (long arg_billid);IF arg_billid <= 0 OR IsNull(arg_billid) THEN RETURN 0
Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN RETURN 0

DateTime billdate
String cuscode
String assign_emp
String part
String dscrp
String billcode
Long billtype
Long cussptid
DateTime opdate
String opemp
String modemp
DateTime moddate
String permit_emp
DateTime permit_date
Long li_flag
String Name
String custype
Long scid
string simplename

SELECT u_taskdamt.scid,
	u_taskdamt.billdate,
	u_cust.cuscode,
	u_taskdamt.assign_emp,
	u_taskdamt.part,
	u_taskdamt.dscrp,
	u_taskdamt.billcode,
	u_taskdamt.cussptid,
	u_taskdamt.opdate,
	u_taskdamt.opemp,
	u_taskdamt.modemp,
	u_taskdamt.moddate,
	u_taskdamt.permit_emp,
	u_taskdamt.permit_date,
	u_taskdamt.flag,
	u_cust.name,
	u_cust.custype,
	u_cust.simplename
	INTO
	:scid,
	:billdate,
	:cuscode,
	:assign_emp,
	:part,
	:dscrp,
	:billcode,
	:cussptid,
	:opdate,
	:opemp,
	:modemp,
	:moddate,
	:permit_emp,
	:permit_date,
	:li_flag,
	:Name,
	:custype,
	:simplename
	FROM u_taskdamt INNER JOIN
	u_cust ON u_taskdamt.cussptid = u_cust.cusid
	WHERE ( u_taskdamt.billid = :arg_billid );
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示',"查询操作失败(错误单据唯一码)")
	RETURN 0
END IF

//计算收款总金额
decimal lde_takeamt
select SUM(takeamt) into :lde_takeamt
	from u_taskdamt_mx
	where u_taskdamt_mx.scid = :scid and u_taskdamt_mx.billid = :arg_billid ;

IF sqlca.SQLCode <> 0 THEN
	lde_takeamt = 0
	
END IF




dw_pageretr.Object.u_taskdamt_scid[uc_row] = scid
dw_pageretr.Object.u_taskdamt_billid[uc_row] = arg_billid
dw_pageretr.Object.u_taskdamt_billdate[uc_row] = billdate
dw_pageretr.Object.u_cust_cuscode[uc_row] = cuscode
dw_pageretr.Object.u_taskdamt_assign_emp[uc_row] = assign_emp
dw_pageretr.Object.u_taskdamt_part[uc_row] = part
dw_pageretr.Object.u_taskdamt_dscrp[uc_row] = dscrp
dw_pageretr.Object.u_taskdamt_billcode[uc_row] = billcode
dw_pageretr.Object.u_taskdamt_cussptid[uc_row] = cussptid
dw_pageretr.Object.u_taskdamt_opdate[uc_row] = opdate
dw_pageretr.Object.u_taskdamt_opemp[uc_row] = opemp
dw_pageretr.Object.u_taskdamt_modemp[uc_row] = modemp
dw_pageretr.Object.u_taskdamt_moddate[uc_row] = moddate
dw_pageretr.Object.u_taskdamt_permit_emp[uc_row] = permit_emp
dw_pageretr.Object.u_taskdamt_permit_date[uc_row] = permit_date
dw_pageretr.Object.u_taskdamt_flag[uc_row] = li_flag
dw_pageretr.Object.u_cust_name[uc_row] = Name
dw_pageretr.Object.u_cust_custype[uc_row] = custype
dw_pageretr.Object.u_cust_simplename[uc_row] = simplename
dw_pageretr.Object.takeamt[uc_row] = lde_takeamt


dw_uc.Reset()
dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!)


dw_uc.ResetUpdate()
dw_uc.SetRedraw(TRUE)

wf_flagstatus_rf()
RETURN 1


end function

public function integer wf_adduc_saletask (long arg_scid, long arg_taskid, ref string arg_msg);//wf_saletaskmtrltoarr(long arg_taskid,ref s_saletask_mtrl arg_s_rqmtrl[],ref long arg_p_rqmtrl,ref string arg_msg)
//查询合同物料资料
//把物料资料写入数组

Long rslt = 1
Long  child_row
Long ll_cusid
String ls_cuscode,ls_cusname,ls_taskcode
Long ll_moneyid, ll_banktypeid
String ls_assign_emp, ls_simplename
Long ll_scid, ll_taskid
Dec lde_damt, lde_msttakeamt, lde_takeamt, lde_noamt,lde_stopamt

SELECT u_cust.cusid, u_cust.cuscode, u_cust.name,u_saletask.taskcode,u_saletask.moneyid,u_saletask.assign_emp,u_cust.simplename,
	u_saletask.scid, u_saletask.taskid, u_saletask.damt,u_saletask.msttakeamt, u_saletask.takeamt,u_saletask.banktypeid,
	u_saletaskmx.stop_amt - u_SaleTask.takeamt - u_saletask.takedamt as noamt,u_saletaskmx.stop_amt
	INTO :ll_cusid,:ls_cuscode,:ls_cusname,:ls_taskcode,:ll_moneyid, :ls_assign_emp, :ls_simplename,
	:ll_scid, :ll_taskid, :lde_damt, :lde_msttakeamt, :lde_takeamt, :ll_banktypeid,:lde_noamt,:lde_stopamt
	FROM u_saletask INNER JOIN
	u_cust ON u_saletask.cusid = u_cust.cusid 
	LEFT JOIN (
	SELECT scid,taskid
		,sum((u_SaleTasKmx.usaleqty - u_SaleTasKmx.stopqty) * u_SaleTasKmx.enprice * u_SaleTasKmx.rebate) AS stop_amt
	FROM u_SaleTaskmx
	GROUP BY scid,taskid
	) u_SaleTaskmx ON u_SaleTask.taskid = u_SaleTasKmx.taskid and u_SaleTask.scid = u_SaleTasKmx.scid
	WHERE u_saletask.taskid = :arg_taskid AND
	u_saletask.scid = :arg_scid Using sqlca;
	
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "查询操作失败，销售单客户"
	GOTO ext
END IF

dw_uc.Object.u_taskdamt_cussptid[dw_uc.GetRow()] = ll_cusid
dw_uc.Object.u_cust_cuscode[dw_uc.GetRow()] = ls_cuscode
dw_uc.Object.u_cust_name[dw_uc.GetRow()] = ls_cusname
dw_uc.Object.u_cust_custype[dw_uc.GetRow()] = ls_assign_emp
dw_uc.Object.u_cust_simplename[dw_uc.GetRow()] = ls_simplename


dw_uc.AcceptText()

//wf_addmx_saletask(arg_scid,arg_taskid,arg_msg)
child_row = dw_child.GetRow()
dw_child.SetRedraw(False)
IF dw_child.GetRow() > 0 THEN
	IF dw_child.Object.u_taskdamt_mx_relid[child_row] <> 0 THEN
		child_row = dw_child.InsertRow (0)
	ELSE
		child_row = dw_child.GetRow()
	END IF
ELSE
	child_row = dw_child.InsertRow (0)
END IF

dw_child.Object.u_taskdamt_mx_scid[child_row] = ll_scid
dw_child.Object.u_taskdamt_mx_reltaskcode[child_row] = ls_taskcode
dw_child.Object.u_taskdamt_mx_damt[child_row] = lde_damt
dw_child.Object.u_taskdamt_mx_relid[child_row] = ll_taskid
dw_child.Object.u_taskdamt_mx_billamt[child_row] = lde_msttakeamt
dw_child.Object.u_taskdamt_mx_reltakeamt[child_row] = lde_takeamt
dw_child.Object.u_taskdamt_mx_takeamt[child_row] = lde_noamt
//		IF sys_option_m_msttake = 1 THEN
dw_child.Object.u_taskdamt_mx_realmoneyid[child_row] = ll_moneyid
//		ELSE
//			dw_child.Object.u_taskdamt_mx_realmoneyid[child_row] = il_moneyid_native
//		END IF
dw_child.Object.u_taskdamt_mx_banktypeid[child_row] = ll_banktypeid
dw_child.Object.u_taskdamt_mx_reldamt[child_row] = lde_takeamt
dw_child.Object.moneyid_native[child_row] = il_moneyid_native
dw_child.Object.stop_amt[child_row] = lde_stopamt

dw_child.SetRedraw(True)
dw_child.SetColumn("u_taskdamt_mx_accountsid")
ext:
RETURN rslt



end function

public function integer wf_check_taskamt (ref string arg_msg);long i,j,rslt=1,n = 1
long ll_taskid,ll_scid
dec dec_takeamt
dec lde_msttakeamt,lde_takeamt,lde_takedamt,lde_stopamt
long ll_row,ll_rowc
ll_row = dw_child.rowcount() - 1
ll_rowc = dw_child.rowcount()
dw_child.accepttext()


IF ll_rowc = 1 THEN
	ll_row = 1
END IF

for i=1 to ll_rowc
		ll_taskid = dw_child.Object. u_taskdamt_mx_relid [i]	
		dec_takeamt = dw_child.Object.u_taskdamt_mx_takeamt[i]
		ll_scid = cur_scid	
		IF ll_rowc >1  and i<> ll_rowc THEN
			for j=i to ll_row
				IF ll_taskid = dw_child.Object.u_taskdamt_mx_relid[J+1] Then
					dec_takeamt = dec_takeamt + dw_child.Object.u_taskdamt_mx_takeamt[J+1]
				END IF		
			next	
		END IF
		SELECT 	u_saletask.msttakeamt,u_saletask.takeamt,u_saletask.takedamt,u_saletaskmx.stop_amt
			INTO :lde_msttakeamt,:lde_takeamt,:lde_takedamt,:lde_stopamt
		FROM u_SaleTask 
		LEFT  JOIN (
	SELECT scid,taskid
		,sum((u_SaleTasKmx.usaleqty - u_SaleTasKmx.stopqty) * u_SaleTasKmx.enprice * u_SaleTasKmx.rebate) AS stop_amt
	FROM u_SaleTaskmx
	GROUP BY scid,taskid
	) u_SaleTaskmx ON u_SaleTask.taskid = u_SaleTasKmx.taskid and u_SaleTask.scid = u_SaleTasKmx.scid
		WHERE u_saletask.scid = :ll_scid AND
			u_saletask.taskid = :ll_taskid Using SQLCA;
		IF SQLCA.SQLCode <> 0 THEN
			arg_msg = '查询订单信息失败！'+SQLCA.SQLErrText
			rslt = 0
			messagebox('',arg_msg)
		END IF
		
		
		IF lde_stopamt - lde_takeamt - lde_takedamt <= 0 THEN
			arg_msg = '第['+string(i) +']行,该订单号已经全部收款完毕请检查'
			rslt = 0
			return rslt
		END IF	
					
		IF lde_stopamt - lde_takeamt - lde_takedamt < dec_takeamt THEN
			arg_msg = '第['+string(i) +']行,该订单号出纳收款额大于最大收款额'
			rslt = 0
			return rslt
		END IF		
next



return rslt
end function

on w_taskdamt.create
int iCurrent
call super::create
this.ddlb_scid=create ddlb_scid
this.ddlb_status=create ddlb_status
this.st_2=create st_2
this.st_3=create st_3
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_scid
this.Control[iCurrent+2]=this.ddlb_status
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.cbx_1
end on

on w_taskdamt.destroy
call super::destroy
destroy(this.ddlb_scid)
destroy(this.ddlb_status)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.cbx_1)
end on

event open;call super::open;uc_column_int = 6 //uc dw前6列可以编辑
child_column_int = 9 //子dw前3列可以编辑
uo_ware = CREATE uo_taskdamt






end event

event close;call super::close;DESTROY uo_giveback_mtrl
Int li_auto
IF cbx_1.Checked THEN
	li_auto = 1
ELSE
	li_auto = 0
END IF
f_SetProfileString(sys_empid, this.title, "auto_add", String(li_auto))

end event

event retrieve_childdw;Long row,uc_relid
row = dw_pageretr.GetRow()

IF row > 0 THEN
	uc_relid = dw_pageretr.Object.u_taskdamt_billid[row]

	dw_child.SetRedraw (FALSE)
	dw_child.Retrieve(uc_relid,il_moneyid_native)
	dw_child.SetRedraw (TRUE)
	IF dw_child.RowCount() > 0 THEN
		dw_child.SelectRow(0,FALSE)
		dw_child.SelectRow(1,TRUE)
		dw_child.SetRow(1)
	END IF	
ELSE
	dw_child.Reset()
END IF


end event

event retrieve_pageretr;Boolean cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_func_enabled,cb_retrieve_enabled

cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_func_enabled = cb_func.Enabled

cb_nextpage.Enabled = FALSE
cb_retrieveall.Enabled = FALSE
cb_func.Enabled = FALSE

Int li_option_outrep  //业务员权限
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF





dw_uc.Retrieve()
dw_pageretr.Retrieve(cur_scid,cur_flag,sys_user_outrep, li_option_outrep)
IF dw_pageretr.RowCount() > 0 THEN
	dw_pageretr.SetRow(1)
	dw_pageretr.TriggerEvent(RowFocusChanged!)
END IF

wf_flagstatus_rf()
THIS.TriggerEvent('retrieve_childdw')

cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled
cb_func.Enabled = cb_func_enabled



end event

event 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_taskdamt_billcode LIKE "%'+Trim(sle_usual_query.Text)+'%" )'
	ELSE
		obj_expr = obj_expr+'( u_taskdamt_billcode 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;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_taskdamt.billcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="( u_taskdamt.billcode 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 ue_f9;call super::ue_f9;
IF NOT dw_edit_mode THEN RETURN
Long child_row
String ls_msg = ''
Int rslt

child_row = dw_uc.GetRow()
IF child_row = 0 THEN
	MessageBox('系统提示','请选定单据!')
	RETURN
END IF
dw_uc.AcceptText()

IF NOT IsValid(W_cust_edit) THEN
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = FALSE //是否一次RETRIEVE所有行
	s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0 //目标定位PKID (备用)
	//查询列(物料编码)部分内容,用于初步筛选
	s_ch_tran.arg_string_code = Upper(Trim(dw_uc.Object.u_cust_cuscode[dw_uc.GetRow()]))
	
	THIS.Enabled = FALSE
	OpenWithParm(W_cust_edit,s_ch_tran) //调用
	THIS.Enabled = TRUE
	
	s_custom S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	IF S_INSCUST.cusid > 0 THEN //正常返回值则可以取以下值
		dw_uc.Object.u_taskdamt_cussptid[child_row] = S_INSCUST.cusid
		dw_uc.Object.u_cust_cuscode[child_row] = S_INSCUST.cuscode
		dw_uc.Object.u_cust_name[child_row] = S_INSCUST.Name
		dw_uc.Object.u_cust_custype[child_row] = S_INSCUST.bsntype
		dw_uc.Object.u_cust_simplename[child_row] = S_INSCUST.simplename
		dw_uc.SetRedraw(TRUE)
		dw_uc.SetColumn("u_taskdamt_assign_emp")
		dw_uc.setfocus()
	END IF
END IF


end event

event ue_viewprint;call super::ue_viewprint;IF NOT f_power_ind(1544,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

Long LS_ROW,ll_scid
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('NO','没有打印目标单据!')
	RETURN
END IF

S_print_MSG LS_PRMSG

if ls_powerid = 0 then 
	ls_powerid = 1693
end if
IF ls_newname <> '' THEN
	IF NOT f_power_ind(ls_powerid,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_taskdamt_flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	IF NOT f_power_ind(1693,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_cus_taskamt_edit'
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.printrow = ll_prownum
LS_PRMSG.TAG_TEXT = '订单收款单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = dw_pageretr.Object.u_taskdamt_scid[LS_ROW]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_taskdamt_billid[LS_ROW]
OpenWithParm(w_publ_preview,LS_PRMSG)

//**更新打印次料
String arg_msg
printnum = Message.DoubleParm

String ls_code

ll_scid = dw_pageretr.Object.u_taskdamt_scid[LS_ROW]
ls_code = dw_pageretr.Object.u_taskdamt_billcode[LS_ROW]

f_update_printnum2(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)





end event

event ue_print;call super::ue_print;//--直接打印
uo_print_preview uo_print
IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
S_print_MSG LS_PRMSG
IF dw_pageretr.RowCount() = 0 THEN
	MessageBox('系统信息','没有可打印的单据！')
	RETURN
END IF

if ls_powerid = 0 then 
	ls_powerid = 1693
end if

IF ls_newname <> '' THEN
	IF NOT f_power_ind(ls_powerid,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_taskdamt_flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	
	IF NOT f_power_ind(1693,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_cus_taskamt_edit'
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.printrow = ll_prownum
LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.TAG_TEXT = '订单收款单'

LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = dw_pageretr.Object.u_taskdamt_scid[dw_pageretr.GetRow()]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_taskdamt_billid[dw_pageretr.GetRow()]
uo_print.FACT_PRINT_MSG = LS_PRMSG

String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("系统提示",arg_msg)
	RETURN
END IF
uo_print.ds_print()


//**更新打印次料
printnum = Message.DoubleParm

String ls_code
long ll_scid

ll_scid = dw_pageretr.Object.u_taskdamt_scid[dw_pageretr.GetRow()]
ls_code = dw_pageretr.Object.u_taskdamt_billcode[dw_pageretr.GetRow()]

f_update_printnum2(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)



end event

event ue_addzy;call super::ue_addzy;IF NOT f_power_ind(1692,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN RETURN
String arg_msg = ''
String ls_str
Long uc_row
s_inputbox s_sreu

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF
s_sreu.Title = '请输入要补充到备注的内容'
s_sreu.old_text = ''
OpenWithParm(w_inputbox,s_sreu)
ls_str = Message.StringParm
IF Trim(ls_str) = '' OR IsNull(ls_str) THEN RETURN

IF uo_ware.add_dscrp(dw_pageretr.Object.u_taskdamt_billid[uc_row],ls_str,arg_msg,TRUE) = 0 THEN
	MessageBox('error!',arg_msg)
	RETURN
ELSE
	MessageBox(publ_operator,'添加备注操作成功!')
	wf_refresh_curuc(dw_pageretr.Object.u_taskdamt_billid[uc_row])
END IF



end event

event ue_f8;call super::ue_f8;//用于选择明细内容,被F9[默认]
IF NOT dw_edit_mode THEN RETURN

Long child_row

child_row = dw_child.GetRow()
IF child_row = 0 THEN RETURN

dw_child.AcceptText()

Long ll_cusid,ll_billtype
Long ls_taskid,ls_j
String ls_taskcode
Long ll_scid

ll_cusid = dw_uc.Object.u_taskdamt_cussptid[dw_uc.GetRow()]
IF IsNull(ll_cusid) OR ll_cusid = 0 THEN
	MessageBox(publ_operator,'请先选择客户')
	RETURN
END IF

IF dw_uc.Object.u_taskdamt_billid[dw_uc.GetRow()] = 0 THEN
	ll_scid = cur_scid
ELSE
	ll_scid = dw_uc.Object.u_taskdamt_scid[dw_uc.GetRow()]
END IF

IF NOT IsValid(w_taskamt_ch) THEN
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = FALSE //是否一次RETRIEVE所有行
	s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0 //目标定位PKID (备用)
	s_ch_tran.b_long = ll_scid
	s_ch_tran.c_long = ll_cusid
	//查询列(物料编码)部分内容,用于初步筛选
	s_ch_tran.arg_string_code = Upper(Trim(dw_child.Object.u_taskdamt_mx_reltaskcode[dw_child.GetRow()]))
	
	OpenWithParm(w_taskamt_ch,s_ch_tran) //调用
	
	s_saletask_ch_arr S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	IF UpperBound(S_INSCUST.taskid) = 0 THEN RETURN
	
	IF S_INSCUST.taskid[1] > 0 THEN //正常返回值则可以取以下值
	
		int ll_row 
		ll_row = dw_uc.GetRow()
		if S_INSCUST.relcode[1]<>''  then
			dw_uc.object.u_taskdamt_part[ll_row] = S_INSCUST.relcode[1]
		else
			dw_uc.object.u_taskdamt_part[ll_row] = S_INSCUST.taskcode[1]
		end if
		
		dw_child.SetRedraw(FALSE)
		IF dw_child.GetRow() > 0 THEN
			IF dw_child.Object.u_taskdamt_mx_relid[child_row] <> 0 THEN
				child_row = dw_child.InsertRow (0)
			ELSE
				child_row = dw_child.GetRow()
			END IF
		ELSE
			child_row = dw_child.InsertRow (0)
		END IF
		
		dw_child.Object.u_taskdamt_mx_scid[child_row] = ll_scid
		dw_child.Object.u_taskdamt_mx_reltaskcode[child_row] = S_INSCUST.taskcode[1]
		dw_child.Object.u_taskdamt_mx_damt[child_row] = S_INSCUST.damt[1]
		dw_child.Object.u_taskdamt_mx_relid[child_row] = S_INSCUST.taskid[1]
		dw_child.Object.u_taskdamt_mx_billamt[child_row] = S_INSCUST.billamt[1]
		dw_child.Object.u_taskdamt_mx_reltakeamt[child_row] = S_INSCUST.takeamt[1]
		dw_child.Object.u_taskdamt_mx_takeamt[child_row] = S_INSCUST.noamt[1]
//		IF sys_option_m_msttake = 1 THEN
			dw_child.Object.u_taskdamt_mx_realmoneyid[child_row] = S_INSCUST.moneyid[1]
//		ELSE
//			dw_child.Object.u_taskdamt_mx_realmoneyid[child_row] = il_moneyid_native
//		END IF
		dw_child.Object.u_taskdamt_mx_banktypeid[child_row] = S_INSCUST.banktypeid[1]
		dw_child.Object.u_taskdamt_mx_reldamt[child_row] = S_INSCUST.takedamt[1]
		dw_child.Object.moneyid_native[child_row] = il_moneyid_native
		
		dw_child.Object.u_saletask_relcode[child_row] = S_INSCUST.relcode[1]
		
		
		dw_child.SetRedraw(TRUE)
		dw_child.SetColumn("u_taskdamt_mx_accountsid")

	END IF
	
END IF









end event

event ue_rpt_viewprint;call super::ue_rpt_viewprint;
Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()
IF row = 0 THEN RETURN


IF ls_rpname = '' THEN RETURN

IF li_auditprint = 1 THEN
	IF dw_pageretr.Object.u_taskdamt_flag[row] = 0 THEN
		MessageBox('NO','目标单据还未审核,不能打印!')
		RETURN
	END IF
END IF

s_rpt_print_msg s_print
s_print.retr_pram_falg = 15
s_print.rpid = ls_msgprintid_rpt
s_print.retr_flag = TRUE
s_print.tag_text = THIS.Title

s_print.rpname  = ls_rpname
s_print.retr_scid = dw_pageretr.Object.u_taskdamt_scid[row]
s_print.retr_pramnmb = dw_pageretr.Object.u_taskdamt_billid[row]
s_print.rowcnt = dw_child.RowCount()
OpenWithParm(w_rpt_preview,s_print)

//**更新打印次料
String arg_msg
printnum = Message.DoubleParm

String ls_code

ll_scid = dw_pageretr.Object.u_taskdamt_scid[row]
ls_code = dw_pageretr.Object.u_taskdamt_billcode[row]

f_update_printnum2(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)


end event

event ue_rpt_print;call super::ue_rpt_print;Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()
IF row = 0 THEN RETURN


uo_rpt_print_preview uo_print
S_rpt_print_MSG LS_PRMSG

IF dw_pageretr.RowCount() = 0 THEN
	MessageBox('系统信息','没有可打印的单据！')
	RETURN
END IF

IF ls_rpname = '' THEN RETURN

IF li_auditprint = 1 THEN
	IF dw_pageretr.Object.u_taskdamt_flag[row] = 0 THEN
		MessageBox('NO','目标单据还未审核,不能打印!')
		RETURN
	END IF
END IF

IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN

LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.TAG_TEXT = THIS.Title
LS_PRMSG.rpname = ls_rpname
LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.rpid = ls_msgprintid_rpt
LS_PRMSG.retr_scid = dw_pageretr.Object.u_taskdamt_scid[row]
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_taskdamt_billid[row]
LS_PRMSG.rowcnt = dw_child.RowCount()


uo_print.FACT_PRINT_MSG = LS_PRMSG

String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("系统提示",arg_msg)
	RETURN
END IF
uo_print.ds_print()


//**更新打印次料
printnum = Message.DoubleParm

String ls_code

ll_scid = dw_pageretr.Object.u_taskdamt_scid[row]
ls_code = dw_pageretr.Object.u_taskdamt_billcode[row]

f_update_printnum2(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)

end event

event refresh_interface;call super::refresh_interface;ddlb_status.Enabled = NOT dw_edit_mode
ddlb_scid.Enabled = NOT dw_edit_mode
wf_flagstatus_rf()


end event

event ue_before_open;call super::ue_before_open;SELECT moneyid INTO :il_moneyid_native
	FROM cw_currency
	Where native = 1;
IF sqlca.SQLCode <> 0 THEN
	il_moneyid_native = 0
	MessageBox('提示','查询本位币资料失败,请检查币种资料')
END IF
end event

event ue_f10;call super::ue_f10;//用于选择明细内容,被F10[默认]
If Not dw_edit_mode Then Return

Long child_row
Long ll_rst_accountsid,ll_accountid,ll_moneyid,ll_moneyid_account
String ls_accountrep,ls_bankstr,ls_idcode,ls_dscrp
child_row = dw_child.GetRow()

If child_row = 0 Then
	MessageBox('系统提示','请选定单据!')
	Return
End If

dw_child.AcceptText()
If Not IsValid(w_accounts_ch) Then
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = True //是否一次retrieve所有行
	s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0 //目标定位pkid (备用)	
	s_ch_tran.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选
	
	
	OpenWithParm(w_accounts_ch,s_ch_tran) //调用
	
	
	ll_rst_accountsid = Message.DoubleParm //接受返回结构
	
	If ll_rst_accountsid > 0 Then //正常返回值则可以取以下值
		dw_child.SetRedraw(False)
		
		ll_moneyid = dw_child.Object.u_taskdamt_mx_realmoneyid[child_row]
		dw_child.Object.u_taskdamt_mx_accountsid[child_row] = ll_rst_accountsid
		
		Select moneyid,
			accountrep,
			bankstr,
			idcode,
			dscrp
			Into :ll_moneyid_account,
			:ls_accountrep,
			:ls_bankstr,
			:ls_idcode,
			:ls_dscrp
			From u_accounts
			Where accountsid = :ll_rst_accountsid;
		If sqlca.SQLCode <> 0 Then
			ll_moneyid_account = 0
			Return
		End If
		
		dw_child.Object.u_accounts_moneyid[child_row] = ll_moneyid_account
		dw_child.Object.u_accounts_accountrep[child_row] = ls_accountrep
		dw_child.Object.u_accounts_bankstr[child_row] = ls_bankstr
		dw_child.Object.u_accounts_idcode[child_row] = ls_idcode
		dw_child.Object.u_accounts_dscrp[child_row] = ls_dscrp

		If ll_moneyid = ll_moneyid_account Then
			dw_child.Object.u_taskdamt_mx_realrate[child_row] = 1
		Else
			dw_child.Object.u_taskdamt_mx_realrate[dw_child.GetRow()] = f_get_mrate(ll_moneyid)
		End If
		dw_child.SetColumn("u_taskdamt_mx_accountsid")
		dw_child.SetRedraw(True)
	End If
End If




end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_taskdamt
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_taskdamt
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_taskdamt
integer x = 187
integer width = 549
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_taskdamt
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_taskdamt
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_taskdamt
integer x = 1861
integer width = 1687
integer height = 976
string dataobject = "dw_taskdamt_index"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_flagstatus_rf()

end event

type st_1 from w_publ_1ton_share_detail`st_1 within w_taskdamt
integer x = 14
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_taskdamt
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_taskdamt
integer width = 1856
integer height = 976
string dataobject = "dw_taskdamt_edit"
end type

event dw_uc::dwnkey;PARENT.TriggerEvent('user_key')

IF Key = KeyDownArrow! THEN RETURN 1
INT RSLT=1
STRING LS_MSG=''
IF dw_edit_mode THEN
	IF dw_uc.GetColumnName ( ) = 'u_taskdamt_dscrp' AND Key = KeyEnter! THEN
		dw_child.ScrollToRow(1)
		dw_child.SetFocus()
		dw_child.SetColumn ('u_taskdamt_mx_billtype')
		RETURN 1
	ELSEIF dw_uc.GetColumnName ( ) = 'u_cust_cuscode' AND Key = KeyEnter! THEN
		String ls_code
		
		dw_uc.AcceptText()
		ls_code = Trim(dw_uc.Object.u_cust_cuscode[dw_uc.GetRow()])
		
		s_custom arg_s_cust
		
		IF f_find_cust(ls_code,arg_s_cust) = 0 THEN
			PARENT.TriggerEvent('ue_f9')
			RETURN 1
		ELSE
			dw_uc.SetRedraw(FALSE)
			dw_uc.Object.u_taskdamt_cussptid[dw_uc.GetRow()] = arg_s_cust.cusid
			dw_uc.Object.u_cust_cuscode[dw_uc.GetRow()] = arg_s_cust.cuscode
			dw_uc.Object.u_cust_name[dw_uc.GetRow()] = arg_s_cust.Name
			dw_uc.Object.u_cust_custype[dw_uc.GetRow()] =arg_s_cust.bsntype
			dw_uc.Object.u_cust_simplename[dw_uc.GetRow()] =arg_s_cust.simplename
			
			dw_uc.SetRedraw(TRUE)
			
			dw_uc.SetColumn("u_taskdamt_assign_emp")
		END IF		
		
	ELSE
		IF  Key = KeyEnter! THEN //
			keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
			keybd_event ( 9, 0, 2, 0 ) // 释放tab 
			RETURN 1
		END IF
	END IF
END IF

end event

event dw_uc::buttonclicked;call super::buttonclicked;if not dw_edit_mode then return

if row <= 0 then return

if dwo.name='b_cust' then
	parent.TRIGGEREVENT('ue_f9')	
end if
end event

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_taskdamt
integer x = 105
integer y = 540
integer width = 338
integer height = 228
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_taskdamt
integer y = 1276
integer width = 3547
integer height = 884
string dataobject = "dw_taskdamtmx_edit"
end type

event dw_child::dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key')

IF dw_edit_mode THEN
	dw_child.AcceptText()
	IF KeyDown(keydownarrow!) THEN
		Long li_row
		IF dw_child.GetRow() = dw_child.RowCount() THEN
			PARENT.TriggerEvent("insert_childrow")
		END IF
	ELSE
		IF KeyDown(keyenter!) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
			IF dw_child.GetColumnName() = 'u_taskdamt_mx_reltaskcode' THEN
				Long ll_scid,ll_cusid
				Long ll_taskid,ll_banktypeid,ll_moneyid
				String ls_taskcode
				Decimal ld_damt,ld_billamt,ld_takeamt,ld_takedamt,ld_noamt
				Long child_row
				child_row = dw_child.GetRow()
				ll_cusid = dw_uc.Object.u_taskdamt_cussptid[dw_uc.GetRow()]
				ls_taskcode = dw_child.Object.u_taskdamt_mx_reltaskcode[child_row]
				
				SELECT u_SaleTask.TaskID,
					u_SaleTask.TaskCode,
					u_SaleTask.banktypeid,
					u_SaleTask.moneyid,
					u_SaleTask.damt,
					u_SaleTask.msttakeamt,
					u_SaleTask.takeamt,
					u_saletask.takedamt,
					u_SaleTask.msttakeamt - u_SaleTask.takeamt - u_saletask.takedamt
					INTO :ll_taskid,
					:ls_taskcode,
					:ll_banktypeid,
					:ll_moneyid,
					:ld_damt,
					:ld_billamt,
					:ld_takeamt,
					:ld_takedamt,
					:ld_noamt
					FROM u_SaleTask
					WHERE ( u_SaleTask.scid = :cur_scid OR :cur_scid = -1) AND
					( u_SaleTask.cusid = :ll_cusid) AND
					( u_SaleTask.TaskCode = :ls_taskcode) AND
					( u_SaleTask.Kind <> 0 ) ;
				IF sqlca.SQLCode <> 0 THEN
					PARENT.TriggerEvent('ue_f8')
				ELSE
					dw_child.Object.u_taskdamt_mx_reltaskcode[child_row] = ls_taskcode
					dw_child.Object.u_taskdamt_mx_damt[child_row]  = ld_damt
					dw_child.Object.u_taskdamt_mx_relid[child_row] = ll_taskid
					dw_child.Object.u_taskdamt_mx_billamt[child_row] = ld_billamt
					dw_child.Object.u_taskdamt_mx_reltakeamt[child_row] = ld_takeamt
					dw_child.Object.u_taskdamt_mx_takeamt[child_row] = ld_noamt
//					IF sys_option_m_msttake = 1 THEN
//						dw_child.Object.u_taskdamt_mx_realmoneyid[child_row]  = ll_moneyid
//					else
//						dw_child.Object.u_taskdamt_mx_realmoneyid[child_row]  = il_moneyid_native
//					end if 
					dw_child.Object.u_taskdamt_mx_banktypeid[child_row]  = ll_banktypeid
					dw_child.Object.u_taskdamt_mx_reldamt[child_row]  = ld_takedamt
				END IF
				dw_child.Object.moneyid_native[child_row] = il_moneyid_native
				dw_child.AcceptText()
			ELSEIF dw_child.GetColumnName( ) = 'u_taskdamt_mx_dscrp' AND dw_child.GetRow() = dw_child.RowCount() THEN
				PARENT.TriggerEvent("insert_childrow")
				RETURN 1
			ELSE
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
	END IF
END IF








end event

event dw_child::itemchanged;call super::itemchanged;IF NOT dw_edit_mode THEN RETURN
dw_child.AcceptText()
IF dw_child.GetRow() <= 0 THEN RETURN

Long ll_moneyid,ll_accountsid,ll_moneyid_account

IF dwo.Name = 'u_taskdamt_mx_realmoneyid' THEN
	ll_moneyid = dw_child.Object.u_taskdamt_mx_realmoneyid[dw_child.GetRow()]
	dw_child.SetRedraw(FALSE)
	dw_child.Object.u_taskdamt_mx_realrate[dw_child.GetRow()] = f_get_mrate(ll_moneyid)
	ll_moneyid_account = dw_child.Object.u_accounts_moneyid[row]
	IF ll_moneyid = ll_moneyid_account THEN
		dw_child.Object.u_taskdamt_mx_realrate[row] = 1
	END IF
	dw_child.SetRedraw(TRUE)
ELSEIF dwo.Name = 'u_taskdamt_mx_accountsid' THEN
	ll_moneyid = dw_child.Object.u_taskdamt_mx_realmoneyid[dw_child.GetRow()]
	ll_accountsid = dw_child.Object.u_taskdamt_mx_accountsid[dw_child.GetRow()]
	SELECT moneyid INTO :ll_moneyid_account
		FROM u_accounts
		Where accountsid = :ll_accountsid;
	IF sqlca.SQLCode <> 0 THEN
		ll_moneyid_account = 0
	END IF
	
	dw_child.Object.u_accounts_moneyid[row] = ll_moneyid_account
	IF ll_moneyid = ll_moneyid_account THEN
		dw_child.Object.u_taskdamt_mx_realrate[row] = 1
	else
		dw_child.Object.u_taskdamt_mx_realrate[row] = f_get_mrate(ll_moneyid_account)
	END IF
END IF




end event

event dw_child::doubleclicked;If dw_edit_mode Then
	If dwo.Name = 'u_taskdamt_mx_accountsid' Then
		Parent.TriggerEvent('ue_f10')
	Else
		Parent.TriggerEvent('ue_f8')
	End If
End If

end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_taskdamt
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_taskdamt
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_taskdamt
end type

event cb_add::clicked;IF Not f_power_ind(1688,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

String arg_msg = ''
Long uc_row,pagerert_row,i,count
Long relid_pageretr,reld_uc,j

s_taskdamt arg_s_bd

IF cur_scid < 0 THEN
	MessageBox('提示','请选择分部')
	RETURN
END IF

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_child.AcceptText()
	
	uc_row = dw_uc.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标单据!')
		RETURN
	END IF
	
	IF Not dw_uc.Object.u_taskdamt_billdate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('系统提示','不合理单据时间!')
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_taskdamt_billdate")
		RETURN
	END IF
	
	IF Not Len(String(dw_uc.Object.u_taskdamt_assign_emp[uc_row])) > 0 THEN
		MessageBox('系统提示','请填写经手人!')
		dw_uc.SetFocus()
		dw_uc.SetColumn("u_taskdamt_assign_emp")
		RETURN
	END IF
	
	IF dw_uc.Object.u_taskdamt_billid[uc_row] = 0 THEN
		arg_s_bd.scid = cur_scid
	ELSE
		arg_s_bd.scid = dw_uc.Object.u_taskdamt_scid[uc_row]
	END IF
	
	
	IF wf_check_taskamt(arg_msg) = 0 then
		MessageBox('提示',arg_msg +  ',不能保存!',information!,OK!)
		RETURN
	END IF
	
	
	arg_s_bd.billid = dw_uc.Object.u_taskdamt_billid[uc_row]
	arg_s_bd.cussptid = dw_uc.Object.u_taskdamt_cussptid[uc_row]
	arg_s_bd.part = dw_uc.Object.u_taskdamt_part[uc_row]
	arg_s_bd.billdate = dw_uc.Object.u_taskdamt_billdate[uc_row]
	arg_s_bd.assign_emp = dw_uc.Object.u_taskdamt_assign_emp[uc_row]
	arg_s_bd.dscrp = dw_uc.Object.u_taskdamt_dscrp[uc_row]
	arg_s_bd.ifauto = dw_uc.Object.u_taskdamt_ifauto[uc_row]
	arg_s_bd.billtype = 0
	
	count = 0
	FOR i = 1 To dw_child.RowCount()
		IF dw_child.Object.u_taskdamt_mx_relid[i] > 0 And (dw_child.Object.u_taskdamt_mx_takeamt[i] > 0  Or dw_child.Object.u_taskdamt_mx_damt[i] > 0) THEN
			count++
			arg_s_bd.arg_s_mx[count].scid = dw_child.Object.u_taskdamt_mx_scid[i]
			arg_s_bd.arg_s_mx[count].billid = dw_child.Object.u_taskdamt_mx_billid[i]
			arg_s_bd.arg_s_mx[count].printid = count
			arg_s_bd.arg_s_mx[count].relid = dw_child.Object.u_taskdamt_mx_relid[i]
			arg_s_bd.arg_s_mx[count].reltaskcode = dw_child.Object.u_taskdamt_mx_reltaskcode[i]
			arg_s_bd.arg_s_mx[count].damt = dw_child.Object.u_taskdamt_mx_damt[i]
			arg_s_bd.arg_s_mx[count].dscrp = dw_child.Object.u_taskdamt_mx_dscrp[i]
			arg_s_bd.arg_s_mx[count].accountsid = dw_child.Object.u_taskdamt_mx_accountsid[i]
			arg_s_bd.arg_s_mx[count].billamt = dw_child.Object.u_taskdamt_mx_billamt[i]
			arg_s_bd.arg_s_mx[count].itemid = dw_child.Object.u_taskdamt_mx_itemid[i]
			arg_s_bd.arg_s_mx[count].takeamt = dw_child.Object.u_taskdamt_mx_takeamt[i]
			arg_s_bd.arg_s_mx[count].reltakeamt = dw_child.Object.u_taskdamt_mx_reltakeamt[i]
			arg_s_bd.arg_s_mx[count].realmoneyid = dw_child.Object.u_taskdamt_mx_realmoneyid[i]
			arg_s_bd.arg_s_mx[count].realrate = dw_child.Object.u_taskdamt_mx_realrate[i]
			arg_s_bd.arg_s_mx[count].billtype = dw_child.Object.u_taskdamt_mx_billtype[i]
			arg_s_bd.arg_s_mx[count].banktypeid = dw_child.Object.u_taskdamt_mx_banktypeid[i]
			arg_s_bd.arg_s_mx[count].reldamt = dw_child.Object.u_taskdamt_mx_reldamt[i]
		END IF
	NEXT
	
	IF uo_ware.Save(arg_s_bd,arg_msg,True) = 0 THEN
		MessageBox('error!',arg_msg)
		RETURN
	END IF
	MessageBox(publ_operator,'保存操作成功!')
	
	Long ll_row
	ll_row = dw_pageretr.GetRow()
	dw_pageretr.SelectRow(0,False)
	dw_pageretr.SelectRow(ll_row,True)
	
	wf_refresh_curuc(uo_ware.uo_billid) //刷新uc
	
END IF

CALL Super::Clicked
//read ini
IF dw_edit_mode THEN
	
	SELECT top 1 u_taskdamt_mx.accountsid,
		u_taskdamt_mx.realmoneyid,
		u_taskdamt_mx.itemid,
		u_taskdamt_mx.banktypeid,
		u_accounts.moneyid
		INTO :ins_accountsid_last,
		:ins_realmoneyid_last,
		:ins_itemid_last,
		:ins_banktypeid_last,
		:ins_accounts_moneyid
		FROM u_taskdamt_mx LEFT OUTER JOIN
		u_accounts ON u_taskdamt_mx.accountsid = u_accounts.accountsid
		Order By u_taskdamt_mx.billid Desc;
	IF sqlca.SQLCode = 0 THEN
		IF ins_realmoneyid_last = ins_accounts_moneyid THEN
			ins_realrate_last = 1
		ELSE
			ins_realrate_last = f_get_mrate(ins_accounts_moneyid)
		END IF
	END IF
	
	
	Parent.TriggerEvent("insert_childrow")
	dw_uc.SetRedraw(False)
	dw_uc.Object.u_taskdamt_assign_emp[dw_uc.GetRow()] = publ_operator
	
	dw_uc.SetColumn("u_taskdamt_billdate")
	dw_uc.SetRedraw(True)
ELSE
	Parent.TriggerEvent("retrieve_childdw")
	IF cbx_1.Checked THEN cb_add.PostEvent(Clicked!)
END IF





end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_taskdamt
end type

event cb_edit::clicked;IF Not f_power_ind(1688,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
String arg_msg = ''
Long uc_row

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF NOT dw_edit_mode THEN
	IF uo_ware.updatebegin(dw_pageretr.Object.u_taskdamt_scid[uc_row],dw_pageretr.Object.u_taskdamt_billid[uc_row],arg_msg) = 0 THEN
		MessageBox('Error!',arg_msg)
		RETURN
	END IF
	
	wf_refresh_curuc(dw_pageretr.Object.u_taskdamt_billid[uc_row]) //刷新uc
	PARENT.TriggerEvent("retrieve_childdw")
END IF

CALL SUPER::Clicked



end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_taskdamt
end type

event cb_delet::clicked;call super::clicked;IF Not f_power_ind(1689,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

String arg_msg = ''
IF dw_edit_mode THEN RETURN
IF MessageBox ("if","是否确定要删除当前单据?",question!,yesno! ) = 2 THEN RETURN

Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF uo_ware.Cancel(dw_pageretr.Object.u_taskdamt_billid[uc_row],arg_msg,TRUE) = 0 THEN
	MessageBox('error!',arg_msg)
ELSE
	//日志
	Long ls_id
	String ls_code
	ls_id = dw_pageretr.Object.u_taskdamt_billid[uc_row]
	ls_code = dw_pageretr.Object.u_taskdamt_billcode[uc_row]
	f_setsysoplog('订单收款单','订单收款单删除,id:'+String(ls_id)+',code:'+ls_code,arg_msg,TRUE)
	//--
	MessageBox(publ_operator,'删除单据'+String(dw_pageretr.Object.u_taskdamt_billcode[uc_row])+'成功!')
	
	dw_pageretr.DeleteRow(uc_row)
	dw_pageretr.Triggerevent(rowfocuschanged!)
END IF

end event

type cb_addzy from w_publ_1ton_share_detail`cb_addzy within w_taskdamt
end type

event cb_addzy::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF NOT dw_edit_mode THEN
	menustr = "Text=增加备注~tEvent=ue_addzy"
	menustr +=  "|" + "Text=-"
	menustr +=  "|" + "Text=查看附件~tEvent=ue_fj_view"
	menustr +=  "|" + "Text=添加附件~tEvent=ue_fj_edit"
END IF

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF





end event

type cb_auditing from w_publ_1ton_share_detail`cb_auditing within w_taskdamt
end type

event cb_auditing::clicked;call super::clicked;IF NOT f_power_ind(1690,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN RETURN

String arg_msg = ''
Long pagerert_row,ll_scid,ll_taskdamtid

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF MessageBox ("if","是否确定要审核当前单据?",question!,yesno! ) = 2 THEN RETURN

ll_taskdamtid = dw_pageretr.Object.u_taskdamt_billid[pagerert_row]

IF uo_ware.audit(ll_taskdamtid,arg_msg,TRUE) = 0 THEN
	MessageBox('error!',arg_msg)
ELSE
	MessageBox(publ_operator,'审核成功!')
	wf_refresh_curuc(ll_taskdamtid)
END IF





end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_taskdamt
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_taskdamt
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_taskdamt
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_taskdamt
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_taskdamt
end type

event cb_auditing_cancel::clicked;call super::clicked;IF NOT f_power_ind(1691,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN RETURN

String arg_msg = ''
Long pagerert_row,ls_id

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF MessageBox ("IF","是否确定要撤审当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN

ls_id = dw_pageretr.Object.u_taskdamt_billid[pagerert_row]

IF uo_ware.caudit(0,ls_id,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	MessageBox(publ_operator,'撤审成功!')
	//日志	
	String ls_code,ls_opemp,ls_outpart
	ls_code = dw_pageretr.Object.u_taskdamt_billcode[pagerert_row]
	ls_opemp = dw_pageretr.Object.u_taskdamt_opemp[pagerert_row]
	ls_outpart = dw_pageretr.Object.u_taskdamt_part[pagerert_row]
	f_setsysoplog('订金收款单','撤审'+',code:'+ls_code+',相关号码:'+ls_outpart+',建立人:'+ls_opemp,arg_msg,TRUE)
	//--
	wf_refresh_curuc(ls_id)
END IF
end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_taskdamt
end type

type p_help from w_publ_1ton_share_detail`p_help within w_taskdamt
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_taskdamt
end type

type p_other from w_publ_1ton_share_detail`p_other within w_taskdamt
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_taskdamt
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_taskdamt
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_taskdamt
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_taskdamt
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_taskdamt
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_taskdamt
end type

type ddlb_scid from uo_ddlb_scid within w_taskdamt
integer x = 887
integer y = 188
integer width = 549
integer height = 468
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid=this.uo_scid
//cur_scid_arr = THIS.uo_scid_arr
end event

event selectionchanged;call super::selectionchanged;cur_scid=this.uo_scid
//cur_scid_arr = THIS.uo_scid_arr
parent.triggerevent("retrieve_pageretr")
end event

type ddlb_status from dropdownlistbox within w_taskdamt
integer x = 1586
integer y = 188
integer width = 357
integer height = 468
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部]"
boolean sorted = false
string item[] = {"[全部]","待审核","已审核"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;if index=1 then
	cur_flag=-1	
elseif index=2 then
	cur_flag= 0 
elseif index=3 then
	cur_flag= 1
end if
parent.triggerevent('retrieve_pageretr')
end event

type st_2 from statictext within w_taskdamt
integer x = 713
integer y = 204
integer width = 160
integer height = 44
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分部"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_3 from statictext within w_taskdamt
integer x = 1413
integer y = 196
integer width = 160
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "状态"
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_1 from checkbox within w_taskdamt
integer x = 1993
integer y = 196
integer width = 411
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "保存自动新建"
end type

event constructor;int li_auto
li_auto =long(f_profilestring(sys_empid, parent.title, "auto_add", string(0)))
if li_auto = 1 then
	cbx_1.checked = true	
else
	cbx_1.checked = false	
end if
end event