$PBExportHeader$w_assetdef_edit.srw forward global type w_assetdef_edit from w_publ_pageretr end type type cb_print from uo_imflatbutton within w_assetdef_edit end type type cb_retrieve from uo_imflatbutton within w_assetdef_edit end type type cb_addzy from uo_imflatbutton within w_assetdef_edit end type type cb_delet from uo_imflatbutton within w_assetdef_edit end type type cb_edit from uo_imflatbutton within w_assetdef_edit end type type cb_add from uo_imflatbutton within w_assetdef_edit end type type dw_uc from datawindow within w_assetdef_edit end type type cb_add_xm from uo_imflatbutton within w_assetdef_edit end type type cb_dele_xm from uo_imflatbutton within w_assetdef_edit end type type cb_showall from uo_imflatbutton within w_assetdef_edit end type type cb_auditing from uo_imflatbutton within w_assetdef_edit end type type dw_child from u_dw_rbtnfilter within w_assetdef_edit end type type cb_set_dft from uo_imflatbutton within w_assetdef_edit end type type st_dft from statictext within w_assetdef_edit end type type ddlb_1 from dropdownlistbox within w_assetdef_edit end type type st_2 from statictext within w_assetdef_edit end type type cb_credence from uo_imflatbutton within w_assetdef_edit end type type ln_1 from line within w_assetdef_edit end type type ln_2 from line within w_assetdef_edit end type type ln_3 from line within w_assetdef_edit end type type ln_4 from line within w_assetdef_edit end type type r_bar from rectangle within w_assetdef_edit end type end forward global type w_assetdef_edit from w_publ_pageretr integer width = 3611 integer height = 2380 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_setdft ( ) event ue_canceldft ( ) event ue_copy ( ) event ue_view_cred ( ) cb_print cb_print cb_retrieve cb_retrieve cb_addzy cb_addzy cb_delet cb_delet cb_edit cb_edit cb_add cb_add dw_uc dw_uc cb_add_xm cb_add_xm cb_dele_xm cb_dele_xm cb_showall cb_showall cb_auditing cb_auditing dw_child dw_child cb_set_dft cb_set_dft st_dft st_dft ddlb_1 ddlb_1 st_2 st_2 cb_credence cb_credence ln_1 ln_1 ln_2 ln_2 ln_3 ln_3 ln_4 ln_4 r_bar r_bar end type global w_assetdef_edit w_assetdef_edit type variables Int child_column_int = 1,uc_column_int = 1 uo_asset uo_asset_in Boolean if_credence = FALSE Boolean if_mod_init = FALSE Int cur_editfocus = 0 //0：非编缉，1：新建，2：修改 Long new_assetcardid = 0 Decimal old_rawvalue,old_usedvalue Long old_credid //固定资产原对应凭证ID Long new_credid //固定资产新对应凭证ID uo_credence uo_cred Boolean if_dft = FALSE s_assetcard s_dft Int cur_clearflag = 0 end variables forward prototypes public function integer wf_refresh_interface () public function integer wf_lock_child () public function integer wf_no_edit () public function integer wf_lock_uc () public function integer wf_del_credence () public subroutine wf_refresh_depr () public function integer wf_refresh_curuc (long arg_assetcardid) end prototypes event retrieve_childdw;long row,uc_relid row=dw_pageretr.getrow() if row>0 then uc_relid=dw_pageretr.object.assetcardid[row] dw_child.SetRedraw (false) dw_child.retrieve(sys_accsetid,uc_relid) dw_child.SetRedraw (true) else dw_child.reset() end if end event event refresh_interface();//被 wf_refresh_interface() 调用,用于界面刷新 //IF sys_accsetbegin THEN // cb_credence.Enabled = dw_edit_mode //ELSE // cb_credence.Enabled = FALSE //END IF sle_usual_query.Enabled = NOT dw_edit_mode ddlb_1.Enabled = NOT dw_edit_mode 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_setdft();if dw_edit_mode then return long uc_row uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前固定资产!') RETURN END IF s_dft.assetcardcode = dw_uc.object.assetcardcode[uc_row] s_dft.assetcardname = dw_uc.object.assetcardname[uc_row] s_dft.assetypeid = dw_uc.object.assetypeid[uc_row] s_dft.spectype = dw_uc.object.spectype[uc_row] s_dft.deptid = dw_uc.object.deptid[uc_row] s_dft.incrdecrid = dw_uc.object.incrdecrid[uc_row] s_dft.usedtypeid = dw_uc.object.usedtypeid[uc_row] s_dft.rawvalue = dw_uc.object.rawvalue[uc_row] s_dft.usedvalue = dw_uc.object.usedvalue[uc_row] s_dft.startdate = dw_uc.object.startdate[uc_row] s_dft.remainrate = dw_uc.object.remainrate[uc_row] s_dft.remainvalue = dw_uc.object.remainvalue[uc_row] s_dft.deprediateid = dw_uc.object.deprediateid[uc_row] s_dft.workload = dw_uc.object.workload[uc_row] s_dft.usedall = dw_uc.object.usedall[uc_row] s_dft.unit = dw_uc.object.unit[uc_row] s_dft.subid = dw_uc.object.subid[uc_row] s_dft.location = dw_uc.object.location[uc_row] s_dft.dscrp = dw_uc.object.dscrp[uc_row] s_dft.othersubid = dw_uc.object.othersubid[uc_row] s_dft.assetsubid = dw_uc.object.assetsubid[uc_row] s_dft.deprsubid = dw_uc.object.deprsubid[uc_row] s_dft.deprrate = dw_uc.object.deprrate[uc_row] s_dft.deprvalue = dw_uc.object.deprvalue[uc_row] st_dft.text = '默认' if_dft = true end event event ue_canceldft;if_dft = false st_dft.text = '' end event event ue_copy;IF NOT sys_power_issuper THEN MessageBox('系统提示','不是帐套管理员,不能复制') RETURN END IF IF sys_accsetbegin THEN MessageBox('系统提示','帐套已启用,不能复制') RETURN END IF String msg msg = '注意:复制科目功能会将原帐套的所有固定资产删除,再加入要新的固定资产! ~n' msg = msg + '请确认帐套没有数据,是否确定要复制吗?' IF MessageBox ("IF",msg,Question!,YesNo! ) = 2 THEN RETURN OpenWithParm(w_accset_ch,sys_accsetid) Long ll_accsetid ll_accsetid = Message.DoubleParm IF ll_accsetid <= 0 THEN RETURN Long ll_copy_curyear,ll_copy_curmon,ll_yearmon SELECT curryear,currmon INTO :ll_copy_curyear,:ll_copy_curmon FROM cw_accset Where accsetid = :ll_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','查询复制帐套当前会计期间失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF ll_yearmon = ll_copy_curyear * 100 + ll_copy_curmon DELETE FROM cw_assettype Where accsetid = :sys_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','删除帐套原固定资产类别失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF INSERT INTO cw_assettype( accsetid, assettypeid, assettypename, deprediateid, remainrate) SELECT :sys_accsetid, assettypeid, assettypename, deprediateid, remainrate FROM cw_assettype Where accsetid = :ll_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','复制帐套固定资产类别失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF /////////////////////////////////////////////////////////////////////////////////////////////// DELETE FROM cw_usedtype Where accsetid = :sys_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','删除帐套原固定资产使用状况失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF INSERT INTO cw_usedtype( accsetid, usedtypeid, usedtypename, depr) SELECT :sys_accsetid, usedtypeid, usedtypename, depr FROM cw_usedtype Where accsetid = :ll_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','复制帐套固定资产使用状况失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF ////////////////////////////////////////////////// DELETE FROM cw_incrdecr Where accsetid = :sys_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','删除帐套原固定资产增减方式失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF INSERT INTO cw_incrdecr( accsetid, incrdecrid, incrdecrname, incrordecr, subid) SELECT :sys_accsetid, incrdecrid, incrdecrname, incrordecr, subid FROM cw_incrdecr Where accsetid = :ll_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','复制帐套固定资产增减方式失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF ////////////////////////////////////////////////////////////// DELETE FROM cw_assetcard Where accsetid = :sys_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','删除帐套原固定资产失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF IF ll_yearmon = 0 THEN INSERT INTO cw_assetcard( accsetid, assetcardid, assetcardcode, assetcardname, spectype, assetypeid, deptid, incrdecrid, location, usedtypeid, deprediateid, startdate, workload, usedall, unit, rawvalue, usedvalue, usedvalueago, remainrate, remainvalue, deprrate, deprvalue, subid, Initflag, clearflag) SELECT :sys_accsetid, cw_assetcard.assetcardid, cw_assetcard.assetcardcode, cw_assetcard.assetcardname, cw_assetcard.spectype, cw_assetcard.assetypeid, cw_assetcard.deptid, cw_assetcard.incrdecrid, cw_assetcard.location, cw_assetcard.usedtypeid, cw_assetcard.deprediateid, cw_assetcard.startdate, cw_assetcard.workload, //预计使用月份 cw_assetcard.usedall, //已计月份 cw_assetcard.unit, cw_assetcard.rawvalue, //原值 cw_assetcard.usedvalue, //累计折旧 cw_assetcard.usedvalueago, cw_assetcard.remainrate, cw_assetcard.remainvalue, cw_assetcard.deprrate, //折旧率 cw_assetcard.deprvalue,//折旧额 cw_assetcard.subid, 1, cw_assetcard.clearflag FROM cw_assetcard Where cw_assetcard.accsetid = :ll_accsetid; ELSE INSERT INTO cw_assetcard( accsetid, assetcardid, assetcardcode, assetcardname, spectype, assetypeid, deptid, incrdecrid, location, usedtypeid, deprediateid, startdate, workload, usedall, unit, rawvalue, usedvalue, usedvalueago, remainrate, remainvalue, deprrate, deprvalue, subid, Initflag, clearflag) SELECT :sys_accsetid, cw_assetcard.assetcardid, cw_assetcard.assetcardcode, cw_assetcard.assetcardname, cw_assetcard.spectype, cw_assetcard.assetypeid, cw_assetcard.deptid, cw_assetcard.incrdecrid, cw_assetcard.location, cw_assetcard.usedtypeid, cw_assetcard.deprediateid, cw_assetcard.startdate, cw_assetcard.workload + cw_assetcard.usedall - cw_astbalance.totalwl, //预计使用月份 cw_astbalance.totalwl, //已计月份 cw_assetcard.unit, cw_assetcard.rawvalue, //原值 cw_astbalance.bdprcredit, //累计折旧 cw_assetcard.usedvalueago, cw_assetcard.remainrate, cw_assetcard.remainvalue, case when cw_assetcard.workload + cw_assetcard.usedall - cw_astbalance.totalwl < 0 then 0 else cw_assetcard.deprrate END , //折旧率 case when cw_assetcard.workload + cw_assetcard.usedall - cw_astbalance.totalwl < 0 then 0 else cw_assetcard.deprvalue END ,//折旧额 cw_assetcard.subid, 1, cw_assetcard.clearflag FROM cw_assetcard,cw_astbalance WHERE cw_assetcard.accsetid = cw_astbalance.accsetid AND cw_assetcard.assetcardid = cw_astbalance.assetcardid AND cw_astbalance.yearmon = :ll_yearmon AND cw_astbalance.accsetid = :ll_accsetid; END IF IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','复制帐套固定资产失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF ////////////////////////////////////////////////////////////////////////// DELETE FROM cw_attachast Where accsetid = :sys_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','删除帐套原固定资产附属设备失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF INSERT INTO cw_attachast( accsetid, assetcardid, attachastname, spectype, unit, amount, sumcount, startdate, memo ) SELECT :sys_accsetid, assetcardid, attachastname, spectype, unit, amount, sumcount, startdate, memo FROM cw_attachast Where accsetid = :ll_accsetid; IF sqlca.SQLCode <> 0 THEN MessageBox('系统提示','复制帐套固定资产附属设备失败,原因:'+sqlca.SQLErrText) ROLLBACK; RETURN END IF /////////////////////////////////////////////////////////////////// COMMIT; MessageBox('系统提示','复制成功') THIS.TriggerEvent('retrieve_pageretr') end event event ue_view_cred;IF dw_edit_mode THEN MessageBox('系统提示','编辑状态下此功能不可用!') RETURN END IF Long uc_row,ll_assetcardid,ll_credid uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前固定资产!') RETURN END IF ll_assetcardid = dw_pageretr.object.assetcardid[uc_row] SELECT credid INTO :ll_credid FROM cw_credence WHERE relevantbillid = :ll_assetcardid AND readtype = 200 AND accsetid = :sys_accsetid; IF sqlca.sqlcode <> 0 THEN MessageBox('系统提示','查询当前固定资产对应凭证失败!') RETURN END IF s_edit_index_tran s_tran_open //翻页功能窗口 传递参数使用 s_tran_open.if_retrieve_all = TRUE //是否一次RETRIEVE所有行 s_tran_open.work_mode = 0 //0-单纯编辑模式, 1-选择模式 s_tran_open.arg_pkid = 0 //目标定位PKID (备用) s_tran_open.arg_string_code = '' //查询列部分内容,用于初步筛选 s_tran_open.e_long = ll_credid OpenWithParm(w_credence_edit,s_tran_open) end event public function integer wf_refresh_interface ();//wf_refresh_interface IF dw_edit_mode THEN cb_add_xm.Enabled = TRUE cb_dele_xm.Enabled = TRUE cb_addzy.Enabled = FALSE cb_retrieve.Enabled = FALSE cb_delet.Enabled = FALSE cb_print.Enabled = FALSE cb_showall.Enabled = FALSE cb_auditing.Enabled = FALSE dw_pageretr.RBUTTON_FILTER_USE = FALSE //右键查询功能开关 dw_pageretr.titleclick_sort_use = FALSE //单击标题排序功能开关 cb_edit.Enabled = TRUE cb_add.Enabled = TRUE cb_edit.Text = "放弃&E" cb_add.Text = "保存&S" cb_edit.normalpicname = 'Undo.bmp' cb_add.normalpicname = 'Save.bmp' ELSE cb_add_xm.Enabled = FALSE cb_dele_xm.Enabled = FALSE cb_addzy.Enabled = TRUE cb_retrieve.Enabled = TRUE cb_delet.Enabled = TRUE cb_print.Enabled = TRUE cb_showall.Enabled = TRUE cb_auditing.Enabled = TRUE cb_add.Enabled = TRUE cb_edit.Enabled = TRUE dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关 dw_pageretr.titleclick_sort_use = TRUE //单击标题排序功能开关 cb_edit.Text = "修改&E" cb_add.Text = "新建&S" cb_edit.normalpicname = 'OPEN.bmp' cb_add.normalpicname = 'new.bmp' IF dw_pageretr.GetRow() <= 0 THEN cb_edit.Enabled = FALSE cb_delet.Enabled = FALSE 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_no_edit ();//wf_no_edit IF dw_edit_mode THEN cb_edit.Enabled = TRUE ELSE cb_edit.Enabled = FALSE 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 function integer wf_del_credence ();//wf_del_credence() long ls_subaccsetid,ls_credid int ls_postflag string arg_msg uo_credence uo_asset_credence uo_asset_credence=create uo_credence if uo_asset_credence.get_asset_credinfo(200,new_assetcardid,ls_subaccsetid,ls_credid,ls_postflag,arg_msg)=0 then messagebox(publ_operator,arg_msg) return 0 end if if uo_asset_credence.del(1,ls_subaccsetid,ls_credid,arg_msg,true)=0 then messagebox(publ_operator,arg_msg) return 0 end if destroy uo_asset_credence return 1 end function public subroutine wf_refresh_depr ();Long li_row Decimal ls_rawvalue,ls_remainvalue,ls_remainrate,ls_usedvalue Long ls_workload li_row = dw_uc.GetRow() IF li_row <= 0 THEN RETURN dw_uc.AcceptText() dw_uc.SetRedraw(FALSE) IF dw_uc.GetColumnName ( ) = 'remainrate' OR dw_uc.GetColumnName ( ) = 'rawvalue' OR dw_uc.GetColumnName ( ) = 'usedvalue' THEN ls_remainrate = dw_uc.Object.remainrate[li_row] ls_rawvalue = dw_uc.Object.rawvalue[li_row] ls_workload = dw_uc.Object.workload[li_row] ls_usedvalue = dw_uc.Object.usedvalue[li_row] ls_remainvalue = Round(ls_rawvalue * ls_remainrate/100,2) dw_uc.Object.remainvalue[li_row] = ls_remainvalue IF ls_workload <> 0 THEN CHOOSE CASE dw_uc.Object.deprediateid[li_row] CASE 3,0 dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 CASE 1 IF ls_workload > 0 THEN IF ls_rawvalue = 0 THEN dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 ELSE dw_uc.Object.deprrate[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue) * 100/(ls_rawvalue * ls_workload) dw_uc.Object.deprvalue[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue)/ls_workload END IF ELSE dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 END IF END CHOOSE END IF ELSEIF dw_uc.GetColumnName ( ) = 'remainvalue' THEN ls_remainvalue = dw_uc.Object.remainvalue[li_row] ls_rawvalue = dw_uc.Object.rawvalue[li_row] ls_workload = dw_uc.Object.workload[li_row] ls_usedvalue = dw_uc.Object.usedvalue[li_row] IF ls_rawvalue = 0 THEN dw_uc.Object.remainrate[li_row] = 0 ELSE dw_uc.Object.remainrate[li_row] = Round(ls_remainvalue * 100/ls_rawvalue,4) END IF IF ls_workload <> 0 THEN CHOOSE CASE dw_uc.Object.deprediateid[li_row] CASE 3,0 dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 CASE 1 IF ls_workload > 0 THEN IF ls_rawvalue = 0 THEN dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 ELSE dw_uc.Object.deprrate[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue) * 100/(ls_rawvalue * ls_workload) dw_uc.Object.deprvalue[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue)/ls_workload END IF ELSE dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 END IF END CHOOSE END IF ELSEIF dw_uc.GetColumnName() = 'workload' THEN ls_remainvalue = dw_uc.Object.remainvalue[li_row] ls_rawvalue = dw_uc.Object.rawvalue[li_row] ls_workload = dw_uc.Object.workload[li_row] ls_usedvalue = dw_uc.Object.usedvalue[li_row] IF ls_workload <> 0 THEN CHOOSE CASE dw_uc.Object.deprediateid[li_row] CASE 3,0 dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 CASE 1 IF ls_workload > 0 THEN IF ls_rawvalue = 0 THEN dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 ELSE dw_uc.Object.deprrate[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue) * 100/(ls_rawvalue * ls_workload) dw_uc.Object.deprvalue[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue)/ls_workload END IF ELSE dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 END IF END CHOOSE END IF ELSEIF dw_uc.GetColumnName() = 'deprediateid' THEN ls_remainvalue = dw_uc.Object.remainvalue[li_row] ls_rawvalue = dw_uc.Object.rawvalue[li_row] ls_workload = dw_uc.Object.workload[li_row] ls_usedvalue = dw_uc.Object.usedvalue[li_row] IF ls_rawvalue = 0 THEN dw_uc.Object.remainrate[li_row] = 0 ELSE dw_uc.Object.remainrate[li_row] = Round(ls_remainvalue * 100/ls_rawvalue,4) END IF IF ls_workload <> 0 THEN CHOOSE CASE dw_uc.Object.deprediateid[li_row] CASE 3,0 dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 CASE 1 IF ls_workload > 0 THEN IF ls_rawvalue = 0 THEN dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 ELSE dw_uc.Object.deprrate[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue) * 100/(ls_rawvalue * ls_workload) dw_uc.Object.deprvalue[li_row] = (ls_rawvalue - ls_usedvalue - ls_remainvalue)/ls_workload END IF ELSE dw_uc.Object.deprrate[li_row] = 0 dw_uc.Object.deprvalue[li_row] = 0 END IF END CHOOSE END IF END IF dw_uc.SetRedraw(TRUE) end subroutine public function integer wf_refresh_curuc (long arg_assetcardid);//wf_refresh_curuc IF arg_assetcardid <= 0 OR IsNull(arg_assetcardid) THEN RETURN 0 Long uc_row Int initflag Long ll_credid String ls_assetcardcode String ls_assetcardname Long ll_assetypeid String ls_spectype Long ll_deptid Long ll_incrdecrid String ls_subid String ls_location String ls_dscrp String ls_othersubid uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN RETURN 0 SELECT cw_assetcard.initflag , cw_assetcard.credid, cw_assetcard.assetcardcode, cw_assetcard.assetcardname, cw_assetcard.assetypeid, cw_assetcard.spectype, cw_assetcard.deptid, cw_assetcard.incrdecrid, cw_assetcard.subid, cw_assetcard.location, cw_assetcard.dscrp, cw_assetcard.othersubid INTO :initflag, :ll_credid, :ls_assetcardcode, :ls_assetcardname, :ll_assetypeid, :ls_spectype, :ll_deptid, :ll_incrdecrid, :ls_subid, :ls_location, :ls_dscrp, :ls_othersubid FROM cw_assetcard WHERE accsetid = :sys_accsetid AND assetcardid = :arg_assetcardid; IF sqlca.SQLCode <> 0 THEN MessageBox(publ_operator,'查询固定资产失败') RETURN 0 END IF dw_uc.Object.assetcardid[uc_row] = arg_assetcardid dw_uc.Object.credid[uc_row] = ll_credid dw_uc.Object.initflag[uc_row] = initflag dw_uc.Object.assetcardcode[uc_row] = ls_assetcardcode dw_uc.Object.assetcardname[uc_row] = ls_assetcardname dw_uc.Object.assetypeid[uc_row] = ll_assetypeid dw_uc.Object.spectype[uc_row] = ls_spectype dw_uc.Object.deptid[uc_row] = ll_deptid dw_uc.Object.incrdecrid[uc_row] = ll_incrdecrid dw_uc.Object.subid[uc_row] = ls_subid dw_uc.Object.location[uc_row] = ls_location dw_uc.Object.dscrp[uc_row] = ls_dscrp dw_uc.Object.othersubid[uc_row] = ls_othersubid dw_uc.ResetUpdate() dw_uc.SetRedraw(TRUE) RETURN 1 end function on w_assetdef_edit.create int iCurrent call super::create this.cb_print=create cb_print this.cb_retrieve=create cb_retrieve this.cb_addzy=create cb_addzy this.cb_delet=create cb_delet this.cb_edit=create cb_edit this.cb_add=create cb_add this.dw_uc=create dw_uc this.cb_add_xm=create cb_add_xm this.cb_dele_xm=create cb_dele_xm this.cb_showall=create cb_showall this.cb_auditing=create cb_auditing this.dw_child=create dw_child this.cb_set_dft=create cb_set_dft this.st_dft=create st_dft this.ddlb_1=create ddlb_1 this.st_2=create st_2 this.cb_credence=create cb_credence this.ln_1=create ln_1 this.ln_2=create ln_2 this.ln_3=create ln_3 this.ln_4=create ln_4 this.r_bar=create r_bar iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_print this.Control[iCurrent+2]=this.cb_retrieve this.Control[iCurrent+3]=this.cb_addzy this.Control[iCurrent+4]=this.cb_delet this.Control[iCurrent+5]=this.cb_edit this.Control[iCurrent+6]=this.cb_add this.Control[iCurrent+7]=this.dw_uc this.Control[iCurrent+8]=this.cb_add_xm this.Control[iCurrent+9]=this.cb_dele_xm this.Control[iCurrent+10]=this.cb_showall this.Control[iCurrent+11]=this.cb_auditing this.Control[iCurrent+12]=this.dw_child this.Control[iCurrent+13]=this.cb_set_dft this.Control[iCurrent+14]=this.st_dft this.Control[iCurrent+15]=this.ddlb_1 this.Control[iCurrent+16]=this.st_2 this.Control[iCurrent+17]=this.cb_credence this.Control[iCurrent+18]=this.ln_1 this.Control[iCurrent+19]=this.ln_2 this.Control[iCurrent+20]=this.ln_3 this.Control[iCurrent+21]=this.ln_4 this.Control[iCurrent+22]=this.r_bar end on on w_assetdef_edit.destroy call super::destroy destroy(this.cb_print) destroy(this.cb_retrieve) destroy(this.cb_addzy) destroy(this.cb_delet) destroy(this.cb_edit) destroy(this.cb_add) destroy(this.dw_uc) destroy(this.cb_add_xm) destroy(this.cb_dele_xm) destroy(this.cb_showall) destroy(this.cb_auditing) destroy(this.dw_child) destroy(this.cb_set_dft) destroy(this.st_dft) destroy(this.ddlb_1) destroy(this.st_2) destroy(this.cb_credence) destroy(this.ln_1) destroy(this.ln_2) destroy(this.ln_3) destroy(this.ln_4) destroy(this.r_bar) 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!,2 ) = 2 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!,2 ) = 2 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(KeyF4!) THEN if cb_add.enabled then cb_add.TRIGGEREVENT(CLICKED!) ELSEIF KeyDown(KeyF5!) THEN if cb_edit.enabled then cb_edit.TRIGGEREVENT(CLICKED!) 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 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 uc_column_int = 23 //uc dw前22列可以编辑 child_column_int = 9 //子dw前9列可以编辑 uo_asset_in = CREATE uo_asset uo_cred = CREATE uo_credence end event event ue_before_open;dw_child.SetTransObject(sqlca) dw_uc.SetTransObject(sqlca) dw_pageretr.SetTransObject(sqlca) //1.类别 datawindowchild childdw_assetypeid,childdw_assetypeid_uc dw_pageretr.GetChild("assetypeid",childdw_assetypeid) dw_uc.GetChild("assetypeid",childdw_assetypeid_uc) childdw_assetypeid.SetTransObject (sqlca) childdw_assetypeid_uc.SetTransObject (sqlca) childdw_assetypeid.Retrieve(sys_accsetid) IF childdw_assetypeid.RowCount() <= 0 THEN childdw_assetypeid.InsertRow(0) END IF childdw_assetypeid.ShareData(childdw_assetypeid_uc) //2.部门 datawindowchild childdw_deptid,childdw_deptid_uc dw_pageretr.GetChild("deptid",childdw_deptid) dw_uc.GetChild("deptid",childdw_deptid_uc) childdw_deptid.SetTransObject (sqlca) childdw_deptid_uc.SetTransObject (sqlca) IF sys_system_mode = -1 THEN childdw_deptid.Retrieve(sys_accsetid) ELSE childdw_deptid.Retrieve(-1) END IF IF childdw_deptid.RowCount() <= 0 THEN childdw_deptid.InsertRow(0) END IF childdw_deptid.ShareData(childdw_deptid_uc) //3.增减方式 datawindowchild childdw_incrdecrid,childdw_incrdecrid_uc dw_pageretr.GetChild("incrdecrid",childdw_incrdecrid) dw_uc.GetChild("incrdecrid",childdw_incrdecrid_uc) childdw_incrdecrid.SetTransObject (sqlca) childdw_incrdecrid_uc.SetTransObject (sqlca) childdw_incrdecrid.Retrieve(sys_accsetid) IF childdw_incrdecrid.RowCount() <= 0 THEN childdw_incrdecrid.InsertRow(0) END IF childdw_incrdecrid.ShareData(childdw_incrdecrid_uc) //4.使用状况 datawindowchild childdw_usedtypeid,childdw_usedtypeid_uc dw_pageretr.GetChild("usedtypeid",childdw_usedtypeid) dw_uc.GetChild("usedtypeid",childdw_usedtypeid_uc) childdw_usedtypeid.SetTransObject (sqlca) childdw_usedtypeid_uc.SetTransObject (sqlca) childdw_usedtypeid.Retrieve(sys_accsetid) IF childdw_usedtypeid.RowCount() <= 0 THEN childdw_usedtypeid.InsertRow(0) END IF childdw_usedtypeid.ShareData(childdw_usedtypeid_uc) // assetypeid // deptid // incrdecrid // usedtypeid end event event retrieve_pageretr;Boolean cb_nextpage_enabled,cb_retrieveall_enabled Boolean cb_func_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 dw_pageretr.ShareDataOff() dw_pageretr.Retrieve(sys_accsetid,cur_clearflag) IF dw_pageretr.RowCount() > 0 AND dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1) dw_pageretr.ShareData(dw_uc) THIS.TriggerEvent('retreve_childdw') cb_nextpage.Enabled = cb_nextpage_enabled cb_retrieveall.Enabled = cb_retrieveall_enabled cb_func.Enabled = cb_func_enabled end event event key;this.triggerevent('user_key') end event event close;destroy uo_asset_in destroy uo_cred 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+'( assetcardcode LIKE "%'+trim(sle_usual_query.text)+'%" )' ELSE obj_expr=obj_expr+'( assetcardcode 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="(cw_assetcard.assetcardcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="(cw_assetcard.assetcardcode 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(1) //注意必须有此句 end event event ue_filter;OPENWITHPARM(w_filter_query,dw_uc) STRING LS_EXPR LS_EXPR=Message.StringParm if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return dw_uc.setfilter(LS_EXPR) dw_uc.SetRedraw (false) dw_uc.filter() dw_pageretr.triggerevent('ue_after_filter') dw_uc.SetRedraw (true) end event event ue_sort;OPENwithparm(w_sortrow,dw_uc) STRING LS_EXPR LS_EXPR=Message.StringParm IF ISNULL(LS_EXPR) THEN LS_EXPR=' ' if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return dw_uc.setsort(LS_EXPR) dw_uc.SetRedraw (false) dw_uc.sort() dw_uc.SetRedraw (true) end event event resize;call super::resize;ln_3.EndX = This.Width ln_4.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 = 3600 w_height = 2300 IF newwidth < w_width THEN This.Width = w_width IF newheight < w_height THEN This.Height = w_height dw_pageretr.Width = This.Width - dw_pageretr.X - 50 dw_pageretr.Height = This.Height - dw_pageretr.Y - 150 dw_child.Height = This.Height - dw_child.Y - 150 end event type cb_func from w_publ_pageretr`cb_func within w_assetdef_edit integer x = 160 integer width = 160 integer height = 164 end type type cb_exit from w_publ_pageretr`cb_exit within w_assetdef_edit integer x = 2327 integer y = 0 integer width = 160 integer height = 164 integer taborder = 280 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_assetdef_edit integer x = 215 integer y = 180 integer width = 462 boolean bringtotop = true end type type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_assetdef_edit boolean visible = false integer x = 3131 integer y = 172 integer width = 146 integer taborder = 240 end type type em_pagerowno from w_publ_pageretr`em_pagerowno within w_assetdef_edit boolean visible = false integer x = 2647 integer y = 188 integer taborder = 220 boolean bringtotop = true end type type dw_pageretr from w_publ_pageretr`dw_pageretr within w_assetdef_edit integer x = 2071 integer y = 288 integer width = 1477 integer height = 1860 boolean bringtotop = true string title = "固定资产摘要内容" string dataobject = "dw_assetdef_index" end type event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;DW_UC.SETROW(currentrow) DW_UC.ScrollToRow (currentrow) if not dw_edit_mode then parent.triggerevent('retrieve_childdw') end event event dw_pageretr::ue_after_filter;IF NOT dw_edit_mode THEN PARENT.TriggerEvent('retrieve_childdw') end event type st_1 from w_publ_pageretr`st_1 within w_assetdef_edit integer y = 200 integer width = 215 string text = "编号含:" alignment alignment = center! end type type cb_nextpage from w_publ_pageretr`cb_nextpage within w_assetdef_edit boolean visible = false integer x = 3291 integer y = 176 integer width = 146 integer taborder = 270 end type type cb_print from uo_imflatbutton within w_assetdef_edit integer x = 2053 integer width = 274 integer height = 164 integer taborder = 190 string text = "打印清单" string normalpicname = "print.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;open(w_rp_assetcard) end event type cb_retrieve from uo_imflatbutton within w_assetdef_edit integer width = 160 integer height = 164 integer taborder = 160 string text = "刷新" string normalpicname = "refresh.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;parent.triggerevent('retrieve_pageretr') end event type cb_addzy from uo_imflatbutton within w_assetdef_edit boolean visible = false integer x = 3122 integer y = 28 integer width = 256 integer height = 112 integer taborder = 210 boolean bringtotop = true string text = "补充备注" end type event clicked;//if dw_edit_mode then return // //string arg_msg='',LS_STR //long uc_row //s_inputbox S_SREU // //uc_row=dw_uc.getrow() //if uc_row<=0 then // messagebox('系统提示','请选定当前目标单据!') // return //end if //S_SREU.TITLE='请输入要补充到备注的内容' //S_SREU.OLD_TEXT='' //openwithparm(w_inputbox,S_SREU) //LS_STR=Message.StringParm //if trim(LS_STR)='' or isnull(LS_STR) then return // //if uo_ware.getinfo(dw_uc.object.inwareid[uc_row],arg_msg)=0 then // messagebox('Error!',arg_msg) // return //end if //if uo_ware.add_dscrp(LS_STR,arg_msg)=0 then // messagebox('Error!',arg_msg) // return //else // messagebox(publ_operator,'添加备注操作成功!') // wf_refresh_curuc(dw_uc.object.inwareid[uc_row]) //end if // end event type cb_delet from uo_imflatbutton within w_assetdef_edit integer x = 873 integer width = 160 integer height = 164 integer taborder = 200 string text = "删除" string normalpicname = "delete.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF Not (f_power_ind(1940,sys_msg_pow) or f_power_ind(1961,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF IF dw_edit_mode THEN RETURN IF MessageBox ("IF","是否确定要删除当前固定资产吗?",Question!,YesNo! ) = 2 THEN RETURN String arg_msg = '' Long uc_row,cnt Long ls_assetcardid Long ls_credid Int ls_postflag uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前固定资产!') RETURN END IF ls_assetcardid = dw_uc.Object.assetcardid[uc_row] ////检查对应凭证是否已登帐 //IF dw_uc.Object.initflag[uc_row] = 0 THEN // IF uo_cred.get_asset_credinfo(200,ls_assetcardid,0,ls_credid,ls_postflag,arg_msg) = 0 THEN // IF sys_power_issuper AND sys_option_super_del_asset = 1 THEN // GOTO del_ // END IF // // MessageBox(publ_operator,arg_msg) // RETURN // END IF // // // IF ls_postflag = 1 THEN // MessageBox(publ_operator,'该固定资产对应的记帐凭证已登帐,不能被删除!') // RETURN // END IF // // //删除旧凭证 // IF uo_cred.del(1,0,ls_credid,arg_msg,FALSE) = 0 THEN // MessageBox(publ_operator,arg_msg) // RETURN // END IF //END IF //del_: //检查是否已计提折旧 SELECT count(*) INTO :cnt FROM cw_astbalance WHERE accsetid = :sys_accsetid AND assetcardid = :ls_assetcardid and yearmon <> :sys_curyearmon; IF sqlca.SQLCode <> 0 THEN MessageBox(publ_operator,'查询固定资产失败,不能被删除!') RETURN END IF IF cnt > 0 THEN MessageBox(publ_operator,'该固定资产已计提折旧,不能被删除!') RETURN END IF /////////////// IF uo_asset_in.del(dw_uc.Object.assetcardid[uc_row],arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE MessageBox(publ_operator,'删除固定资产'+String(dw_uc.Object.assetcardcode[uc_row])+'成功!') dw_uc.DeleteRow(uc_row) dw_uc.PostEvent(RowFocusChanged!) END IF end event type cb_edit from uo_imflatbutton within w_assetdef_edit integer x = 681 integer width = 192 integer height = 164 integer taborder = 60 string text = "修改&E" string normalpicname = "open.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF Not (f_power_ind(1940,sys_msg_pow) or f_power_ind(1961,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String arg_msg = '' Long uc_row Boolean if_postedit = FALSE Long ls_credid Int ls_postflag uc_row = dw_pageretr.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标固定资产!') RETURN END IF IF NOT dw_edit_mode THEN IF sys_accsetbegin THEN Long ll_assetcardid dw_uc.AcceptText() ll_assetcardid = dw_uc.Object.assetcardid[uc_row] IF NOT IsValid(w_assetdef_mod) THEN OpenWithParm(w_assetdef_mod,ll_assetcardid) wf_refresh_curuc(ll_assetcardid) RETURN END IF IF dw_pageretr.Object.initflag[uc_row] = 1 THEN if_mod_init = TRUE ELSE // IF uo_cred.get_asset_credinfo(200,Long(dw_uc.Object.assetcardid[uc_row]),0,ls_credid,ls_postflag,arg_msg) = 0 THEN // MessageBox(publ_operator,arg_msg) // RETURN // END IF // // old_credid = ls_credid // // IF ls_postflag = 1 THEN // IF MessageBox ("IF","该固定资产对应的记帐凭证已登帐,或已计提折旧,有关的折旧要素将不能修改,是否继续?",Question!,YesNo! ) = 2 THEN // RETURN // ELSE // if_postedit = TRUE // END IF // END IF END IF END IF IF uo_asset_in.updatebegin(dw_uc.Object.assetcardid[uc_row],arg_msg) = 0 THEN MessageBox('Error!',arg_msg) RETURN END IF old_rawvalue = dw_uc.GetItemDecimal ( uc_row, 'rawvalue') old_usedvalue = dw_uc.GetItemDecimal ( uc_row, 'usedvalue') ELSE IF MessageBox ("IF","是否确定要放弃保存当前单据?",Question!,YesNo! ) = 2 THEN RETURN // //如果放弃删除凭证 // IF sys_accsetbegin AND new_assetcardid <> 0 THEN // IF uo_cred.del(1,0,new_credid,arg_msg,TRUE) = 0 THEN // MessageBox(publ_operator,'不能放弃保存,原因:'+arg_msg) // RETURN // END IF // END IF // // END IF dw_edit_mode = NOT dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN cur_editfocus = 2 dw_uc.SetFocus() ELSE PARENT.TriggerEvent('retrieve_pageretr') cur_editfocus = 0 new_assetcardid = 0 old_credid = 0 new_credid = 0 if_credence = FALSE if_mod_init = FALSE END IF end event type cb_add from uo_imflatbutton within w_assetdef_edit integer x = 489 integer width = 192 integer height = 164 integer taborder = 50 string text = "新建&S" string normalpicname = "new.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF Not (f_power_ind(1940,sys_msg_pow) or f_power_ind(1961,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String arg_msg = '' Long uc_row,pagerert_row Long relid_pageretr,reld_uc Long i IF dw_edit_mode THEN uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标固定资产!') RETURN END IF dw_uc.AcceptText() dw_child.AcceptText() IF Trim(dw_uc.Object.assetcardcode[uc_row]) = '' THEN MessageBox('系统提示','请输入固定资产编号!') dw_uc.SetFocus() dw_uc.SetColumn('assetcardcode') RETURN END IF IF Trim(dw_uc.Object.assetcardname[uc_row]) = '' THEN MessageBox('系统提示','请输入固定资产名称!') dw_uc.SetFocus() dw_uc.SetColumn('assetcardname') RETURN END IF IF Trim(dw_uc.Object.assetsubid[uc_row]) = '' THEN MessageBox('系统提示','请输入固定资产科目!') dw_uc.SetFocus() dw_uc.SetColumn('assetsubid') RETURN END IF IF Trim(dw_uc.Object.deprsubid[uc_row]) = '' THEN MessageBox('系统提示','请输入累计折旧科目!') dw_uc.SetFocus() dw_uc.SetColumn('deprsubid') RETURN END IF uo_asset_in.assetcardid = dw_uc.Object.assetcardid[uc_row] uo_asset_in.assetcardcode = Trim(dw_uc.Object.assetcardcode[uc_row]) uo_asset_in.assetcardname = Trim(dw_uc.Object.assetcardname[uc_row]) uo_asset_in.spectype = dw_uc.Object.spectype[uc_row] uo_asset_in.assetypeid = dw_uc.Object.assetypeid[uc_row] uo_asset_in.deptid = dw_uc.Object.deptid[uc_row] uo_asset_in.incrdecrid = dw_uc.Object.incrdecrid[uc_row] uo_asset_in.Location = dw_uc.Object.Location[uc_row] uo_asset_in.usedtypeid = dw_uc.Object.usedtypeid[uc_row] uo_asset_in.deprediateid = dw_uc.Object.deprediateid[uc_row] uo_asset_in.startdate = dw_uc.Object.startdate[uc_row] uo_asset_in.workload = dw_uc.Object.workload[uc_row] uo_asset_in.usedall = dw_uc.Object.usedall[uc_row] uo_asset_in.unit = dw_uc.Object.unit[uc_row] uo_asset_in.rawvalue = dw_uc.Object.rawvalue[uc_row] uo_asset_in.usedvalue = dw_uc.Object.usedvalue[uc_row] uo_asset_in.remainrate = dw_uc.Object.remainrate[uc_row] uo_asset_in.remainvalue = dw_uc.Object.remainvalue[uc_row] uo_asset_in.deprrate = dw_uc.Object.deprrate[uc_row] uo_asset_in.deprvalue = dw_uc.Object.deprvalue[uc_row] uo_asset_in.subid = Trim(dw_uc.Object.subid[uc_row]) uo_asset_in.dscrp = Trim(dw_uc.Object.dscrp[uc_row]) uo_asset_in.othersubid = Trim(dw_uc.Object.othersubid[uc_row]) uo_asset_in.assetsubid = Trim(dw_uc.Object.assetsubid[uc_row]) uo_asset_in.deprsubid = Trim(dw_uc.Object.deprsubid[uc_row]) dw_uc.Object.credid[uc_row] = new_credid dw_uc.AcceptText() uo_asset_in.credid = dw_uc.Object.credid[uc_row] FOR i = 1 To dw_child.RowCount() IF Trim(dw_child.Object.attachastname[i]) <> '' THEN IF uo_asset_in.acceptmx(dw_child.Object.attachastname[i],& dw_child.Object.spectype[i],& dw_child.Object.unit[i],& dw_child.Object.amount[i],& dw_child.Object.sumcount[i],& dw_child.Object.startdate[i],& dw_child.Object.memo[i],& arg_msg) = 0 THEN MessageBox('error!',arg_msg) RETURN END IF END IF NEXT //是否要建立记帐凭证,已启用帐套不建凭证 IF sys_accsetbegin THEN //已启用帐套 uo_asset_in.initflag = 0 //不是初始化固定资产 IF uo_asset_in.Save(new_assetcardid,arg_msg,True) = 0 THEN MessageBox('error!',arg_msg) RETURN END IF // IF cur_editfocus = 1 THEN //新建 // IF NOT if_credence THEN // MessageBox (publ_operator,"相应的记帐凭证还没有完成,请先单击'记帐凭证'将其完成") // RETURN // END IF // // uo_asset_in.initflag = 0 //不是初始化固定资产 // IF uo_asset_in.Save(new_assetcardid,arg_msg,TRUE) = 0 THEN // MessageBox('error!',arg_msg) // RETURN // END IF // ELSEIF cur_editfocus = 2 THEN //修改 // IF NOT if_credence AND (old_rawvalue <> dw_uc.Object.rawvalue[uc_row] OR old_usedvalue <> dw_uc.Object.usedvalue[uc_row]) THEN // MessageBox (publ_operator,"资料已修改,相应的记帐凭证还没有完成,请先单击'记帐凭证'将其完成") // RETURN // END IF // // //删除旧凭证 // IF NOT if_mod_init THEN // IF new_credid > 0 THEN // IF uo_cred.del(1,0,old_credid,arg_msg,FALSE) = 0 THEN // MessageBox(publ_operator,arg_msg) // RETURN // END IF // END IF // // IF uo_asset_in.Save(new_assetcardid,arg_msg,TRUE) = 0 THEN // MessageBox(publ_operator,arg_msg) // RETURN // END IF // ELSE // IF uo_asset_in.Save(dw_uc.Object.assetcardid[uc_row],arg_msg,TRUE) = 0 THEN // MessageBox(publ_operator,arg_msg) // RETURN // END IF // END IF // END IF MessageBox(publ_operator,'保存操作成功!') ELSE //未启用帐套可以不建相应凭证 uo_asset_in.initflag = 1 //初始化固定资产 new_assetcardid = 0 IF uo_asset_in.Save(new_assetcardid,arg_msg,True) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF MessageBox(publ_operator,'保存操作成功!') END IF dw_pageretr.SelectRow(0,False) dw_pageretr.SelectRow(uc_row,True) wf_refresh_curuc(uo_asset_in.assetcardid) //刷新uc ELSE IF uo_asset_in.newbegin() = 0 THEN MessageBox('error!','error!') RETURN END IF END IF IF Not dw_edit_mode THEN Int li_row, li_cur_row li_cur_row = dw_pageretr.GetRow() li_row = dw_pageretr.InsertRow (li_cur_row) dw_pageretr.ScrollToRow (li_row) dw_child.Reset() dw_uc.SetFocus() END IF dw_edit_mode = Not dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN cur_editfocus = 1 ELSE cur_editfocus = 0 if_mod_init = False if_credence = False new_assetcardid = 0 new_credid = 0 old_credid = 0 END IF IF dw_edit_mode THEN //加dft IF if_dft THEN dw_uc.SetRedraw(False) dw_uc.Object.assetcardcode[li_row] = s_dft.assetcardcode dw_uc.Object.assetcardname[li_row] = s_dft.assetcardname dw_uc.Object.assetypeid[li_row] = s_dft.assetypeid dw_uc.Object.spectype[li_row] = s_dft.spectype dw_uc.Object.deptid[li_row] = s_dft.deptid dw_uc.Object.incrdecrid[li_row] = s_dft.incrdecrid dw_uc.Object.usedtypeid[li_row] = s_dft.usedtypeid dw_uc.Object.rawvalue[li_row] = s_dft.rawvalue dw_uc.Object.usedvalue[li_row] = s_dft.usedvalue dw_uc.Object.startdate[li_row] = s_dft.startdate dw_uc.Object.remainrate[li_row] = s_dft.remainrate dw_uc.Object.remainvalue[li_row] = s_dft.remainvalue dw_uc.Object.deprediateid[li_row] = s_dft.deprediateid dw_uc.Object.workload[li_row] = s_dft.workload dw_uc.Object.usedall[li_row] = s_dft.usedall dw_uc.Object.unit[li_row] = s_dft.unit dw_uc.Object.subid[li_row] = s_dft.subid dw_uc.Object.Location[li_row] = s_dft.Location dw_uc.Object.dscrp[li_row] = s_dft.dscrp dw_uc.Object.othersubid[li_row] = s_dft.othersubid dw_uc.Object.assetsubid[li_row] = s_dft.assetsubid dw_uc.Object.deprsubid[li_row] = s_dft.deprsubid dw_uc.Object.deprrate[li_row] = s_dft.deprrate dw_uc.Object.deprvalue[li_row] = s_dft.deprvalue dw_uc.SetColumn('assetcardcode') dw_uc.SetRedraw(True) END IF // END IF //string assetcardcode //固定资产编号 //string assetcardname//固定资产名称 //string spectype//规格型号 //long assetypeid//固定资产类别 //long deptid//所属部门 //long incrdecrid//增减方式 //string location//存放位置 //long usedtypeid//使用状况 //long deprediateid//折旧方法 //datetime startdate//入帐日期 //long workload//预计使用月份 //long usedall//已计提月份 //string unit//工作量单位 //decimal rawvalue//入帐原值 //decimal usedvalue//累计折旧 //decimal remainrate//预计残值率 //decimal remainvalue//预计剩残值 //decimal deprrate//月折旧率 //decimal deprvalue//月折旧额 //string subid //对应折旧科目 end event type dw_uc from datawindow within w_assetdef_edit event dwnkey pbm_dwnkey integer y = 288 integer width = 2071 integer height = 1384 integer taborder = 90 string dataobject = "dw_assetdef_edit" boolean border = false boolean livescroll = true end type event dwnkey;parent.triggerevent('user_key') if key = KeyDownArrow! then return 1 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 itemchanged;if not dw_edit_mode then return wf_refresh_depr() //deprrate //deprvalue end event event buttonclicked;IF NOT dw_edit_mode THEN RETURN Long uc_row s_subject s_rt_subject uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标固定资产!') RETURN END IF OPEN(w_subjectdef_edit) s_rt_subject = Message.PowerObjectParm IF s_rt_subject.subid = '' THEN RETURN IF dwo.Name = 'btn_subid' THEN dw_uc.SetRedraw(FALSE) dw_uc.Object.subid[uc_row] = s_rt_subject.subid dw_uc.SetRedraw(TRUE) dw_uc.SetColumn('location') ELSEIF dwo.Name = 'btn_othersubid' THEN dw_uc.SetRedraw(FALSE) dw_uc.Object.othersubid[uc_row] = s_rt_subject.subid dw_uc.SetRedraw(TRUE) dw_uc.SetColumn('location') ELSEIF dwo.Name = 'btn_assetsubid' THEN dw_uc.SetRedraw(FALSE) dw_uc.Object.assetsubid[uc_row] = s_rt_subject.subid dw_uc.SetRedraw(TRUE) dw_uc.SetColumn('location') ELSEIF dwo.Name = 'btn_deprsubid' THEN dw_uc.SetRedraw(FALSE) dw_uc.Object.deprsubid[uc_row] = s_rt_subject.subid dw_uc.SetRedraw(TRUE) dw_uc.SetColumn('location') END IF end event type cb_add_xm from uo_imflatbutton within w_assetdef_edit integer x = 1033 integer width = 407 integer height = 164 integer taborder = 70 boolean enabled = false string text = "增附属设备F8" string normalpicname = "mx.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;int li_row_1, li_cur_row_1 //li_cur_row_1 = dw_child.GetRow() //li_row_1 = dw_child.InsertRow (li_cur_row_1) li_row_1 = dw_child.InsertRow (0) dw_child.selectrow(0,false) dw_child.ScrollToRow (li_row_1) dw_child.selectrow(li_row_1,true) dw_child.setcolumn("attachastname") //parent.triggerevent('ue_f8') dw_child.SetFocus() end event type cb_dele_xm from uo_imflatbutton within w_assetdef_edit integer x = 1440 integer width = 334 integer height = 164 integer taborder = 80 boolean enabled = false string text = "删附属设备" string normalpicname = "mx1.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF MessageBox ("IF","是否确定要删除当前细目记录?",Question!,YesNo! ) = 2 THEN RETURN IF dw_child.GETROW()=0 THEN MESSAGEBOX('NO','请选择删除的行对象!') RETURN END IF dw_child.DeleteRow (0) dw_child.TriggerEvent (rowfocuschanged!) end event type cb_showall from uo_imflatbutton within w_assetdef_edit integer x = 320 integer width = 160 integer height = 164 integer taborder = 180 string text = "所有" string normalpicname = "p2.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;dw_uc.setfilter('') dw_uc.SetRedraw (false) dw_uc.filter() dw_uc.SetRedraw (true) end event type cb_auditing from uo_imflatbutton within w_assetdef_edit boolean visible = false integer x = 2949 integer y = 28 integer width = 160 integer height = 112 integer taborder = 230 boolean bringtotop = true string text = "审核" end type event clicked;//if dw_edit_mode then return // //string arg_msg='' //long pagerert_row // //pagerert_row=dw_uc.getrow() //if pagerert_row<=0 then // messagebox('系统提示','请选定当前目标单据!') // return //end if //if uo_ware.getinfo(dw_uc.object.inwareid[pagerert_row],arg_msg)=0 then // messagebox('Error!',arg_msg) // return //end if // //if uo_ware.auditing(publ_operator,arg_msg)=0 then // messagebox('Error!',arg_msg) //ELSE // messagebox(publ_operator,'审核成功!') // wf_refresh_curuc(dw_uc.object.inwareid[pagerert_row]) //end if end event type dw_child from u_dw_rbtnfilter within w_assetdef_edit event dwnkey pbm_dwnkey integer y = 1688 integer width = 2071 integer height = 460 integer taborder = 30 boolean bringtotop = true boolean titlebar = true string title = "附属设备" string dataobject = "dw_assetdef_mx" boolean maxbox = true boolean hscrollbar = true boolean vscrollbar = true boolean resizable = true boolean hsplitscroll = true borderstyle borderstyle = stylebox! end type event 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') parent.triggerevent('user_key') if dw_edit_mode then if keydown(Keydownarrow!) Then long li_row if dw_child.getrow()=dw_child.rowcount() then cb_add_xm.triggerevent(clicked!) end if else if (keydown(KeyEnter!) or keydown(KeyTab!)) and not keydown(KeyControl!) then if dw_child.GetColumnName( )='memo' and dw_child.getrow()=dw_child.rowcount() then cb_add_xm.triggerevent(clicked!) return 1 else If key = KeyEnter! Then // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab return 1 end if end if end if end if end if end event event constructor;call super::constructor;titleclick_sort_use=true end event event clicked;call super::clicked;IF row>0 and dw_edit_mode THEN this.setrow(row) end if end event event doubleclicked;if dw_edit_mode and dwo.name='datawindow' then if keydown(KeyControl!) then if cb_dele_xm.enabled then cb_dele_xm.triggerevent(clicked!) else if cb_add_xm.enabled then cb_add_xm.triggerevent(clicked!) end if 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_set_dft from uo_imflatbutton within w_assetdef_edit integer x = 1774 integer width = 279 integer height = 164 integer taborder = 120 boolean bringtotop = true string text = "其它功能" string normalpicname = "other.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr menustr = "Text=设默认值~tEvent=ue_setdft" menustr = menustr + "|" + "Text=取消默认值~tEvent=ue_canceldft" //menustr = menustr + "|" + "Text=-" //menustr = menustr + "|" + "Text=复制帐套固定资产~tEvent=ue_copy" //menustr = menustr + "|" + "Text=-" //menustr = menustr + "|" + "Text=查询凭证~tEvent=ue_view_cred" 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 st_dft from statictext within w_assetdef_edit integer x = 1376 integer y = 200 integer width = 699 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 boolean enabled = false boolean focusrectangle = false end type type ddlb_1 from dropdownlistbox within w_assetdef_edit integer x = 891 integer y = 188 integer width = 462 integer height = 708 integer taborder = 110 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 boolean vscrollbar = true string item[] = {"正常","已清理","全部"} borderstyle borderstyle = stylelowered! end type event selectionchanged;IF Index = 1 THEN cur_clearflag = 0 ELSEIF Index = 2 THEN cur_clearflag = 1 ELSEIF Index = 3 THEN cur_clearflag = -1 END IF PARENT.TriggerEvent('retrieve_pageretr') end event type st_2 from statictext within w_assetdef_edit integer x = 690 integer y = 200 integer width = 215 integer height = 52 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 boolean enabled = false string text = "状 态:" boolean focusrectangle = false end type type cb_credence from uo_imflatbutton within w_assetdef_edit boolean visible = false integer x = 2523 integer width = 279 integer height = 164 integer taborder = 80 boolean bringtotop = true boolean enabled = false string text = "记帐凭证" string normalpicname = "update.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF NOT dw_edit_mode THEN RETURN Long li_row,i_row Decimal ls_rawvalue,ls_usedvalue DateTime null_date datastore credencemx_ds Blob ds_blob Long ls_assetcardid,ll_credid String arg_msg String ls_othersubid,ls_dscrp,ls_assetsubid,ls_deprsubid Long cnt SetNull(null_date) li_row = dw_uc.GetRow() IF li_row <= 0 THEN RETURN dw_uc.AcceptText() IF Trim(dw_uc.Object.assetsubid[li_row]) = '' THEN MessageBox('系统提示','请输入固定资产科目!') RETURN END IF IF Trim(dw_uc.Object.deprsubid[li_row]) = '' THEN MessageBox('系统提示','请输入累计折旧科目!') RETURN END IF ls_assetsubid = Trim(dw_uc.Object.assetsubid[li_row]) ls_deprsubid = Trim(dw_uc.Object.deprsubid[li_row]) ls_rawvalue = dw_uc.Object.rawvalue[li_row] ls_usedvalue = dw_uc.Object.usedvalue[li_row] ls_othersubid = Trim(dw_uc.Object.othersubid[li_row]) ls_dscrp = Trim(dw_uc.Object.dscrp[li_row]) ll_credid = dw_uc.Object.credid[li_row] s_edit_index_tran s_tran_mx //翻页功能窗口 传递参数使用 s_tran_mx.if_retrieve_all = FALSE //是否一次RETRIEVE所有行 s_tran_mx.work_mode = 0 //0-单纯编辑模式, 1-选择模式 s_tran_mx.arg_pkid = 0 //目标定位PKID (备用) s_tran_mx.arg_string_code = String(sys_curyearmon) //查询列部分内容,用于初步筛选 credencemx_ds = CREATE datastore credencemx_ds.DataObject = "ds_credencemx" credencemx_ds.SetTransObject(sqlca) dw_uc.AcceptText() uo_asset_in.assetcardid = dw_uc.Object.assetcardid[li_row] uo_asset_in.assetcardcode = dw_uc.Object.assetcardcode[li_row] uo_asset_in.assetcardname = dw_uc.Object.assetcardname[li_row] uo_asset_in.spectype = dw_uc.Object.spectype[li_row] uo_asset_in.assetypeid = dw_uc.Object.assetypeid[li_row] uo_asset_in.deptid = dw_uc.Object.deptid[li_row] uo_asset_in.incrdecrid = dw_uc.Object.incrdecrid[li_row] uo_asset_in.Location = dw_uc.Object.Location[li_row] uo_asset_in.usedtypeid = dw_uc.Object.usedtypeid[li_row] uo_asset_in.deprediateid = dw_uc.Object.deprediateid[li_row] uo_asset_in.startdate = dw_uc.Object.startdate[li_row] uo_asset_in.workload = dw_uc.Object.workload[li_row] uo_asset_in.usedall = dw_uc.Object.usedall[li_row] uo_asset_in.unit = dw_uc.Object.unit[li_row] uo_asset_in.rawvalue = dw_uc.Object.rawvalue[li_row] uo_asset_in.usedvalue = dw_uc.Object.usedvalue[li_row] uo_asset_in.remainrate = dw_uc.Object.remainrate[li_row] uo_asset_in.remainvalue = dw_uc.Object.remainvalue[li_row] uo_asset_in.deprrate = dw_uc.Object.deprrate[li_row] uo_asset_in.deprvalue = dw_uc.Object.deprvalue[li_row] uo_asset_in.subid = dw_uc.Object.subid[li_row] IF uo_asset_in.check_data(arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF ls_assetcardid = dw_uc.Object.assetcardid[li_row] IF ls_assetcardid = 0 THEN ls_assetcardid = f_sys_scidentity(sys_accsetid,"cw_assetcard","assetcardid",arg_msg,TRUE,id_sqlca) IF ls_assetcardid <= 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF ELSE Long ls_subaccsetid,ls_credid Int ls_postflag ls_subaccsetid = 0 ls_postflag = 0 ls_credid = 0 IF uo_cred.get_asset_credinfo(200,ls_assetcardid,ll_credid,ls_credid,ls_postflag,arg_msg) = 0 THEN MessageBox(publ_operator,arg_msg) RETURN END IF old_credid = ls_credid END IF IF ls_rawvalue > 0 THEN i_row = credencemx_ds.InsertRow(0) String ls_subid_asset ls_subid_asset = ls_assetsubid credencemx_ds.Object.fuluno[i_row] = i_row credencemx_ds.Object.subid[i_row] = ls_subid_asset credencemx_ds.Object.brief[i_row] = '固定资产' credencemx_ds.Object.rate[i_row] = 0.00 credencemx_ds.Object.rawdebit[i_row] = 0.00 credencemx_ds.Object.rawcredit[i_row] = 0.00 credencemx_ds.Object.debit[i_row] = ls_rawvalue credencemx_ds.Object.credit[i_row] = 0.00 credencemx_ds.Object.amount[i_row] = 0.00 credencemx_ds.Object.price[i_row] = 0.00 credencemx_ds.Object.deptid[i_row] = 0 credencemx_ds.Object.itemid[i_row] = 0 credencemx_ds.Object.READONLY[i_row] = 1 credencemx_ds.Object.billdate[i_row] = null_date credencemx_ds.Object.billid[i_row] = 0 credencemx_ds.Object.billno[i_row] = '' credencemx_ds.Object.cropbillid[i_row] = 0 END IF IF ls_usedvalue > 0 THEN i_row = credencemx_ds.InsertRow(0) credencemx_ds.Object.fuluno[i_row] = i_row credencemx_ds.Object.subid[i_row] = ls_deprsubid credencemx_ds.Object.brief[i_row] = '累计折旧' credencemx_ds.Object.rate[i_row] = 0.00 credencemx_ds.Object.rawdebit[i_row] = 0.00 credencemx_ds.Object.rawcredit[i_row] = 0.00 credencemx_ds.Object.debit[i_row] = 0.00 credencemx_ds.Object.credit[i_row] = ls_usedvalue credencemx_ds.Object.amount[i_row] = 0.00 credencemx_ds.Object.price[i_row] = 0.00 credencemx_ds.Object.deptid[i_row] = 0 credencemx_ds.Object.itemid[i_row] = 0 credencemx_ds.Object.READONLY[i_row] = 1 credencemx_ds.Object.billdate[i_row] = null_date credencemx_ds.Object.billid[i_row] = 0 credencemx_ds.Object.billno[i_row] = '' credencemx_ds.Object.cropbillid[i_row] = 0 END IF IF ls_othersubid <> '' THEN SELECT count(*) INTO :cnt FROM cw_subject WHERE accsetid = :sys_accsetid AND subid = :ls_othersubid; IF sqlca.SQLCode <> 0 OR cnt <> 1 THEN MessageBox(publ_operator,'查询对方科目:'+ls_othersubid+'资料失败,可能资料不存在') RETURN END IF i_row = credencemx_ds.InsertRow(0) credencemx_ds.Object.fuluno[i_row] = i_row credencemx_ds.Object.subid[i_row] = ls_othersubid credencemx_ds.Object.brief[i_row] = ls_dscrp credencemx_ds.Object.rate[i_row] = 0.00 credencemx_ds.Object.rawdebit[i_row] = 0.00 credencemx_ds.Object.rawcredit[i_row] = 0.00 credencemx_ds.Object.debit[i_row] = 0.00 credencemx_ds.Object.credit[i_row] = 0.00 credencemx_ds.Object.amount[i_row] = 0.00 credencemx_ds.Object.price[i_row] = 0.00 credencemx_ds.Object.deptid[i_row] = 0 credencemx_ds.Object.itemid[i_row] = 0 credencemx_ds.Object.READONLY[i_row] = 0 credencemx_ds.Object.billdate[i_row] = null_date credencemx_ds.Object.billid[i_row] = 0 credencemx_ds.Object.billno[i_row] = '' credencemx_ds.Object.cropbillid[i_row] = 0 END IF credencemx_ds.GetFullState ( ds_blob ) s_tran_mx.arg_blobds = ds_blob s_tran_mx.c_long = 200 s_tran_mx.d_long = ls_assetcardid s_tran_mx.b_datetime = dw_uc.Object.startdate[li_row] s_tran_mx.f_long = Long(String(dw_uc.Object.startdate[li_row],'yyyymm')) OpenWithParm(w_credence_edit,s_tran_mx) Long rst_credid IF uo_cred.get_asset_credinfo(200,ls_assetcardid,ll_credid,rst_credid,ls_postflag,arg_msg ) = 0 THEN IF NOT Pos(arg_msg,'查询相关凭证失败') > 0 THEN MessageBox(publ_operator,arg_msg) END IF RETURN END IF IF rst_credid = 0 THEN if_credence = FALSE ELSE if_credence = TRUE new_credid = rst_credid new_assetcardid = ls_assetcardid END IF // fuluno // subid // brief // rate // rawdebit // rawcredit // debit // credit // amount // price // deptid // itemid // readonly // billdate // billid // billno // cropbillid end event event constructor;call super::constructor;THIS.Visible = sys_accsetbegin end event type ln_1 from line within w_assetdef_edit long linecolor = 33554432 integer linethickness = 4 integer beginy = 168 integer endx = 1001 integer endy = 168 end type type ln_2 from line within w_assetdef_edit long linecolor = 16777215 integer linethickness = 4 integer beginy = 172 integer endx = 1001 integer endy = 172 end type type ln_3 from line within w_assetdef_edit long linecolor = 33554432 integer linethickness = 4 integer beginy = 280 integer endx = 1001 integer endy = 280 end type type ln_4 from line within w_assetdef_edit long linecolor = 16777215 integer linethickness = 4 integer beginy = 284 integer endx = 1001 integer endy = 284 end type type r_bar from rectangle within w_assetdef_edit long linecolor = 16777215 long fillcolor = 1073741824 integer x = 3497 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_1.beginy - 5 end event