40 lines
1.5 KiB
XML
40 lines
1.5 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Tran>
|
|
<Transaction code="BAT_CSW" log_switch='1' desc="批量转码">
|
|
<DynSentence name="QryBatInf">
|
|
<Sentence>
|
|
SELECT * FROM CAPBATINF
|
|
WHERE ORD_DT=?
|
|
AND CORG_DSK_NO=?
|
|
</Sentence>
|
|
<Fields>ORD_DT|CORG_DSK_NO|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>ORD_DT=$ORD_DT</Set>
|
|
<Set>CORG_DSK_NO=$CORG_DSK_NO</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryBatInf" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=查询数据库错误</Set>
|
|
<Return/>
|
|
</If>
|
|
<Set>CAP_TYP=$CAP_TYP</Set>
|
|
<Set>CORG_NO=$CORG_NO</Set>
|
|
<If condition="IS_EQUAL_STRING($CORG_NO,ABC,BOC,CITIC,EBPPP,ICBC,PAB,SZFS)">
|
|
<Set>CSW_TYP=0</Set>
|
|
</If>
|
|
<ElseIf condition="IS_EQUAL_STRING($CORG_NO,BCOM,CCBBATP,CCBBATR,CMBC,CEB)">
|
|
<Set>CSW_TYP=</Set>
|
|
</ElseIf>
|
|
<Set>RUL_TYP=BIS</Set>
|
|
<Call package="CSW" function="CAP_BAT_CSW">
|
|
<Input>RUL_TYP|CAP_TYP|CORG_NO|CSW_TYP|ORD_DT|CORG_DSK_NO|</Input>
|
|
<Output></Output>
|
|
</Call>
|
|
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Tran>
|