$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