19 lines
543 B
XML
19 lines
543 B
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
<Function name="OprHisInf"><!--历史操作信息-->
|
|
<Process>
|
|
<Set>HIS_TM=GETDATETIME()</Set>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="mngtoprhis" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<!-- @msg {1}，请稍后再试！ -->
|
|
<Arg name="MsgCd" value="MON10001" />
|
|
<Arg name="MsgDat" value="数据库系统正在维护中" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
</Process>
|
|
</Function>
|
|
</Package> |