From 273f1bd2d4d9d221faf1fb09cc9b50f964ea0877 Mon Sep 17 00:00:00 2001
From: Alawn <alawn.cn@gmail.com>
Date: Fri, 7 May 2021 18:45:20 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E6=B8=A0=E9=81=93=E7=8A=B6?=
 =?UTF-8?q?=E6=80=81?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bui/etc/cap/OBUICAP2/4908105_CTL.XML | 82 ++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100644 bui/etc/cap/OBUICAP2/4908105_CTL.XML

diff --git a/bui/etc/cap/OBUICAP2/4908105_CTL.XML b/bui/etc/cap/OBUICAP2/4908105_CTL.XML
new file mode 100644
index 0000000..9eb584f
--- /dev/null
+++ b/bui/etc/cap/OBUICAP2/4908105_CTL.XML
@@ -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>
-- 
2.54.0