33 lines
962 B
XML
33 lines
962 B
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!--
|
|
同步会计日期
|
|
日期 编号 修改人 修改原因
|
|
2008.4.23 xu_lw 创建
|
|
-->
|
|
<Root>
|
|
<!--
|
|
功能: 同步会计日期
|
|
输入参数: 无
|
|
输出参数: 无
|
|
-->
|
|
<Transaction code="458990" log_switch="0">
|
|
<FlowCtrl>
|
|
<Exec func="PUB:InitTransaction"/>
|
|
<Set>TlrId=EEDIER1</Set>
|
|
<Exec func="PUB:GetLogNo"/>
|
|
<Exec func="PUB:CallHostOther" error="IGNORE">
|
|
<Arg name="HTxnCd" value="458990" />
|
|
<Arg name="ObjSvr" value="SHSTPUB1" />
|
|
</Exec>
|
|
<If condition="INTCMP(@BAS.RetCod,5,0)">
|
|
<Set>RspCod=000000</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RspCod=999999</Set>
|
|
<Set>RspMsg=同步会计时间失败</Set>
|
|
<Return/>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|