Q5/ws_objects/cw_asset.pbl.src/w_assetdef_mod.srw

$PBExportHeader$w_assetdef_mod.srw
forward
global type w_assetdef_mod from w_publ_base
end type
type dw_uc from datawindow within w_assetdef_mod
end type
type cb_1 from commandbutton within w_assetdef_mod
end type
end forward

global type w_assetdef_mod from w_publ_base
integer width = 2240
integer height = 1140
string title = "固定资产修改"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
dw_uc dw_uc
cb_1 cb_1
end type
global w_assetdef_mod w_assetdef_mod

type variables
string ins_sqlerrtext
end variables

on w_assetdef_mod.create
int iCurrent
call super::create
this.dw_uc=create dw_uc
this.cb_1=create cb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_uc
this.Control[iCurrent+2]=this.cb_1
end on

on w_assetdef_mod.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.cb_1)
end on

event open;call super::open;Long ll_assetcardid

ll_assetcardid = Message.DoubleParm

dw_uc.SetTransObject(sqlca)

//1.类别
datawindowchild childdw_assetypeid_uc
dw_uc.GetChild("assetypeid",childdw_assetypeid_uc)


childdw_assetypeid_uc.SetTransObject (sqlca)
childdw_assetypeid_uc.Retrieve(sys_accsetid)
IF childdw_assetypeid_uc.RowCount() <= 0 THEN
	childdw_assetypeid_uc.InsertRow(0)
END IF

//2.部门
datawindowchild childdw_deptid_uc
dw_uc.GetChild("deptid",childdw_deptid_uc)

childdw_deptid_uc.SetTransObject (sqlca)

IF sys_system_mode = -1 THEN
	childdw_deptid_uc.Retrieve(sys_accsetid)
ELSE
	childdw_deptid_uc.Retrieve(-1)
END IF
IF childdw_deptid_uc.RowCount() <= 0 THEN
	childdw_deptid_uc.InsertRow(0)
END IF

//3.增减方式
datawindowchild childdw_incrdecrid_uc
dw_uc.GetChild("incrdecrid",childdw_incrdecrid_uc)

childdw_incrdecrid_uc.SetTransObject (sqlca)
childdw_incrdecrid_uc.Retrieve(sys_accsetid)
IF childdw_incrdecrid_uc.RowCount() <= 0 THEN
	childdw_incrdecrid_uc.InsertRow(0)
END IF


dw_uc.Retrieve(sys_accsetid,ll_assetcardid)

end event

type cb_func from w_publ_base`cb_func within w_assetdef_mod
boolean visible = false
integer x = 471
integer y = 212
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_assetdef_mod
integer x = 1221
integer y = 904
string text = "取消"
end type

type dw_uc from datawindow within w_assetdef_mod
integer x = 82
integer y = 32
integer width = 2071
integer height = 836
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_assetdef_mod"
boolean border = false
boolean livescroll = true
end type

event dberror;ins_sqlerrtext=sqlerrtext
return 1
end event

event buttonclicked;
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_1 from commandbutton within w_assetdef_mod
integer x = 645
integer y = 904
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long uc_row

uc_row = dw_uc.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标固定资产!')
	RETURN
END IF

dw_uc.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


dw_uc.Object.assetcardcode[uc_row] = Trim(dw_uc.Object.assetcardcode[uc_row])
dw_uc.Object.assetcardname[uc_row]  = Trim(dw_uc.Object.assetcardname[uc_row])
dw_uc.Object.Location[uc_row] = Trim(dw_uc.Object.Location[uc_row])
dw_uc.Object.subid[uc_row]  = Trim(dw_uc.Object.subid[uc_row])
dw_uc.Object.dscrp[uc_row]  = Trim(dw_uc.Object.dscrp[uc_row])
dw_uc.Object.othersubid[uc_row]  = Trim(dw_uc.Object.othersubid[uc_row])
dw_uc.Object.assetsubid[uc_row]  = Trim(dw_uc.Object.assetsubid[uc_row])
dw_uc.Object.deprsubid[uc_row]  = Trim(dw_uc.Object.deprsubid[uc_row])


String ls_errmsg
IF dw_uc.UPDATE() = -1 THEN
	IF Pos(ins_sqlerrtext,"Cannot insert duplicate key row") > 0 THEN
		ls_errmsg = "关键内容重复"
	ELSE
		ls_errmsg = "因为网络或其他原因>"+ins_sqlerrtext
	END IF
	ROLLBACK;
	MessageBox ("系统提示",ls_errmsg+",保存操作失败!",Exclamation!,OK!)
	RETURN
ELSE
	COMMIT;
	close(parent)
END IF



end event