$PBExportHeader$w_buybill.srw forward global type w_buybill from w_publ_pageretr end type type dw_uc from datawindow within w_buybill end type type dw_child from u_dw_rbtnfilter within w_buybill end type type cb_delet from uo_imflatbutton within w_buybill end type type cb_addzy from uo_imflatbutton within w_buybill end type type cb_auditing from uo_imflatbutton within w_buybill end type type cb_cauditing from uo_imflatbutton within w_buybill end type type cb_print from uo_imflatbutton within w_buybill end type type cb_retrieve from uo_imflatbutton within w_buybill end type type st_3 from statictext within w_buybill end type type ddlb_status from dropdownlistbox within w_buybill end type type cb_help from uo_imflatbutton within w_buybill end type type cb_add from uo_imflatbutton within w_buybill end type type cb_edit from uo_imflatbutton within w_buybill end type type cb_reset from uo_imflatbutton within w_buybill end type type ln_bar from line within w_buybill end type type ln_bar2 from line within w_buybill end type type r_bar from rectangle within w_buybill end type type ln_1 from line within w_buybill end type type ln_2 from line within w_buybill end type end forward global type w_buybill from w_publ_pageretr integer width = 3611 integer height = 2404 string title = "供应商对数单" boolean maxbox = true windowstate windowstate = maximized! event retrieve_childdw ( ) event retrieve_uc ( ) event refresh_interface ( ) event ue_f7 ( ) event ue_f8 ( ) event ue_f9 ( ) event ue_f10 ( ) event ue_f6 ( ) event ue_f11 ( ) event ue_f12 ( ) event ue_addzy ( ) event retrieve_childdw_uc ( ) dw_uc dw_uc dw_child dw_child cb_delet cb_delet cb_addzy cb_addzy cb_auditing cb_auditing cb_cauditing cb_cauditing cb_print cb_print cb_retrieve cb_retrieve st_3 st_3 ddlb_status ddlb_status cb_help cb_help cb_add cb_add cb_edit cb_edit cb_reset cb_reset ln_bar ln_bar ln_bar2 ln_bar2 r_bar r_bar ln_1 ln_1 ln_2 ln_2 end type global w_buybill w_buybill type variables int child_column_int=1,uc_column_int=1 uo_buybill uo_bill int cur_flag = -1 long dw_child_w,dw_child_h,dw_pageretr_w,dw_pageretr_h String ls_newname = '' Long ll_prownum Long ls_powerid Int li_auditprint String ls_rpname = '' end variables forward prototypes public function integer wf_refresh_interface () public function integer wf_lock_child () public function integer wf_lock_uc () public subroutine wf_autoadd_mx () public function integer wf_refresh_curuc (long arg_buybillid) public subroutine wf_addnew (long arg_scid, long arg_id) end prototypes event retrieve_childdw;long row,uc_relid row=dw_pageretr.getrow() if row>0 then uc_relid=dw_pageretr.object.u_buybill_buybillid[row] dw_child.SetRedraw (false) dw_child.retrieve(uc_relid) dw_child.SetRedraw (true) else dw_child.reset() end if end event event refresh_interface;//被 wf_refresh_interface() 调用,用于界面刷新 end event event ue_f7;//cb_add_xm.triggerevent(clicked!) end event event ue_f8;////用于选择明细内容,被F8[默认]\dw_child.doubleclicked调用 //long child_row //if child_row=0 then // messagebox('系统提示','请选定目标明细行!') // return //end if // //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=trim(dw_child.object.u_mtrldef_mtrlcode[child_row]) // //OPENwithparm(W_materiel,s_ch_tran) //调用 // //S_materiel S_INSCUST //S_INSCUST=Message.PowerObjectParm //接受返回结构 //IF S_INSCUST.mtrlid>0 THEN //正常返回值则可以取以下值 // //dw_child.object.u_mtrldef_mtrlcode[child_row] //dw_child.object.u_mtrldef_unit[child_row] //dw_child.object.u_wasterinwaremx_mtrlid[child_row] //dw_child.object.u_wasterinwaremx_planprice[child_row] //dw_child.object.u_mtrldef_mtrlname[child_row] // ////S_INSCUST.mtrlid ////S_INSCUST.mtrlname ////S_INSCUST.mtrlcode ////S_INSCUST.unit ////S_INSCUST.mtrltype ////S_INSCUST.mtrlmode ////S_INSCUST.planprice // ////S_INSCUST.storageid ////S_INSCUST.cost ////S_INSCUST.price ////S_INSCUST.descrp ////S_INSCUST.source //END IF // end event event ue_f9();if not dw_edit_mode then return long child_row child_row=dw_uc.getrow() if child_row=0 then messagebox('提示','请选定单据!',information!,ok!) return end if if not isvalid(W_spt_edit) then s_edit_index_tran s_ch_tran //传递参数使用 s_ch_tran.if_retrieve_all=local_retrieve_all //是否一次RETRIEVE所有行 s_ch_tran.work_mode=1 //0-单纯编辑模式 1-选择\编辑模式 s_ch_tran.arg_pkid=0 //目标定位PKID (备用) s_ch_tran.arg_string_code=''//查询列(物料编码)部分内容,用于初步筛选 OPENwithparm(W_spt_edit,s_ch_tran) //调用 s_spt S_INSCUST S_INSCUST=Message.PowerObjectParm //接受返回结构 IF S_INSCUST.sptid>0 THEN //正常返回值则可以取以下值 dw_uc.setredraw(false) dw_uc.object.u_buybill_sptid[child_row]=S_INSCUST.sptid dw_uc.object.u_spt_name[child_row]=S_INSCUST.name dw_uc.object.u_spt_sptcode[child_row]=S_INSCUST.sptcode dw_uc.setredraw(true) END IF wf_autoadd_mx() dw_uc.setcolumn("u_buybill_billtype") end if end event event ue_addzy();if not f_power_ind(524) then messagebox('提示','你没有使用权限！',information!,ok!) return end if if dw_edit_mode then return string arg_msg='',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_bill.add_dscrp(dw_pageretr.object.u_buybill_buybillid[uc_row],LS_STR,arg_msg,true)=0 then messagebox('错误',arg_msg,stopsign!,ok!) return else messagebox('提示','添加备注操作成功!',information!,ok!) wf_refresh_curuc(dw_pageretr.object.u_buybill_buybillid[uc_row]) end if end event event retrieve_childdw_uc();IF NOT dw_edit_mode THEN dw_uc.Reset() dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!) END IF end event public function integer wf_refresh_interface ();//wf_refresh_interface IF dw_edit_mode THEN cb_addzy.enabled=FALSE cb_retrieve.ENABLED=FALSE cb_delet.ENABLED=FALSE cb_print.ENABLED=FALSE cb_auditing.ENABLED=FALSE cb_cauditing.ENABLED=FALSE cb_func.ENABLED=FALSE cb_edit.Enabled = TRUE cb_add.Enabled = TRUE cb_reset.Enabled = TRUE cb_edit.Text = "放弃&E" cb_add.Text = "保存&S" cb_edit.normalpicname = 'Undo.bmp' cb_add.normalpicname = 'Save.bmp' dw_pageretr.RBUTTON_FILTER_USE=false //右键查询功能开关 dw_pageretr.titleclick_sort_use=false //单击标题排序功能开关 dw_child.dataobject='dw_buybillmx_index' dw_child.SetTransObject (sqlca) dw_child.RESET() ELSE cb_addzy.enabled=TRUE cb_retrieve.ENABLED=TRUE cb_delet.ENABLED=TRUE cb_print.ENABLED=TRUE cb_auditing.ENABLED=true cb_cauditing.ENABLED=true cb_func.ENABLED=true cb_add.Enabled = TRUE cb_edit.Enabled = TRUE cb_edit.Text = "修改&E" cb_add.Text = "新建&S" cb_edit.normalpicname = 'OPEN.bmp' cb_add.normalpicname = 'new.bmp' dw_pageretr.RBUTTON_FILTER_USE=true //右键查询功能开关 dw_pageretr.titleclick_sort_use=true //单击标题排序功能开关 dw_child.dataobject='dw_buybillmx_edit' dw_child.SetTransObject (sqlca) this.triggerevent('retrieve_childdw') if dw_pageretr.getrow()<=0 then cb_addzy.ENABLED=false cb_auditing.ENABLED=false end if END IF if retrieve_all or dw_edit_mode then cb_nextpage.enabled=false cb_retrieveall.enabled=false em_pagerowno.enabled=false sle_usual_query.enabled=false Else cb_nextpage.enabled=true cb_retrieveall.enabled=TRUE em_pagerowno.enabled=true sle_usual_query.enabled=true end if wf_lock_child() wf_lock_uc() cb_edit.of_init_draw() cb_add.of_init_draw() cb_edit.of_paint() cb_add.of_paint() cb_add.TriggerEvent('ue_textchange') cb_edit.TriggerEvent('ue_textchange') this.triggerevent('refresh_interface') RETURN 1 end function public function integer wf_lock_child ();//wf_lock_child INT LS_INT IF dw_edit_mode THEN FOR LS_INT=1 TO child_column_int dw_child.SetTabOrder (LS_INT,LS_INT*10 ) NEXT ELSE FOR LS_INT=1 TO child_column_int dw_child.SetTabOrder (LS_INT, 0) NEXT END IF RETURN 1 end function public function integer wf_lock_uc ();//wf_lock_uc INT LS_INT long ls_row ls_row=dw_uc.getrow() IF dw_edit_mode THEN FOR LS_INT=1 TO uc_column_int dw_uc.SetTabOrder (LS_INT,LS_INT*10 ) NEXT ELSE FOR LS_INT=1 TO uc_column_int dw_uc.SetTabOrder (LS_INT, 0) NEXT END IF if ls_row>0 then dw_uc.setrow(ls_row) RETURN 1 end function public subroutine wf_autoadd_mx ();Long ucrow,ls_sptid,li_row Long ls_payid String ls_billcode Decimal ls_oriamt,ls_Mstpayamt,ls_payamt DateTime ls_paydate ucrow = dw_uc.GetRow() IF ucrow <= 0 THEN RETURN ls_sptid = dw_uc.Object.u_buybill_sptid[ucrow] IF ls_sptid = 0 THEN dw_child.Reset() RETURN END IF dw_child.Reset() dw_uc.AcceptText() IF dw_uc.Object.u_buybill_billtype[ucrow] = 1 THEN DECLARE pay_cur CURSOR FOR SELECT U_Bmstpay.payid, U_Bmstpay.Billcode, U_Bmstpay.oriamt, U_Bmstpay.Mstpayamt, U_Bmstpay.payamt, U_Bmstpay.paydate FROM U_Bmstpay WHERE U_Bmstpay.finishflag = 0 AND sptid = :ls_sptid AND (U_Bmstpay.Mstpayamt - U_Bmstpay.payamt) > 0 AND (U_Bmstpay.Mstpayamt <> 0) Order By U_Bmstpay.paydate Asc ; OPEN pay_cur; FETCH pay_cur INTO :ls_payid,:ls_billcode,:ls_oriamt,:ls_Mstpayamt,:ls_payamt,:ls_paydate; DO WHILE sqlca.SQLCode = 0 li_row = dw_child.InsertRow(0) dw_child.Object.payid [li_row] = ls_payid dw_child.Object.paydate[li_row] = ls_paydate dw_child.Object.oriamt[li_row] = ls_oriamt dw_child.Object.billcode[li_row] = ls_billcode dw_child.Object.mainmstpayamt[li_row] = ls_Mstpayamt dw_child.Object.mainpayamt[li_row] = ls_payamt FETCH pay_cur INTO :ls_payid,:ls_billcode,:ls_oriamt,:ls_Mstpayamt,:ls_payamt,:ls_paydate; LOOP CLOSE pay_cur; ELSE DECLARE pay_cur1 CURSOR FOR SELECT U_Bmstpay.payid, U_Bmstpay.Billcode, U_Bmstpay.oriamt, U_Bmstpay.Mstpayamt, U_Bmstpay.payamt, U_Bmstpay.paydate FROM U_Bmstpay WHERE U_Bmstpay.finishflag = 0 AND sptid = :ls_sptid AND (U_Bmstpay.Mstpayamt - U_Bmstpay.payamt) < 0 AND (U_Bmstpay.Mstpayamt <> 0) Order By U_Bmstpay.paydate Asc ; OPEN pay_cur1; FETCH pay_cur1 INTO :ls_payid,:ls_billcode,:ls_oriamt,:ls_Mstpayamt,:ls_payamt,:ls_paydate; DO WHILE sqlca.SQLCode = 0 li_row = dw_child.InsertRow(0) dw_child.Object.payid [li_row] = ls_payid dw_child.Object.paydate[li_row] = ls_paydate dw_child.Object.oriamt[li_row] = ls_oriamt dw_child.Object.billcode[li_row] = ls_billcode dw_child.Object.mainmstpayamt[li_row] = ls_Mstpayamt dw_child.Object.mainpayamt[li_row] = ls_payamt FETCH pay_cur1 INTO :ls_payid,:ls_billcode,:ls_oriamt,:ls_Mstpayamt,:ls_payamt,:ls_paydate; LOOP CLOSE pay_cur1; END IF // payid // u_bmstpay_paydate // u_bmstpay_oriamt // u_bmstpay_billcode // u_bmstpay_mstpayamt // u_bmstpay_payamt // end subroutine public function integer wf_refresh_curuc (long arg_buybillid);//wf_refresh_curuc if arg_buybillid<=0 or isnull(arg_buybillid) then return 0 long uc_row uc_row=dw_pageretr.getrow() if uc_row<=0 then return 0 string relcode,dscrp,opemp,auditrep,inrep,buybillcode datetime paydate,opdate,auditdate decimal mstpayamt,payamt long sptid,moneyid int flag long itemid SELECT u_buybill.relcode, u_buybill.paydate, u_buybill.mstpayamt, u_buybill.payamt, u_buybill.sptid, u_buybill.dscrp, u_buybill.opdate, u_buybill.opemp, u_buybill.auditdate, u_buybill.auditrep, u_buybill.flag, u_buybill.inrep , u_buybill.buybillcode, u_buybill.moneyid, u_buybill.itemid into :relcode, :paydate, :mstpayamt, :payamt, :sptid, :dscrp, :opdate, :opemp, :auditdate, :auditrep, :flag, :inrep, :buybillcode, :moneyid, :itemid FROM u_buybill WHERE ( u_buybill.buybillid = :arg_buybillid ) ; if sqlca.sqlcode<>0 then messagebox('错误',"查询操作失败(错误单据唯一码)>> "+sqlca.sqlerrtext,stopsign!,ok!) return 0 end if dw_pageretr.object.u_buybill_buybillid[uc_row]=arg_buybillid dw_pageretr.object.u_buybill_paydate[uc_row]=paydate dw_pageretr.object.u_buybill_relcode[uc_row]=relcode dw_pageretr.object.u_buybill_inrep[uc_row]=inrep dw_pageretr.object.u_buybill_mstpayamt[uc_row]=mstpayamt dw_pageretr.object.u_buybill_payamt[uc_row]=payamt dw_pageretr.object.u_buybill_dscrp[uc_row]=dscrp dw_pageretr.object.u_buybill_sptid[uc_row]=sptid dw_pageretr.object.u_buybill_opdate[uc_row]=opdate dw_pageretr.object.u_buybill_opemp[uc_row]=opemp dw_pageretr.object.u_buybill_auditdate[uc_row]=auditdate dw_pageretr.object.u_buybill_auditrep[uc_row]=auditrep dw_pageretr.object.u_buybill_flag[uc_row]=flag dw_pageretr.object.u_buybill_buybillcode[uc_row]=buybillcode dw_pageretr.object.u_buybill_moneyid[uc_row]=moneyid dw_pageretr.object.u_buybill_itemid[uc_row]=itemid 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 // u_buybill_buybillid // u_buybill_paydate // u_buybill_relcode // u_buybill_inrep // u_buybill_mstpayamt // u_buybill_payamt // u_buybill_paytype // u_buybill_dscrp // u_buybill_sptid // u_buybill_opdate // u_buybill_opemp // u_buybill_auditdate // u_buybill_auditrep // u_buybill_flag end function public subroutine wf_addnew (long arg_scid, long arg_id);String ls_sptcode,ls_sptname Long uc_row IF arg_id = 0 THEN RETURN cb_add.TriggerEvent( 'clicked') uc_row = dw_uc.GetRow( ) SELECT sptcode,name INTO :ls_sptcode,:ls_sptname FROM u_spt Where sptid = :arg_id; dw_uc.SetRedraw(FALSE) IF sqlca.SQLCode <> 0 THEN THIS.TriggerEvent('ue_f9') ELSE dw_uc.Object.u_buybill_sptid[uc_row] = arg_id dw_uc.Object.u_spt_name[uc_row] = ls_sptname dw_uc.Object.u_spt_sptcode[uc_row] = ls_sptcode wf_autoadd_mx() END IF dw_uc.SetRedraw(TRUE) dw_uc.SetColumn("u_buybill_billtype") end subroutine on w_buybill.create int iCurrent call super::create this.dw_uc=create dw_uc this.dw_child=create dw_child this.cb_delet=create cb_delet this.cb_addzy=create cb_addzy this.cb_auditing=create cb_auditing this.cb_cauditing=create cb_cauditing this.cb_print=create cb_print this.cb_retrieve=create cb_retrieve this.st_3=create st_3 this.ddlb_status=create ddlb_status this.cb_help=create cb_help this.cb_add=create cb_add this.cb_edit=create cb_edit this.cb_reset=create cb_reset this.ln_bar=create ln_bar this.ln_bar2=create ln_bar2 this.r_bar=create r_bar this.ln_1=create ln_1 this.ln_2=create ln_2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.dw_uc this.Control[iCurrent+2]=this.dw_child this.Control[iCurrent+3]=this.cb_delet this.Control[iCurrent+4]=this.cb_addzy this.Control[iCurrent+5]=this.cb_auditing this.Control[iCurrent+6]=this.cb_cauditing this.Control[iCurrent+7]=this.cb_print this.Control[iCurrent+8]=this.cb_retrieve this.Control[iCurrent+9]=this.st_3 this.Control[iCurrent+10]=this.ddlb_status this.Control[iCurrent+11]=this.cb_help this.Control[iCurrent+12]=this.cb_add this.Control[iCurrent+13]=this.cb_edit this.Control[iCurrent+14]=this.cb_reset this.Control[iCurrent+15]=this.ln_bar this.Control[iCurrent+16]=this.ln_bar2 this.Control[iCurrent+17]=this.r_bar this.Control[iCurrent+18]=this.ln_1 this.Control[iCurrent+19]=this.ln_2 end on on w_buybill.destroy call super::destroy destroy(this.dw_uc) destroy(this.dw_child) destroy(this.cb_delet) destroy(this.cb_addzy) destroy(this.cb_auditing) destroy(this.cb_cauditing) destroy(this.cb_print) destroy(this.cb_retrieve) destroy(this.st_3) destroy(this.ddlb_status) destroy(this.cb_help) destroy(this.cb_add) destroy(this.cb_edit) destroy(this.cb_reset) destroy(this.ln_bar) destroy(this.ln_bar2) destroy(this.r_bar) destroy(this.ln_1) destroy(this.ln_2) end on event closequery;IF dw_edit_mode THEN Int ls_row = 0 dw_UC.AcceptText() ls_row = dw_UC.GetNextModified(0, Primary!)+& dw_UC.GetNextModified(0, Filter!)+dw_UC.DeletedCount() IF ls_row > 0 THEN IF MessageBox('询问','单据数据已经改变，是否先保存？',Question!,YesNo!,1 ) = 1 THEN RETURN 1 END IF ELSE ls_row = dw_child.GetNextModified(0, Primary!)+& dw_child.GetNextModified(0, Filter!)+dw_child.DeletedCount() IF ls_row > 0 THEN IF MessageBox('询问','单据明细数据已经改变，是否先保存？',Question!,YesNo!,1 ) = 1 THEN RETURN 1 END IF END IF END IF END IF end event event user_key;call super::user_key;IF KeyDown(KeyF6!) THEN this.TRIGGEREVENT('ue_f6') ELSEIF KeyDown(KeyF7!) THEN this.TRIGGEREVENT('ue_f7') ELSEIF KeyDown(KeyF8!) or KeyDown(KeyShift!) and KeyDown(KeyEnter!) THEN this.TRIGGEREVENT('ue_f8') ELSEIF KeyDown(KeyF9!) THEN this.TRIGGEREVENT('ue_f9') ELSEIF KeyDown(KeyF10!) THEN this.TRIGGEREVENT('ue_f10') ELSEIF KeyDown(KeyF11!) THEN this.TRIGGEREVENT('ue_f11') ELSEIF KeyDown(KeyF12!) THEN this.TRIGGEREVENT('ue_f12') elseIF KeyDown(KeyF1!) THEN this.TriggerEvent("ue_help") end if end event event open;this.triggerevent('ue_before_open') wf_movetocenter() OLD_TITLE=THIS.TITLE s_tran=Message.PowerObjectParm IF not ISNULL(s_tran) then retrieve_all=s_tran.if_retrieve_all mode=s_tran.work_mode arg_pkid=s_tran.arg_pkid arg_string_code=s_tran.arg_string_code if_sharedata=s_tran.if_sharedata //是否应用sharedata，当retrieve_all＝true是生效 ds_share=s_tran.ds_share end if //CHOOSE CASE MODE // CASE 0 // THIS.TITLE=OLD_TITLE+' 编辑模式 [F4-新建/保存 F5-编辑/放弃]' // CASE 1 // THIS.TITLE=OLD_TITLE+' 选择模式 [F4-新建/保存 F5-编辑/放弃]' //END CHOOSE dw_pageretr.RBUTTON_FILTER_USE=true //右键查询功能开关 dw_pageretr.titleclick_sort_use=true //单击标题排序功能开关 dw_pageretr.SetTransObject (sqlca) //pkcolumndbtname=dw_pageretr.Describe("#1.dbname") //取第一列为关键字 pkcolumndbtname=wf_get_pkcolumndbtname(dw_pageretr) //取第一列为关键字 ori_oldselect=dw_pageretr.Describe("DataWindow.Table.Select") ls_newselect=ori_oldselect ds_curquery=CREATE DATASTORE ds_curquery.DATAOBJECT='d_extr_find' ds_curquery.SetTransObject (sqlca) //if mode=1 then cb_mode_itfchg.TRIGGEREVENT(CLICKED!) wf_editindex_lockf() sle_usual_query.text=trim(arg_string_code) if NOT retrieve_all then THIS.TRIGGEREVENT("ue_usual_query_RETR") //修改ls_newselect,retrieve else if if_sharedata then ds_share.sharedata(dw_pageretr) else wf_retrieveuc(dw_pageretr,ls_newselect,1) this.TRIGGEREVENT('RETRIEVE_pageretr') end if end if IF retrieve_all THEN THIS.TRIGGEREVENT("ue_usual_query_filt") END IF wf_refresh_interface() uc_column_int=13 //uc dw前8列可以编辑 child_column_int=2 //子dw前4列可以编辑 uo_bill=create uo_buybill IF not ISNULL(s_tran) then if s_tran.b_long>0 then wf_addnew(s_tran.c_long , s_tran.b_long) end if end if end event event ue_before_open;dw_child.settransobject(sqlca) dw_uc.settransobject(sqlca) end event event retrieve_pageretr;boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled boolean cb_priorpage_enabled,cb_retrieve_enabled cb_nextpage_enabled=cb_nextpage.enabled cb_retrieveall_enabled=cb_retrieveall.enabled cb_nextpage.enabled=false cb_retrieveall.enabled=false dw_uc.Retrieve() //dw_uc的dw改左select top 0 并肯不带参数 dw_pageretr.retrieve(cur_flag,sys_user_spttype) IF dw_pageretr.RowCount() > 0 THEN dw_pageretr.SetRow(1) dw_pageretr.triggerevent(rowfocuschanged!) end if this.triggerevent('retreve_childdw') cb_nextpage.enabled=cb_nextpage_enabled cb_retrieveall.enabled=cb_retrieveall_enabled end event event key;this.triggerevent('user_key') 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_buybill.buybillcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="( u_buybill.buybillcode 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_usual_query_filt;call super::ue_usual_query_filt;string obj_expr='' if trim(sle_usual_query.text)<>'' then IF POS(trim(sle_usual_query.text),'%')=0 THEN obj_expr=obj_expr+'( u_buybill_buybillcode LIKE "%'+trim(sle_usual_query.text)+'%" )' ELSE obj_expr=obj_expr+'( u_buybill_buybillcode 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 resize;call super::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 = 3602 w_height = 2300 IF newwidth < w_width THEN THIS.Width = w_width IF newheight < w_height THEN THIS.Height = w_height dw_child.Width = THIS.Width - (w_width - dw_child_w) dw_child.Height = THIS.Height - (w_height - dw_child_h) dw_pageretr.Width = THIS.Width - (w_width - dw_pageretr_w) end event type cb_func from w_publ_pageretr`cb_func within w_buybill integer x = 151 integer y = 0 integer width = 151 integer height = 172 end type type cb_exit from w_publ_pageretr`cb_exit within w_buybill integer x = 1888 integer y = 0 integer width = 151 integer height = 172 integer taborder = 230 integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type type sle_usual_query from w_publ_pageretr`sle_usual_query within w_buybill integer x = 251 integer y = 188 integer width = 549 boolean bringtotop = true end type type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_buybill integer x = 2473 integer height = 172 integer taborder = 180 string normalpicname = "p1.ico" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type type em_pagerowno from w_publ_pageretr`em_pagerowno within w_buybill integer x = 2130 integer y = 52 integer width = 334 integer taborder = 160 boolean bringtotop = true end type type dw_pageretr from w_publ_pageretr`dw_pageretr within w_buybill integer x = 2025 integer y = 296 integer width = 1536 integer height = 1000 boolean bringtotop = true string title = "单据摘要内容" string dataobject = "dw_buybilledit_index" end type event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;IF NOT dw_edit_mode THEN PARENT.TriggerEvent('retrieve_childdw_uc') PARENT.TriggerEvent('retrieve_childdw') END IF DW_UC.SETROW(currentrow) DW_UC.ScrollToRow (currentrow) end event event dw_pageretr::ue_after_filter;if not dw_edit_mode then parent.triggerevent('retrieve_childdw') end event event dw_pageretr::constructor;call super::constructor;dw_pageretr_w = this.width dw_pageretr_h = this.height end event type st_1 from w_publ_pageretr`st_1 within w_buybill integer x = 46 integer y = 208 integer width = 201 string text = "单号含:" end type type cb_nextpage from w_publ_pageretr`cb_nextpage within w_buybill integer x = 2638 integer width = 64 integer height = 172 integer taborder = 220 integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type type dw_uc from datawindow within w_buybill event dwnkey pbm_dwnkey integer x = 14 integer y = 296 integer width = 2007 integer height = 1004 integer taborder = 80 string dataobject = "dw_buybilledit_edit" boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.triggerevent('user_key') string ls_sptcode string ls_sptname long ll_sptid,uc_row uc_row=dw_uc.getrow() if dw_uc.GetColumnName ( )='u_spt_sptcode' and key = KeyEnter! then dw_uc.accepttext() ls_sptcode=trim(dw_uc.object.u_spt_sptcode[uc_row]) select sptid,name into :ll_sptid,:ls_sptname from u_spt where sptcode=:ls_sptcode; dw_uc.setredraw(false) if sqlca.sqlcode<>0 then parent.triggerevent('ue_f9') return 1 else dw_uc.object.u_buybill_sptid[uc_row]=ll_sptid dw_uc.object.u_spt_name[uc_row]=ls_sptname wf_autoadd_mx() end if dw_uc.setredraw(true) dw_uc.SetColumn("u_buybill_billtype") return 1 else If key = KeyEnter! or key = Keydownarrow! Then // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab Return 1 elseif key = Keyuparrow! then keybd_event ( 16, 0, 0 , 0 ) keybd_event ( 9, 0, 0 , 0 ) keybd_event ( 9, 0, 2, 0 ) keybd_event ( 16, 0, 2, 0 ) return 1 End If end if //parent.triggerevent('user_key') //If key = KeyEnter! Then // //keybd_event ( 9, 0, 0 , 0 ) // 按下tab //keybd_event ( 9, 0, 2, 0 ) // 释放tab //Return 1 //End If // end event event rowfocuschanged;IF not dw_edit_mode then if currentrow >0 THEN dw_pageretr.SETROW(currentrow) dw_pageretr.ScrollToRow(currentrow) dw_pageretr.selectrow(0,false) dw_pageretr.selectrow(currentrow,true) end if // parent.triggerevent('retrieve_childdw') end if //if currentrow>0 and not dw_edit_mode then // if dw_uc.object.flag[currentrow]=1 then // cb_auditing.enabled=false // cb_delet.enabled=false // cb_edit.enabled=false // cb_addzy.enabled=true // else // cb_auditing.enabled=true // cb_delet.enabled=true // cb_edit.enabled=true // cb_addzy.enabled=false // end if //else // cb_auditing.enabled=false // cb_delet.enabled=false // cb_edit.enabled=false // cb_addzy.enabled=false //end if end event event rowfocuschanging;if dw_edit_mode then return 1 end event event doubleclicked;IF dw_edit_mode and row >0 THEN parent.triggerevent('ue_f9') END IF end event event itemchanged;IF NOT dw_edit_mode THEN RETURN IF row <= 0 THEN RETURN IF dw_uc.GetColumnName ( ) = 'u_sptt_sptcode' THEN String ls_code,ls_name,ls_spttype Long ls_sptid dw_uc.AcceptText() ls_code = dw_uc.Object.u_spt_sptcode[dw_uc.GetRow()] SELECT u_spt.sptid, u_spt.name, u_spt.spttype INTO :ls_sptid,:ls_name,:ls_spttype FROM u_spt Where (sptcode = :ls_code); dw_uc.SetRedraw(FALSE) IF sqlca.SQLCode <> 0 THEN dw_uc.Object.u_buybill_sptid[dw_uc.GetRow()] = 0 dw_uc.Object.u_spt_sptcode[dw_uc.GetRow()] = '' dw_uc.Object.u_spt_name[dw_uc.GetRow()] = '' ELSE dw_uc.Object.u_salebill_sptid[dw_uc.GetRow()] = ls_sptid dw_uc.Object.u_spt_sptcode[dw_uc.GetRow()] = ls_code dw_uc.Object.u_spt_name[dw_uc.GetRow()] = ls_name END IF wf_autoadd_mx() dw_uc.SetRedraw(TRUE) ELSEIF dw_uc.GetColumnName ( ) = 'u_buybill_billtype' THEN wf_autoadd_mx() END IF end event event buttonclicked;IF dw_edit_mode and row >0 THEN parent.triggerevent('ue_f9') END IF end event type dw_child from u_dw_rbtnfilter within w_buybill event dwnkey pbm_dwnkey integer x = 5 integer y = 1300 integer width = 3543 integer height = 876 integer taborder = 30 boolean bringtotop = true boolean titlebar = true string title = "单据明细摘要内容" string dataobject = "dw_buybillmx_edit" boolean maxbox = true boolean hscrollbar = true boolean vscrollbar = true boolean resizable = true boolean hsplitscroll = true borderstyle borderstyle = stylebox! end type event dwnkey;call super::dwnkey;If key = KeyEnter! Then // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab return 1 End If parent.triggerevent('user_key') end event event constructor;call super::constructor;titleclick_sort_use=true dw_child_h = THIS.Height dw_child_w = THIS.Width end event event clicked;call super::clicked;IF row>0 and dw_edit_mode THEN this.setrow(row) end if end event event rowfocuschanged;//IF dw_edit_mode THEN RETURN IF currentrow <=0 THEN RETURN this.selectrow(0,false) this.selectrow(currentrow,true) end event type cb_delet from uo_imflatbutton within w_buybill integer x = 631 integer width = 151 integer height = 172 integer taborder = 250 boolean bringtotop = true string text = "删除" string normalpicname = "delete.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;IF Not f_power_ind(655) THEN MessageBox('提示','你没有使用权限！',information!,ok!) RETURN END IF IF dw_edit_mode THEN RETURN IF Not KeyDown(KeyControl!) THEN IF MessageBox ("询问","是否确定要删除当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN String arg_msg = '' Long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('提示','请选定当前目标单据!',information!,ok!) RETURN END IF string ll_buydscrp long ll_buybillid ll_buybillid = dw_pageretr.Object.u_buybill_buybillid[uc_row] Select dscrp Into :ll_buydscrp From u_buybill Where buybillid=:ll_buybillid ; IF trim(ll_buydscrp) = "供应商付款结算单自动生成" THEN MessageBox('错误',"单据为自动建立类型单据，请撤审相关单据。") return END IF IF uo_bill.del(dw_pageretr.Object.u_buybill_buybillid[uc_row],arg_msg,True) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','删除单据'+String(dw_pageretr.Object.u_buybill_buybillcode[uc_row])+'成功!',information!,ok!) //日志 Long ls_id,ls_curid String ls_code,ls_opemp ls_id = dw_pageretr.Object.u_buybill_buybillid[uc_row] ls_curid = dw_pageretr.Object.u_buybill_sptid[uc_row] ls_code = dw_pageretr.Object.u_buybill_buybillcode[uc_row] ls_opemp = dw_pageretr.Object.u_buybill_opemp[uc_row] f_setsysoplog('供应商对数单','供应商对数单删除,ID:'+String(ls_id)+',供应商ID:'+String(ls_curid)+',code:'+ls_code+',建立人:'+ls_opemp,arg_msg,True) dw_pageretr.DeleteRow(uc_row) dw_pageretr.PostEvent(RowFocusChanged!) END IF ELSE IF MessageBox ("询问","是否确定要批删除列表中未审核的单据?",Question!,YesNo! ) = 2 THEN RETURN Long ll_billid, ll_i String ls_msg , ll_dscrp Int li_flag Long ll_suc,ll_fail dw_pageretr.AcceptText() // li_flag = dw_pageretr.Object.u_buybill_flag[dw_pageretr.GetRow()] Open(w_sys_wait_jdt) //初始化进度条 w_sys_wait_jdt.Show() w_sys_wait_jdt.wf_accepttol(dw_pageretr.RowCount()) FOR ll_i = 1 To dw_pageretr.RowCount() w_sys_wait_jdt.st_msg.Text = dw_pageretr.Object.u_buybill_buybillcode[ll_i] + " 正在删除..." //进度信息 li_flag = dw_pageretr.Object.u_buybill_flag[ll_i] IF li_flag = 1 THEN CONTINUE ll_billid = dw_pageretr.Object.u_buybill_buybillid[ll_i] // ls_taskcode = dw_pageretr.Object.u_salebill_salebillcode[ll_i] Select dscrp Into :ll_buydscrp From u_buybill Where buybillid=:ll_billid ; IF trim(ll_buydscrp) = "供应商付款结算单自动生成" THEN ll_fail++ ls_msg = "单据为自动建立类型单据，请撤审相关单据。" CONTINUE END IF IF uo_bill.del(ll_billid,arg_msg,True) = 0 THEN ll_fail++ CONTINUE END IF ll_suc++ w_sys_wait_jdt.wf_inc(ll_i) //进度 NEXT Close(w_sys_wait_jdt) MessageBox('提示','批删除成功!成功:'+String(ll_suc)+',失败:'+String(ll_fail) + ls_msg,information!,ok!) Parent.TriggerEvent('retrieve_pageretr') END IF end event type cb_addzy from uo_imflatbutton within w_buybill integer x = 1335 integer width = 251 integer height = 172 integer taborder = 240 boolean bringtotop = true string text = "单据功能" string normalpicname = "other.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event 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 uo_imflatbutton within w_buybill integer x = 782 integer width = 151 integer height = 172 integer taborder = 250 string text = "审核" string normalpicname = "audit.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;if not f_power_ind(654) then messagebox('提示','你没有使用权限！',information!,ok!) return end if 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 uo_bill.auditing(dw_pageretr.object.u_buybill_buybillid[pagerert_row],publ_operator,arg_msg,true)=0 then messagebox('错误',arg_msg,stopsign!,ok!) ELSE messagebox('提示','审核成功!',information!,ok!) wf_refresh_curuc(dw_pageretr.object.u_buybill_buybillid[pagerert_row]) end if end event type cb_cauditing from uo_imflatbutton within w_buybill integer x = 933 integer width = 151 integer height = 172 integer taborder = 260 boolean bringtotop = true string text = "撤审" string normalpicname = "caudit.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;if not f_power_ind(654) then messagebox('提示','你没有使用权限！',information!,ok!) return end if 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 uo_bill.c_auditing(dw_pageretr.object.u_buybill_buybillid[pagerert_row],publ_operator,arg_msg,true)=0 then messagebox('错误',arg_msg,stopsign!,ok!) ELSE messagebox('提示','撤审成功!',information!,ok!) wf_refresh_curuc(dw_pageretr.object.u_buybill_buybillid[pagerert_row]) end if end event type cb_print from uo_imflatbutton within w_buybill event ue_viewprint ( ) integer x = 1737 integer width = 151 integer height = 172 integer taborder = 40 boolean bringtotop = true string text = "预览" string normalpicname = "preview.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event ue_viewprint();Long ls_msgprintid ls_msgprintid = Message.LongParm SELECT dft_new_dwname,powerid,auditprint,prownum INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum FROM sys_dft_dwprint_dynamic Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca; IF sqlca.SQLCode <> 0 THEN ls_newname = '' ls_powerid = 0 END IF IF dw_pageretr.RowCount() = 0 THEN MessageBox('提示','没有可打印的单据！', Information!, OK! ) RETURN END IF Long LS_ROW LS_ROW = dw_pageretr.GetRow() IF LS_ROW <= 0 THEN MessageBox('提示','没有打印目标单据!', Information!, OK! ) RETURN END IF S_print_MSG LS_PRMSG IF ls_newname <> '' THEN LS_PRMSG.obj_dwNAME = ls_newname ELSE LS_PRMSG.obj_dwNAME = 'dw_rp_buybill_print' END IF LS_PRMSG.TAG_TEXT = '供应商对数单' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_buybill_buybillid[LS_ROW] LS_PRMSG.rowcnt = dw_child.RowCount() OpenWithParm(w_publ_preview,LS_PRMSG) end event event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype Long ls_dwprintid String ls_windowname Int ls_i Long ll_billid Int li_ifuse Long ll_row String Name,ll_rpname Long ll_RpID,ll_flag,ll_ifuse w_curwin = PARENT ls_windowname = PARENT.ClassName ( ) SELECT billid,ifuse INTO :ll_billid, :li_ifuse FROM u_report_bill Where winName = :ls_windowname; IF sqlca.SQLCode <> 0 THEN li_ifuse = 0 END IF IF li_ifuse = 0 THEN DECLARE dft_dwprint CURSOR FOR SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype FROM sys_dft_dwprint_dynamic WHERE dwtype = :ls_windowname AND ptype = 0 and ifdefault = 0 ; OPEN dft_dwprint; FETCH dft_dwprint INTO :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; IF sqlca.SQLCode <> 0 THEN TriggerEvent('ue_viewprint',0,0) ELSE m_dft_dwprint_item m_1 m_1 = CREATE m_dft_dwprint_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 f_add_menuItem_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid)) FETCH dft_dwprint INTO :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; ls_i++ LOOP CLOSE dft_dwprint; m_1.PopMenu(THIS.X+50,THIS.Y+50) END IF ELSE DECLARE rpt_dwprint CURSOR FOR SELECT RpID,RpName,Flag,Ifuse FROM U_report_list WHERE billid = :ll_billid Order By RpName; OPEN rpt_dwprint; FETCH rpt_dwprint INTO :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; IF sqlca.SQLCode <> 0 THEN PARENT.TriggerEvent('ue_rpt_viewprint',0,0) ELSE m_rpt_dwprint_item m_2 m_2 = CREATE m_rpt_dwprint_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 IF f_pow_rpt(ll_RpID) AND ll_ifuse = 1 AND ll_flag = 1 THEN //权限检查f_pow_rpt( ) f_add_menuItem_rpt(m_2,ls_i,ll_rpname,String(ll_RpID)) END IF FETCH rpt_dwprint INTO :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; ls_i++ LOOP CLOSE rpt_dwprint; m_2.Item[1].Visible = FALSE m_2.PopMenu(THIS.X+50,THIS.Y+50) END IF END IF end event type cb_retrieve from uo_imflatbutton within w_buybill integer width = 151 integer height = 172 integer taborder = 40 string text = "重查" string normalpicname = "refresh.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;parent.triggerevent('retrieve_pageretr') end event type st_3 from statictext within w_buybill integer x = 814 integer y = 208 integer width = 201 integer height = 52 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 = "状 态:" boolean focusrectangle = false end type type ddlb_status from dropdownlistbox within w_buybill integer x = 1019 integer y = 188 integer width = 361 integer height = 300 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 elseif index=2 then cur_flag=0 elseif index=3 then cur_flag=1 end if parent.triggerevent('retrieve_pageretr') end event type cb_help from uo_imflatbutton within w_buybill string tag = "帮助[F1]" integer x = 1586 integer width = 151 integer height = 172 integer taborder = 50 boolean bringtotop = true string text = "帮助" string normalpicname = "help.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;parent.triggerevent("ue_help") end event type cb_add from uo_imflatbutton within w_buybill integer x = 302 integer width = 165 integer height = 172 integer taborder = 270 boolean bringtotop = true string text = "新建&S" string normalpicname = "new.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;IF NOT f_power_ind(642) THEN MessageBox('提示','你没有使用权限！',information!,ok!) RETURN END IF String arg_msg = '' Long uc_row,pagerert_row Long relid_pageretr,reld_uc Long i IF dw_edit_mode THEN dw_uc.AcceptText() dw_child.AcceptText() uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('提示','请选定当前目标单据!',information!,ok!) RETURN END IF IF NOT dw_uc.Object.u_buybill_paydate[uc_row] > DateTime(2000-01-01,Now()) THEN MessageBox('提示','不合理发生时间!',information!,ok!) dw_uc.SetFocus() dw_uc.SetColumn("u_buybill_paydate") RETURN END IF IF NOT Len(String(dw_uc.Object.u_buybill_inrep[uc_row])) > 0 THEN MessageBox('提示','请填写经手人!',information!,ok!) dw_uc.SetFocus() dw_uc.SetColumn("u_buybill_inrep") RETURN END IF IF dw_uc.Object.u_buybill_banktypeid[uc_row] <= 0 THEN MessageBox('提示','请填写结算方式!',information!,ok!) dw_uc.SetFocus() dw_uc.SetColumn("u_buybill_banktypeid") RETURN END IF IF dw_uc.Object.u_buybill_moneyid[uc_row] <= 0 THEN MessageBox('提示','请填写币种!',information!,ok!) dw_uc.SetFocus() dw_uc.SetColumn("u_buybill_moneyid") RETURN END IF uo_bill.opemp = publ_operator uo_bill.paydate = dw_uc.Object.u_buybill_paydate[uc_row] uo_bill.relcode = dw_uc.Object.u_buybill_relcode[uc_row] uo_bill.inrep = dw_uc.Object.u_buybill_inrep[uc_row] uo_bill.banktypeid = dw_uc.Object.u_buybill_banktypeid[uc_row] uo_bill.dscrp = dw_uc.Object.u_buybill_dscrp[uc_row] uo_bill.sptid = dw_uc.Object.u_buybill_sptid[uc_row] uo_bill.mstpayamt = dw_uc.Object.u_buybill_mstpayamt[uc_row] uo_bill.payamt = dw_uc.Object.u_buybill_payamt[uc_row] uo_bill.accountsid = dw_uc.Object.u_buybill_accountsid[uc_row] uo_bill.itemid = dw_uc.Object.u_buybill_itemid[uc_row] uo_bill.billtype = dw_uc.Object.u_buybill_billtype[uc_row] uo_bill.moneyid = dw_uc.Object.u_buybill_moneyid[uc_row] //uo_bill.buildtype=1 FOR i = 1 TO dw_child.RowCount() IF dw_child.Object.Mstpayamt[i] <> 0 OR dw_child.Object.payamt[i] <> 0 THEN IF uo_bill.acceptmx(dw_child.Object.payid[i],& dw_child.Object.billcode[i],& dw_child.Object.Mstpayamt[i],& dw_child.Object.payamt[i],& dw_child.Object.oriamt[i],& dw_child.Object.mainmstpayamt[i],& dw_child.Object.mainpayamt[i],& dw_child.Object.relbillcode[i],& arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF END IF NEXT IF uo_bill.Save(arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF MessageBox('提示','保存操作成功!',information!,ok!) Long ll_row ll_row = dw_pageretr.GetRow() dw_pageretr.SelectRow(0,FALSE) dw_pageretr.SelectRow(ll_row,TRUE) wf_refresh_curuc(uo_bill.buybillid) //刷新uc ELSE IF uo_bill.newbegin() = 0 THEN //生产令领料 MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF END IF IF NOT dw_edit_mode THEN Int li_row li_row = dw_pageretr.InsertRow (1) dw_pageretr.ScrollToRow(li_row) dw_child.Reset() dw_uc.Reset() dw_uc.SetFocus() dw_pageretr.RowsCopy(li_row,li_row, Primary!, dw_uc, 1, Primary!) END IF dw_edit_mode = NOT dw_edit_mode wf_refresh_interface() end event type cb_edit from uo_imflatbutton within w_buybill integer x = 466 integer width = 165 integer height = 172 integer taborder = 280 boolean bringtotop = true string text = "修改&E" string normalpicname = "open.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;if not f_power_ind(642) then messagebox('提示','你没有使用权限！',information!,ok!) return end if string arg_msg='' long uc_row uc_row=dw_pageretr.getrow() if uc_row<=0 then messagebox('提示','请选定当前目标单据!',information!,ok!) return end if if not dw_edit_mode then if uo_bill.updatebegin(dw_pageretr.object.u_buybill_buybillid[uc_row],arg_msg)=0 then messagebox('错误',arg_msg,stopsign!,ok!) return end if end if dw_edit_mode= NOT dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN dw_pageretr.SetFocus() else parent.triggerevent('retrieve_pageretr') END IF end event type cb_reset from uo_imflatbutton within w_buybill integer x = 1083 integer width = 251 integer height = 172 integer taborder = 260 boolean bringtotop = true string text = "分配金额" string normalpicname = "bill.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;if not dw_edit_mode then return wf_autoadd_mx() dw_uc.accepttext() dw_child.accepttext() long li_row,i decimal mstpayamt=0,payamt=0,mxpayamt=0 li_row=dw_uc.getrow() if li_row<=0 then messagebox('提示','请选择单据',information!,ok!) return end if if dw_child.rowcount()<=0 then messagebox('提示','请单据明细',information!,ok!) return end if mstpayamt=dw_uc.object.u_buybill_mstpayamt[li_row] payamt=dw_uc.object.u_buybill_payamt[li_row] //第一次循环：分配应付、计算总可分配 for i=1 to dw_child.rowcount() if mstpayamt > 0 then if dw_child.Object.mainmstpayamt[i]<=mstpayamt then dw_child.Object.mstpayamt[i]=dw_child.Object.mainmstpayamt[i] mstpayamt=mstpayamt - dw_child.Object.mainmstpayamt[i] else dw_child.Object.mstpayamt[i]=mstpayamt mstpayamt=0 end if end if payamt = payamt - (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) dw_child.Object.payamt[i] = (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) next dw_child.accepttext() //第二次循环：根据可分配判断正负，修正相关结余（正-负、负-正） if payamt<0 then //不够分配 for i=dw_child.rowcount() to 1 STEP - 1 if (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i])<=0 then CONTINUE if dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i] + payamt <0 then dw_child.Object.payamt[i]=0 payamt=payamt + (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) else dw_child.Object.payamt[i]=payamt + (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) payamt=0 end if next else // 分配有剩 for i=dw_child.rowcount() to 1 STEP - 1 if (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i])>=0 then CONTINUE if dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i] + payamt >0 then dw_child.Object.payamt[i]=0 payamt=payamt + (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) dw_child.Object.mainpayamt[i] =payamt else dw_child.Object.payamt[i]=payamt + (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) payamt=0 end if next end if dw_child.accepttext() //for i=1 to dw_child.rowcount() // if dw_child.Object.mainmstpayamt[i] = 0 then // mxpayamt = mxpayamt + dw_child.Object.mainpayamt[i] // end if //next // //payamt = payamt + mxpayamt //for i=1 to dw_child.rowcount() // if mstpayamt > 0 then // if dw_child.Object.mainmstpayamt[i]<=mstpayamt then // dw_child.Object.mstpayamt[i]=dw_child.Object.mainmstpayamt[i] // mstpayamt=mstpayamt - dw_child.Object.mainmstpayamt[i] // else // dw_child.Object.mstpayamt[i]=mstpayamt // mstpayamt=0 // end if // end if // // if payamt > 0 then // if dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]<=payamt then // dw_child.Object.payamt[i]=dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i] // payamt=payamt - (dw_child.Object.mainmstpayamt[i] - dw_child.Object.mainpayamt[i]) // else // dw_child.Object.payamt[i]=payamt // payamt=0 // end if // end if //next end event type ln_bar from line within w_buybill long linecolor = 268435456 integer linethickness = 4 integer beginx = -187 integer beginy = 176 integer endx = 3136 integer endy = 176 end type type ln_bar2 from line within w_buybill long linecolor = 16777215 integer linethickness = 4 integer beginy = 180 integer endx = 3323 integer endy = 180 end type type r_bar from rectangle within w_buybill long linecolor = 16777215 long fillcolor = 1073741824 integer x = 3410 integer width = 73 integer height = 172 end type event constructor;this.fillcolor = 14215660 this.linecolor = 14215660 this.x = -1 this.y = -1 this.height = ln_bar2.beginy - 5 end event type ln_1 from line within w_buybill long linecolor = 268435456 integer beginy = 284 integer endx = 3291 integer endy = 284 end type type ln_2 from line within w_buybill long linecolor = 16777215 integer beginy = 288 integer endx = 3227 integer endy = 288 end type