29 lines
1.1 KiB
XML
29 lines
1.1 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!-- 账号查询（传票查询）-->
|
|
<Transaction code="BUI0100360" log_switch="1">
|
|
<FlowCtrl>
|
|
<Set>FLG_LOG=0</Set> <!--值为0：代表此交易不用写入操作日志 -->
|
|
|
|
<Set>MERC_AC_IN.AC_TYP=$QRY_AC_TYP</Set>
|
|
<If condition="NOT(ISNULL($MERC_ID_QRY))">
|
|
<Set>MERC_AC_IN.MERC_ID=$MERC_ID_QRY</Set>
|
|
</If>
|
|
<If condition="NOT(ISNULL($MBL_NO_QRY))">
|
|
<Set>MERC_AC_IN.MBL_NO=$MBL_NO_QRY</Set>
|
|
</If>
|
|
<Exec func="ACM1:QueryAcNoByMblNo" >
|
|
<Arg name="_I_INP_DAT" value="MERC_AC_IN" />
|
|
<Arg name="_I_GWA" value="GWA"/>
|
|
<Arg name="_O_OUT_DAT" value="MERC_AC_OUT" />
|
|
</Exec>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Set>AC_NO=@O.MERC_AC_OUT.AC_NO</Set> <!--费用账号-->
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root> |