Q5/ws_objects/longjoe_report_uo.pbl.src/f_mysave.srf

$PBExportHeader$f_mysave.srf
$PBExportComments$数据窗口存盘--函数
global type f_mysave from function_object
end type

forward prototypes
global function integer f_mysave (datawindow f_dw, transaction f_tr, integer f_err)
end prototypes

global function integer f_mysave (datawindow f_dw, transaction f_tr, integer f_err);f_dw.accepttext()
if f_dw.ModifiedCount()+f_dw.DeletedCount()>0 then
	if f_dw.update()=1 then
		commit using f_tr;
		return 1
	else
		rollback using f_tr;
		if f_err=1 then
			MessageBox("出错信息","数据保存失败!",Information!)
		end if
		return 0
	end if
end if
return 1
end function