2021-05-07 10:46:33 +00:00
1 changed files with 82 additions and 0 deletions
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding='UTF-8'?>
+<Root>
+   <Transaction code="4908105" log_switch="1" desc="更新渠道状态">
+      <DynSentence name="QRY_CAPCNLINF">
+         <Sentence>
+            SELECT SYS_ID,TXN_CNL
+            FROM
+            CAPCNLINF
+            WHERE
+            SYS_ID=? AND TXN_CNL =?
+         </Sentence>
+         <Fields>SYS_ID|TXN_CNL|</Fields>
+      </DynSentence>
+      <DynSentence name="UPD_CAPCNLINF">
+         <Sentence>
+            UPDATE
+            CAPCNLINF
+            SET
+            RLR_STS=?,TM_SMP=?
+            WHERE
+            SYS_ID=? AND TXN_CNL =?
+         </Sentence>
+         <Fields>RLR_STS|TM_SMP|SYS_ID|TXN_CNL|</Fields>
+      </DynSentence>
+      <FlowCtrl>
+         <Exec func="PUB:DumpETF"/>
+         <Set>SYS_ID =$SYS_ID</Set><!--系统编号-->
+         <Set>TXN_CNL=$TXN_CNL</Set><!--渠道类型-->
+         <Exec func="PUB:ReadRecord">
+            <Arg name="SqlCmd" value="QRY_CAPCNLINF"/>
+         </Exec>
+         <If condition="~RetCod=2">
+            <Exec func="PUB:GWASetMsg">
+               <Arg name="MsgCd" value="CMM20023"/>
+               <Arg name="MsgDat" value="记录不存在"/>
+            </Exec>
+            <Return/>
+         </If>
+         <ElseIf condition="~RetCod=0">
+
+            <If condition="ISNULL($RLR_STS)">
+               <Set>RLR_STS=1     </Set><!--为空是失效-->
+            </If>
+            <Else>
+               <Set>RLR_STS=$RLR_STS</Set><!--是否生效-->
+            </Else>
+            <Set>TM_SMP =GETDATETIME()</Set><!-- 时间戳 -->
+            <Exec func="PUB:ExecSql" error="IGNORE" desc="更新渠道配置信息">
+               <Arg name="SqlCmd" value="UPD_CAPCNLINF" />
+            </Exec>
+            <If condition="~RetCod=-1">
+               <Exec func="PUB:GWASetMsg">
+                  <Arg name="MsgCd" value="CMM20135"/>
+                  <Arg name="MsgDat" value="更新数据库失败"/>
+               </Exec>
+               <Return />
+            </If>
+            <ElseIf condition="~RetCod=0">
+               <Exec func="PUB:GWASetMsg">
+                  <Arg name="MsgCd" value="RPM00000"/>
+                  <Arg name="MsgDat" value="记录更新成功"/>
+               </Exec>
+            </ElseIf>
+            <Else>
+               <Exec func="PUB:GWASetMsg">
+                  <Arg name="MsgCd" value="CMM20135"/>
+                  <Arg name="MsgDat" value="更新数据库失败"/>
+               </Exec>
+               <Return />
+            </Else>
+         </ElseIf>
+         <Else>
+            <Exec func="PUB:GWASetMsg">
+               <Arg name="MsgCd" value="BUI26006"/>
+               <Arg name="MsgDat" value="查询数据库出错"/>
+            </Exec>
+            <Return/>
+         </Else>
+         <Exec func="PUB:DumpETF"/>
+      </FlowCtrl>
+   </Transaction>
+</Root>