38 lines
1.3 KiB
XML
38 lines
1.3 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!--科目属性查询-->
|
|
<Transaction code="BUI0100200" log_switch="1">
|
|
<!--查看科目属性明细-->
|
|
<DynSentence name="QRY_ACMTITEM_DTL">
|
|
<Sentence>
|
|
SELECT ITM_NO,ITM_ENM,ITM_CNM,ITM_LVL,UP_ITM_NO,BTM_ITM_FLG,ITM_TYP,ITM_CLS,ITM_ZBAL_FLG,LP_BF_FLG,BAL_DRT,BAL_OD_FLG,ITM_STS,EFF_DT,EXP_DT,UPD_DT,UPD_OPR
|
|
FROM ACMTITEM
|
|
WHERE ITM_NO= ?
|
|
</Sentence>
|
|
<Fields>ITM_NO|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>FLG_LOG=0</Set> <!--值为0：代表此交易不用写入操作日志 -->
|
|
<Set>ITM_NO=DELBOTHSPACE($ITM_NO)</Set>
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="QRY_ACMTITEM_DTL"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:GWASetMsg" >
|
|
<!-- @msg 没有符合条件的记录 -->
|
|
<Arg name="MsgCd" value="ACM30001"/>
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Set>ITM_ENM=DELBOTHSPACE($ITM_ENM)</Set>
|
|
<Set>UP_ITM_NO=DELBOTHSPACE($UP_ITM_NO)</Set>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<!-- @msg 交易成功 -->
|
|
<Arg name="MsgCd" value="ACM00000"/>
|
|
</Exec>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|