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

$PBExportHeader$w_rap_money_transfer.srw
forward
global type w_rap_money_transfer from w_publ_1ton_share_detail
end type
type st_3 from statictext within w_rap_money_transfer
end type
type ddlb_status from dropdownlistbox within w_rap_money_transfer
end type
end forward

global type w_rap_money_transfer from w_publ_1ton_share_detail
integer y = 388
integer height = 2054
string title = "转账单"
boolean maxbox = true
boolean resizable = true
windowstate windowstate = maximized!
long dw_child_h = 51359840
long dw_child_w = 54553216
event ue_f13 ( )
st_3 st_3
ddlb_status ddlb_status
end type
global w_rap_money_transfer w_rap_money_transfer

type variables
Int cur_flag = -1
int cur_secflag= -1
uo_rap_money_transfer uo_output



  
end variables

forward prototypes
public function integer wf_flagstatus_rf ()
public function integer wf_refresh_curuc (long arg_billid)
end prototypes

public function integer wf_flagstatus_rf ();
Long pagerert_row


pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Text = '审核&F'
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Text = '撤审'
	cb_auditing_cancel.Enabled = FALSE
	cur_flag = -1
	cur_secflag = -1
	GOTO ext
END IF

cur_flag = dw_pageretr.Object.flag[pagerert_row]
cur_secflag = dw_pageretr.Object.secflag[pagerert_row]
IF dw_edit_mode THEN
	cb_auditing.Text = '初审&F'
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
ELSE
	IF cur_flag = 0 THEN
		cb_auditing.Enabled = TRUE
		cb_auditing.Text = '初审&F'
		cb_auditing_cancel.Enabled = FALSE
	ELSEIF cur_flag = 1 AND cur_secflag = 0 THEN
		cb_auditing.Enabled = TRUE
		cb_auditing.Text = '终审&F'
		cb_auditing_cancel.Enabled = TRUE
		cb_auditing_cancel.Text = '初撤'
	ELSE
		cb_auditing.Text = '初审&F'
		cb_auditing.Enabled = FALSE
		cb_auditing_cancel.Enabled = TRUE
		cb_auditing_cancel.Text = '终撤'
	END IF
END IF

cb_auditing.TriggerEvent('ue_textchange')
cb_auditing_cancel.TriggerEvent('ue_textchange')

ext:
RETURN 0


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 checkdate
String checkemp
String relcode
Long banktypeid
Long accountid_out
Long accountid_in
Decimal transferamt
String dscrp
DateTime opdate
String opemp
DateTime moddate
String modemp
Int flag
String permit_emp
DateTime permit_date
String billcode
Int secflag 
String secemp 
DateTime secdate
SELECT u_rap_money_transfer.checkdate,
	u_rap_money_transfer.checkemp,
	u_rap_money_transfer.relcode,
	u_rap_money_transfer.banktypeid,
	u_rap_money_transfer.accountid_out,
	u_rap_money_transfer.accountid_in,
	u_rap_money_transfer.transferamt,
	u_rap_money_transfer.dscrp,
	u_rap_money_transfer.opdate,
	u_rap_money_transfer.opemp,
	u_rap_money_transfer.moddate,
	u_rap_money_transfer.modemp,
	u_rap_money_transfer.flag,
	u_rap_money_transfer.permit_emp,
	u_rap_money_transfer.permit_date,
	u_rap_money_transfer.billcode,
	u_rap_money_transfer.secflag,
	u_rap_money_transfer.secemp,
	u_rap_money_transfer.secdate
	INTO :checkdate,
	:checkemp,
	:relcode,
	:banktypeid,
	:accountid_out,
	:accountid_in,
	:transferamt,
	:dscrp,
	:opdate,
	:opemp,
	:moddate,
	:modemp,
	:flag,
	:permit_emp,
	:permit_date,
	:billcode,
	:secflag,
	:secemp,
	:secdate
	FROM u_rap_money_transfer
	Where  u_rap_money_transfer.billid = :arg_billid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误',"查询操作失败(错误单据唯一码)",stopsign!,ok!)
	RETURN 0
END IF

dw_pageretr.SetRedraw(FALSE)
dw_pageretr.Object.billid[uc_row] = arg_billid
dw_pageretr.Object.checkdate[uc_row] = checkdate
dw_pageretr.Object.relcode[uc_row] = relcode
dw_pageretr.Object.checkemp[uc_row] = checkemp
dw_pageretr.Object.banktypeid[uc_row] = banktypeid
dw_pageretr.Object.transferamt[uc_row] = transferamt
dw_pageretr.Object.dscrp[uc_row] = dscrp
dw_pageretr.Object.opdate[uc_row] = opdate
dw_pageretr.Object.opemp[uc_row] = opemp
dw_pageretr.Object.moddate[uc_row] = moddate
dw_pageretr.Object.modemp[uc_row] = modemp
dw_pageretr.Object.flag[uc_row] = flag
dw_pageretr.Object.permit_emp[uc_row] = permit_emp
dw_pageretr.Object.permit_date[uc_row] = permit_date
dw_pageretr.Object.billcode[uc_row] = billcode
dw_pageretr.Object.accountid_in[uc_row] = accountid_in
dw_pageretr.Object.accountid_out[uc_row] = accountid_out
dw_pageretr.Object.secflag[uc_row] = secflag
dw_pageretr.Object.secemp[uc_row] = secemp
dw_pageretr.Object.secdate[uc_row] = secdate
dw_pageretr.SetRedraw(TRUE)

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

wf_flagstatus_rf()
RETURN 1













end function

on w_rap_money_transfer.create
int iCurrent
call super::create
this.st_3=create st_3
this.ddlb_status=create ddlb_status
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_3
this.Control[iCurrent+2]=this.ddlb_status
end on

on w_rap_money_transfer.destroy
call super::destroy
destroy(this.st_3)
destroy(this.ddlb_status)
end on

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


datawindowchild childdw, childdw2

dw_uc.SetTransObject (sqlca)
dw_uc.GetChild("accountid_out",childdw)
childdw.SetTransObject (sqlca) 
 
IF childdw.Retrieve(sys_user_account) = 0 THEN
	childdw.InsertRow(0)
END IF

dw_uc.SetTransObject (sqlca)
dw_uc.GetChild("accountid_in",childdw2)
childdw2.SetTransObject (sqlca) 
 
IF childdw2.Retrieve(sys_user_account) = 0 THEN
	childdw2.InsertRow(0)
END IF


dw_uc.Retrieve() 
dw_pageretr.Retrieve(cur_flag,cur_secflag)
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;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+'( billcode LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( 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;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_rap_money_transfer.billcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_rap_money_transfer.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 open;call super::open;uc_column_int = 10 //uc dw前7列可以编辑
uo_output = CREATE uo_rap_money_transfer

IF s_tran.f_long > 0 THEN
	cb_add.TriggerEvent(Clicked!)
	IF dw_uc.GetRow() > 0 THEN
		dw_uc.Object.accountid_out[dw_uc.GetRow()] = s_tran.f_long
	END IF
END IF



end event

event refresh_interface;call super::refresh_interface;wf_flagstatus_rf()

ddlb_status.Enabled = NOT dw_edit_mode


end event

event close;call super::close;DESTROY uo_output

end event

event ue_viewprint;call super::ue_viewprint;Long LS_ROW
LS_ROW = dw_uc.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('NO','没有打印目标单据!')
	RETURN
END IF

IF NOT f_power_ind(940)  THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

S_print_MSG LS_PRMSG

IF ls_newname <> '' THEN
	
	IF li_auditprint = 1 THEN
		IF dw_uc.Object.flag[dw_uc.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	      
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_rap_money_transfer_edit'
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.TAG_TEXT = '转帐单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_uc.Object.billid[LS_ROW]
LS_PRMSG.rowcnt = 0
OpenWithParm(w_publ_preview,LS_PRMSG)

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

Long ll_scid
String ls_code

ll_scid = 0
ls_code = dw_uc.Object.billcode[dw_uc.GetRow()]

//f_update_printnum(ll_scid,ls_code,FALSE,printnum,arg_msg,TRUE)
f_update_printnum('u_rap_money_transfer',printnum,ll_scid,dw_uc.Object.billid[LS_ROW],'','',arg_msg,TRUE)
wf_refresh_curuc(dw_uc.Object.billid[LS_ROW])
end event

event ue_print;call super::ue_print;//--直接打印
uo_print_preview uo_print
IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN


IF NOT f_power_ind(940)  THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF
S_print_MSG LS_PRMSG

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

IF ls_newname <> '' THEN
	
	
	IF li_auditprint = 1 THEN
		IF dw_uc.Object.flag[dw_uc.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_rap_money_transfer_edit'
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.TAG_TEXT = '转帐单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_uc.Object.billid[LS_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 = 1

Long ll_scid
String ls_code

ll_scid = 0
ls_code = dw_uc.Object.billcode[dw_uc.GetRow()]

f_update_printnum('u_rap_money_transfer',printnum,ll_scid,dw_uc.Object.billid[LS_ROW],'','',arg_msg,TRUE)
wf_refresh_curuc(dw_uc.Object.billid[LS_ROW])

end event

event ue_addzy;call super::ue_addzy;IF dw_edit_mode THEN
	MessageBox('提示',"编辑状态下不可以使用!",information!,ok!)
	RETURN
END IF

IF NOT f_power_ind(941) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

String arg_msg = ''
String ls_str
Long uc_row
s_inputbox s_sreu

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标单据!',information!,ok!)
	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_output.add_dscrp(dw_pageretr.Object.billid[uc_row],ls_str,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	RETURN
ELSE
	MessageBox('提示','添加备注操作成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.billid[uc_row])
END IF

end event

event resize;
ln_bar.EndX = This.Width
ln_bar2.EndX = This.Width
ln_1.EndX = This.Width
ln_2.EndX = This.Width
r_bar.Width = This.Width

Long w_width,w_height
w_width = This.Width
w_height = This.Height

dw_uc.Height = this.height - dw_uc.y - 150

dw_pageretr.X = dw_uc.X + dw_uc.Width
dw_pageretr.Width = This.Width - dw_pageretr.X - 40
dw_pageretr.Height =   dw_uc.Height



end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_rap_money_transfer
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_rap_money_transfer
integer x = 2267
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_rap_money_transfer
integer x = 197
integer y = 189
integer width = 549
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_rap_money_transfer
integer x = 2739
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_rap_money_transfer
integer x = 2417
integer width = 322
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_rap_money_transfer
integer x = 1668
integer y = 298
integer width = 1883
integer height = 1648
string dataobject = "dw_rap_money_transfer_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_rap_money_transfer
integer y = 208
integer width = 179
integer height = 58
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_rap_money_transfer
integer x = 2889
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_rap_money_transfer
integer width = 1664
integer height = 1632
string dataobject = "dw_rap_money_transfer_edit"
end type

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

String ls_mtrlcode,ls_mtrlname
Long ll_mtrlid
Long uc_row

s_mtrldef_array arg_s_mtrldef

IF dw_edit_mode THEN
	IF KeyDown(keyenter!) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
		IF dw_uc.GetColumnName() = 'u_mtrldef_mtrlcode' THEN
			dw_uc.AcceptText()
			uc_row = dw_uc.GetRow()
			ls_mtrlcode = dw_uc.Object.u_mtrldef_mtrlcode[uc_row]
			
//			IF f_find_mj(ls_mtrlcode,arg_s_mtrldef) = 0 THEN
//				PARENT.TriggerEvent('ue_f8')
//				RETURN 1
//			ELSE
//				ll_mtrlid = arg_s_mtrldef.mtrlid[1]
//				ls_mtrlcode = arg_s_mtrldef.mtrlcode[1]
//				ls_mtrlname = arg_s_mtrldef.mtrlname[1]
//			END IF
			dw_uc.Object.u_mj_output_mjid[uc_row]    = ll_mtrlid
			dw_uc.Object.u_mtrldef_mtrlname[uc_row]    = ls_mtrlname
			dw_uc.Object.u_mtrldef_mtrlcode[uc_row]  = ls_mtrlcode
			
			IF Key = keyenter!  THEN
				keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
				keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
				RETURN 1
			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 IF




end event

event dw_uc::itemchanged;call super::itemchanged;long uc_row ,ll_rst_accountsid,ll_moneyid_out,ll_moneyid_in
string ls_moneyname_out,ls_moneyname_in

dw_uc.AcceptText()
uc_row = dw_uc.GetRow()

IF dw_uc.GetColumnName() = 'accountid_out' THEN

		ll_rst_accountsid = This.Object.accountid_out[uc_row]
		IF ll_rst_accountsid > 0 THEN 
			dw_uc.SetRedraw(False)
			
			SELECT moneyid INTO :ll_moneyid_out
				FROM u_accounts
				Where accountsid = :ll_rst_accountsid;
			IF sqlca.SQLCode <> 0 THEN
				ll_moneyid_out = 0
			END IF
			
			SELECT name INTO :ls_moneyname_out
				FROM cw_currency
				Where moneyid = :ll_moneyid_out;
			IF sqlca.SQLCode <> 0 THEN
	 
				ls_moneyname_out = ''
			END IF

			dw_uc.Object.cw_currency_outmoneyname[uc_row] = ls_moneyname_out
			dw_uc.SetColumn("accountid_out")
			dw_uc.SetRedraw(True)
		END IF

end if 


IF dw_uc.GetColumnName() = 'accountid_in' THEN

		ll_rst_accountsid = This.Object.accountid_in[uc_row]
		IF ll_rst_accountsid > 0 THEN 
			dw_uc.SetRedraw(False)
			
			SELECT moneyid INTO :ll_moneyid_in
				FROM u_accounts
				Where accountsid = :ll_rst_accountsid;
			IF sqlca.SQLCode <> 0 THEN
				ll_moneyid_out = 0
			END IF
			
			SELECT name INTO :ls_moneyname_in
				FROM cw_currency
				Where moneyid = :ll_moneyid_in;
			IF sqlca.SQLCode <> 0 THEN
	 
				ls_moneyname_in = ''
			END IF

			dw_uc.Object.cw_currency_inmoneyname[uc_row] = ls_moneyname_in
			dw_uc.SetColumn("transferamt")
			dw_uc.SetRedraw(True)
		END IF
end if 

  
	
 


end event

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_rap_money_transfer
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_rap_money_transfer
boolean visible = false
integer x = 1723
integer y = 826
integer width = 307
integer height = 496
end type

event dw_child::constructor;//
end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_rap_money_transfer
integer x = 1624
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_rap_money_transfer
integer x = 1430
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_rap_money_transfer
end type

event cb_add::clicked;
IF NOT f_power_ind(936) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

String arg_msg
Long uc_row
s_rap_money_transfer arg_s_rap_money_transfer
Int li_billtype

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	
	uc_row = dw_uc.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('提示','请选定当前目标单据!',information!,ok!)
		RETURN
	END IF
	
	IF Trim(dw_uc.Object.checkemp[uc_row]) = '' THEN
		MessageBox('提示','请输入经手人!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("checkemp")
		RETURN
	END IF
	
	IF dw_uc.Object.banktypeid[uc_row] = 0 THEN
		MessageBox('提示','请选择结算方式!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("banktypeid")
		RETURN
	END IF
	
	IF dw_uc.Object.accountid_out[uc_row] = 0 THEN
		MessageBox('提示','请选择转出帐号!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("accountid_out")
		RETURN
	END IF
	
	IF dw_uc.Object.accountid_in[uc_row] = 0 THEN
		MessageBox('提示','请选择转入帐号!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("accountid_in")
		RETURN
	END IF
	
	IF dw_uc.Object.transferamt[uc_row] = 0 THEN
		MessageBox('提示','请输入转帐金额!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn("transferamt")
		RETURN
	END IF
       
	arg_s_rap_money_transfer.billid = dw_uc.Object.billid[uc_row]
	arg_s_rap_money_transfer.checkdate = dw_uc.Object.checkdate[uc_row]
	arg_s_rap_money_transfer.relcode = dw_uc.Object.relcode[uc_row]
	arg_s_rap_money_transfer.checkemp = dw_uc.Object.checkemp[uc_row]
	arg_s_rap_money_transfer.banktypeid = dw_uc.Object.banktypeid[uc_row]
	arg_s_rap_money_transfer.accountid_out = dw_uc.Object.accountid_out[uc_row]
	arg_s_rap_money_transfer.accountid_in = dw_uc.Object.accountid_in[uc_row]
	arg_s_rap_money_transfer.dscrp = dw_uc.Object.dscrp[uc_row]
	arg_s_rap_money_transfer.transferamt = dw_uc.Object.transferamt[uc_row]
	arg_s_rap_money_transfer.mrate = dw_uc.Object.u_rap_money_transfer_mrate[uc_row]
		
	IF uo_output.Save(arg_s_rap_money_transfer,publ_operator,arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	
	long ll_row
	ll_row = dw_pageretr.getrow()
	dw_pageretr.SelectRow(0,FALSE)
	dw_pageretr.SelectRow(ll_row,TRUE)
		cur_flag = -1
	cur_secflag = -1
	PARENT.TriggerEvent('retrieve_pageretr')
	wf_refresh_curuc(uo_output.uo_billid) //刷新uc	



END IF

CALL SUPER::Clicked

IF dw_edit_mode THEN
	dw_uc.object.checkemp[dw_uc.getrow()] = publ_operator
	dw_uc.SetRedraw(FALSE)
	dw_uc.SetFocus()
	dw_uc.SetColumn("checkdate")
	dw_uc.SetRedraw(TRUE)
END IF





end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_rap_money_transfer
end type

event cb_edit::clicked;
IF NOT f_power_ind(936) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

String arg_msg = ''
Long uc_row

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

IF NOT dw_edit_mode THEN
	IF uo_output.updatebegin(dw_uc.Object.billid[uc_row],arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	
	wf_refresh_curuc(dw_uc.Object.billid[uc_row])
END IF

CALL SUPER::Clicked

IF dw_edit_mode THEN
	dw_uc.SetRedraw(FALSE)
	dw_uc.SetColumn("checkdate")
	dw_uc.SetRedraw(TRUE)
END IF


end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_rap_money_transfer
end type

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

String arg_msg = ''
IF dw_edit_mode THEN RETURN

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

IF MessageBox ("询问","是否确定要删除当前单据?",question!,yesno! ) = 2 THEN RETURN

IF uo_output.del(dw_pageretr.Object.billid[uc_row],arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
ELSE
	//日志
	Long ls_id
	String ls_code
	ls_id = dw_pageretr.Object.billid[uc_row]
	ls_code = dw_pageretr.Object.billcode[uc_row]
	f_setsysoplog('转帐单','删除,id:'+String(ls_id)+',code:'+ls_code,arg_msg,TRUE)
	//--
	MessageBox('提示','删除单据'+String(dw_pageretr.Object.billcode[uc_row])+'成功!',information!,ok!)
		
	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_rap_money_transfer
end type

event cb_addzy::clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=增加备注~tEvent=ue_addzy"

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_rap_money_transfer
end type

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

String arg_msg = ''
Long pagerert_row

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

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

IF dw_pageretr.Object.flag[pagerert_row] = 0 THEN
	
	IF NOT f_power_ind(938) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	IF uo_output.audit(dw_pageretr.Object.billid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.billid[pagerert_row])
	END IF
	
ELSE
	IF NOT f_power_ind(1003) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	IF uo_output.secaudit(dw_pageretr.Object.billid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.billid[pagerert_row])
	END IF
END IF

end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_rap_money_transfer
boolean visible = false
integer x = 3248
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_rap_money_transfer
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_rap_money_transfer
integer x = 1814
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_rap_money_transfer
integer x = 2117
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_rap_money_transfer
end type

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

String arg_msg = ''
Long pagerert_row

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

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

IF dw_pageretr.Object.secflag[pagerert_row] = 0 THEN
	IF NOT f_power_ind(939) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	IF uo_output.caudit(dw_pageretr.Object.billid[pagerert_row],arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','撤审成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.billid[pagerert_row])
	END IF
ELSE
	IF NOT f_power_ind(1004) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	IF uo_output.csecaudit(dw_pageretr.Object.billid[pagerert_row],arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','撤审成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.billid[pagerert_row])
	END IF
END IF

end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_rap_money_transfer
end type

type p_help from w_publ_1ton_share_detail`p_help within w_rap_money_transfer
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_rap_money_transfer
end type

type p_other from w_publ_1ton_share_detail`p_other within w_rap_money_transfer
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_rap_money_transfer
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_rap_money_transfer
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_rap_money_transfer
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_rap_money_transfer
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_rap_money_transfer
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_rap_money_transfer
end type

type st_3 from statictext within w_rap_money_transfer
integer x = 750
integer y = 208
integer width = 143
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 = center!
boolean focusrectangle = false
end type

type ddlb_status from dropdownlistbox within w_rap_money_transfer
integer x = 892
integer y = 192
integer width = 410
integer height = 557
integer taborder = 30
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
	cur_secflag = -1
ELSEIF Index = 2 THEN
	cur_flag = 0
	cur_secflag = 0
ELSEIF Index = 3 THEN
	cur_flag = 1
	cur_secflag = 0
ELSE
	cur_flag = 1
	cur_secflag = 1
	
END IF
PARENT.TriggerEvent('retrieve_pageretr')



end event