ctg-app-ui/lps/etc/ctl/2151024_CTL.XML

<?xml version='1.0' encoding='UTF-8'?>
<Application name="lps" trace="yes">
   <!-- 商户对账 -->
   <Transaction code="2151024" log_switch="1" trace="yes" desc="商户对账">
   <!-- 清分日期查 -->
   <!-- 全部查看 -->
   <DynSentence name="QRY_ALLPOS_DETAIL">  
      <Sentence> 
        SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM,'N' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC 
         FROM   LPSTOFP
         WHERE  (CLR_MERC =? or MERC_ID=?) AND AC_DT BETWEEN ? AND ? AND CLR_STS='1'
                AND PROC_RSL='00' AND LP_ORD_STS IN('N','R')
         UNION ALL
         SELECT AC_DT,TX_DT,TX_TM,'' AS POS_BAT_NO,POS_JRN,POS_TRM,'R' AS LP_ORD_STS, 0-TX_AMT AS TX_AMT,
                   CASE RFD_FEE_PRC_MOD
                        WHEN '1' THEN 0 
                        ELSE  0-FEE_AMT  END AS FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
           FROM   LPSTRVS  
           WHERE  (CLR_MERC =? OR MERC_ID=?) AND AC_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG = 'R'
         UNION ALL 
         SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM,'A' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC 
         FROM   LPSTOFP
         WHERE  (CLR_MERC =? or MERC_ID=?) AND AC_DT BETWEEN ? AND ? AND CLR_STS='1'
                AND PROC_RSL='00' AND LP_ORD_STS ='A' 
           ORDER BY AC_DT,TX_DT,TX_TM DESC
      </Sentence>
      <Fields>CLR_MERC|CLR_MERC|BEG_DT|END_DT|CLR_MERC|CLR_MERC|BEG_DT|END_DT|CLR_MERC|CLR_MERC|BEG_DT|END_DT|</Fields>
   </DynSentence>   
            
   <!-- 查看一部分 -->
   <DynSentence name="QRY_SOMEPOS_DETAIL">  
      <Sentence>
           SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM, 'N' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
             FROM   LPSTOFP 
            WHERE  MERC_ID =? AND PROC_RSL='00' AND LP_ORD_STS IN ('N','R')
                   AND AC_DT BETWEEN ? AND ?  AND CLR_STS='1'
            UNION ALL
            SELECT AC_DT,TX_DT,TX_TM,'' AS POS_BAT_NO,POS_JRN,POS_TRM,'R' AS LP_ORD_STS, 0-TX_AMT AS TX_AMT,
                   CASE RFD_FEE_PRC_MOD
                        WHEN '1' THEN 0 
                        ELSE  0-FEE_AMT  END AS FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
            FROM   LPSTRVS 
            WHERE  MERC_ID = ? AND AC_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG='R'
            UNION ALL
            SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM, 'A' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
             FROM   LPSTOFP 
            WHERE  MERC_ID =? AND PROC_RSL='00' AND LP_ORD_STS ='A'
                   AND AC_DT BETWEEN ? AND ?  AND CLR_STS='1'
            ORDER BY AC_DT,TX_DT,TX_TM DESC 
      </Sentence>
      <Fields>SUBMERC_ID|BEG_DT|END_DT|SUBMERC_ID|BEG_DT|END_DT|SUBMERC_ID|BEG_DT|END_DT|</Fields>
   </DynSentence>  
   
   <!-- 统计 -->
   <DynSentence name="QRY_TOTAL_LPSTOFP">  
      <Sentence>
           SELECT SUM(TX_AMT) AS SUM_CSM_AMT,SUM(FEE_AMT) AS SUM_CSM_FEE
           FROM LPSTOFP
           WHERE  (CLR_MERC =? or merc_id=?) AND AC_DT BETWEEN ? AND ?
                AND PROC_RSL='00' AND LP_ORD_STS IN('N','R','A') AND CLR_STS='1'
      </Sentence>
      <Fields>CLR_MERC|CLR_MERC|BEG_DT|END_DT|</Fields>
   </DynSentence>  
    
   <DynSentence name="QRY_TOTAL_LPSTRVS">  
      <Sentence>
           SELECT SUM(TX_AMT) AS SUM_RVS_AMT,
                  SUM(
                        CASE RFD_FEE_PRC_MOD
                           WHEN '1' THEN 0 
                           ELSE   FEE_AMT  END 
                     ) AS SUM_RVS_FEE
           FROM LPSTRVS
          WHERE  (CLR_MERC =? OR MERC_ID=?) AND AC_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG = 'R'
      </Sentence>
      <Fields>CLR_MERC|CLR_MERC|BEG_DT|END_DT|</Fields>
   </DynSentence> 
   
    <DynSentence name="QRY_SOME_LPSTOFP">  
      <Sentence>
            SELECT SUM(TX_AMT) AS SUM_CSM_AMT,SUM(FEE_AMT) AS SUM_CSM_FEE
              FROM LPSTOFP 
             WHERE MERC_ID =? AND PROC_RSL='00' AND LP_ORD_STS !='C'
                   AND AC_DT BETWEEN ? AND ?   AND CLR_STS='1'
      </Sentence>
      <Fields>SUBMERC_ID|BEG_DT|END_DT|</Fields>
   </DynSentence>
   
   <DynSentence name="QRY_SOME_LPSTRVS">  
      <Sentence>
          SELECT SUM(TX_AMT) AS SUM_RVS_AMT,
                  SUM(
                        CASE RFD_FEE_PRC_MOD
                           WHEN '1' THEN 0 
                           ELSE   FEE_AMT  END 
                     ) AS SUM_RVS_FEE
           FROM LPSTRVS
          WHERE  MERC_ID = ? AND AC_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG='R'
      </Sentence>
      <Fields>SUBMERC_ID|BEG_DT|END_DT|</Fields>
   </DynSentence>
   
   <!-- 交易日期查 -->
   <!-- 全部查看 -->
   <DynSentence name="QRY_ALLPOS_DETAIL_TX">  
      <Sentence> 
        SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM,'N' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC 
         FROM   LPSTOFP
         WHERE  (CLR_MERC =? or merc_id=?) AND TX_DT BETWEEN ? AND ?
                AND PROC_RSL='00' AND LP_ORD_STS IN('N','R') AND CLR_STS='1'
         UNION ALL
         SELECT AC_DT,TX_DT,TX_TM,'' AS POS_BAT_NO,POS_JRN,POS_TRM,'R' AS LP_ORD_STS, 0-TX_AMT AS TX_AMT,
                   CASE RFD_FEE_PRC_MOD
                        WHEN '1' THEN 0 
                        ELSE  0-FEE_AMT  END AS FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
           FROM   LPSTRVS  
           WHERE  (CLR_MERC =? OR MERC_ID=?) AND TX_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG = 'R'
         UNION ALL
         SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM,'A' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC 
         FROM   LPSTOFP
         WHERE  (CLR_MERC =? or merc_id=?) AND TX_DT BETWEEN ? AND ?
                AND PROC_RSL='00' AND LP_ORD_STS ='A' AND CLR_STS='1'  
           ORDER BY AC_DT,TX_DT,TX_TM DESC
      </Sentence>
      <Fields>CLR_MERC|CLR_MERC|BEG_DT|END_DT|CLR_MERC|CLR_MERC|BEG_DT|END_DT|CLR_MERC|CLR_MERC|BEG_DT|END_DT|</Fields>
   </DynSentence>   
            
   <!-- 查看一部分 -->
   <DynSentence name="QRY_SOMEPOS_DETAIL_TX">  
      <Sentence>
           SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM, 'N' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
             FROM   LPSTOFP 
            WHERE  MERC_ID =? AND PROC_RSL='00' AND LP_ORD_STS IN('N','R')
                   AND TX_DT BETWEEN ? AND ?  AND CLR_STS='1'
            UNION ALL
            SELECT AC_DT,TX_DT,TX_TM,'' AS POS_BAT_NO,POS_JRN,POS_TRM,'R' AS LP_ORD_STS, 0-TX_AMT AS TX_AMT,
                   CASE RFD_FEE_PRC_MOD
                        WHEN '1' THEN 0 
                        ELSE  0-FEE_AMT  END AS FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
            FROM   LPSTRVS 
            WHERE  MERC_ID = ? AND TX_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG='R'
            UNION ALL
            SELECT AC_DT,TX_DT,TX_TM,POS_BAT_NO,POS_JRN,POS_TRM, 'A' AS LP_ORD_STS,TX_AMT,FEE_AMT,
                   SUBSTR(SUB_AC,0,6)||'**********'||SUBSTR(SUB_AC,17,4) AS SUB_AC
             FROM   LPSTOFP 
            WHERE  MERC_ID =? AND PROC_RSL='00' AND LP_ORD_STS ='A'
                   AND TX_DT BETWEEN ? AND ?  AND CLR_STS='1'
            ORDER BY AC_DT,TX_DT,TX_TM DESC 
      </Sentence>
      <Fields>SUBMERC_ID|BEG_DT|END_DT|SUBMERC_ID|BEG_DT|END_DT|SUBMERC_ID|BEG_DT|END_DT|</Fields>
   </DynSentence>  
   
   <!-- 统计 -->
   <DynSentence name="QRY_TOTAL_LPSTOFP_TX">  
      <Sentence>
           SELECT SUM(TX_AMT) AS SUM_CSM_AMT,SUM(FEE_AMT) AS SUM_CSM_FEE
           FROM LPSTOFP
           WHERE  (CLR_MERC =? or merc_id=?) AND TX_DT BETWEEN ? AND ?
                AND PROC_RSL='00' AND LP_ORD_STS IN('N','R','A') AND CLR_STS='1'
      </Sentence>
      <Fields>CLR_MERC|CLR_MERC|BEG_DT|END_DT|</Fields>
   </DynSentence>  
    
   <DynSentence name="QRY_TOTAL_LPSTRVS_TX">  
      <Sentence>
           SELECT SUM(TX_AMT) AS SUM_RVS_AMT,
                  SUM(
                        CASE RFD_FEE_PRC_MOD
                           WHEN '1' THEN 0 
                           ELSE   FEE_AMT  END 
                     ) AS SUM_RVS_FEE
           FROM LPSTRVS
          WHERE  (CLR_MERC =? OR MERC_ID=?) AND TX_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG = 'R'
      </Sentence>
      <Fields>CLR_MERC|CLR_MERC|BEG_DT|END_DT|</Fields>
   </DynSentence> 
   
    <DynSentence name="QRY_SOME_LPSTOFP_TX">  
      <Sentence>
            SELECT SUM(TX_AMT) AS SUM_CSM_AMT,SUM(FEE_AMT) AS SUM_CSM_FEE
              FROM LPSTOFP 
             WHERE MERC_ID =? AND PROC_RSL='00' AND LP_ORD_STS !='C'
                   AND TX_DT BETWEEN ? AND ? AND CLR_STS='1'   
      </Sentence>
      <Fields>SUBMERC_ID|BEG_DT|END_DT|</Fields>
   </DynSentence>
   
   <DynSentence name="QRY_SOME_LPSTRVS_TX">  
      <Sentence>
          SELECT SUM(TX_AMT) AS SUM_RVS_AMT,
                  SUM(
                        CASE RFD_FEE_PRC_MOD
                           WHEN '1' THEN 0 
                           ELSE   FEE_AMT  END 
                     ) AS SUM_RVS_FEE
           FROM LPSTRVS
          WHERE  MERC_ID = ? AND TX_DT BETWEEN ? AND ? AND BIL_STS='1' AND RVS_FLG='R'
      </Sentence>
      <Fields>SUBMERC_ID|BEG_DT|END_DT|</Fields>
   </DynSentence>
    
   <FlowCtrl> 
      
      <If condition="IS_EQUAL_STRING($DT_TYP,A)"> 
         <If condition="IS_EQUAL_STRING($IN_MODE,3)"> <!--"详情"-"全部详情" -->
            <Exec func="PUB:DBMultiQueryPage">
               <Arg name="PageNo" value="$PAG_NO"/> 
               <Arg name="SqlCmd" value="QRY_SOMEPOS_DETAIL"/> 
               <Arg name="RecNumPerPage" value="$PAG_NUM"/> 
            </Exec>
            <If condition="IS_EQUAL_STRING(~RetCod,0)">
               <If condition="IS_EQUAL_STRING($PAG_CNT,$CURRENTPAGE)">
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_SOME_LPSTOFP"/>
                  </Exec>  
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_SOME_LPSTRVS"/>
                  </Exec> 
               </If> 
            </If>
         </If>
         <ElseIf condition="IS_EQUAL_STRING($IN_MODE,5)"> <!-- ”全部详情“ - ”全部详情“ -->
            <Exec func="PUB:DBMultiQueryPage">
               <Arg name="PageNo" value="$PAG_NO"/> 
               <Arg name="SqlCmd" value="QRY_ALLPOS_DETAIL"/> 
               <Arg name="RecNumPerPage" value="$PAG_NUM"/> 
            </Exec>
            <If condition="IS_EQUAL_STRING(~RetCod,0)">
               <If condition="IS_EQUAL_STRING($PAG_CNT,$CURRENTPAGE)">
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_TOTAL_LPSTOFP"/>
                  </Exec>  
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_TOTAL_LPSTRVS"/>
                  </Exec> 
               </If>
            </If>
         </ElseIf>  
      </If>
      
      <ElseIf condition="IS_EQUAL_STRING($DT_TYP,T)"> 
         <If condition="IS_EQUAL_STRING($IN_MODE,3)"> <!--"详情"-"全部详情" -->
            <Exec func="PUB:DBMultiQueryPage">
               <Arg name="PageNo" value="$PAG_NO"/> 
               <Arg name="SqlCmd" value="QRY_SOMEPOS_DETAIL_TX"/> 
               <Arg name="RecNumPerPage" value="$PAG_NUM"/> 
            </Exec>
            <If condition="IS_EQUAL_STRING(~RetCod,0)">
               <If condition="IS_EQUAL_STRING($PAG_CNT,$CURRENTPAGE)">
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_SOME_LPSTOFP_TX"/>
                  </Exec>  
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_SOME_LPSTRVS_TX"/>
                  </Exec> 
               </If> 
            </If>
         </If>
         <ElseIf condition="IS_EQUAL_STRING($IN_MODE,5)"> <!-- ”全部详情“ - ”全部详情“ -->
            <Exec func="PUB:DBMultiQueryPage">
               <Arg name="PageNo" value="$PAG_NO"/> 
               <Arg name="SqlCmd" value="QRY_ALLPOS_DETAIL_TX"/> 
               <Arg name="RecNumPerPage" value="$PAG_NUM"/> 
            </Exec>
            <If condition="IS_EQUAL_STRING(~RetCod,0)">
               <If condition="IS_EQUAL_STRING($PAG_CNT,$CURRENTPAGE)">
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_TOTAL_LPSTOFP_TX"/>
                  </Exec>  
                  <Exec func="PUB:ReadRecord">   
                     <Arg name="SqlCmd" value="QRY_TOTAL_LPSTRVS_TX"/>
                  </Exec> 
               </If>
            </If>
         </ElseIf>  
      </ElseIf>
      
      <Set>T_NUM=$TOT_REC_NUM</Set>
      <If condition="ISNULL($SUM_CSM_AMT)">
         <Set>SUM_CSM_AMT=0</Set> 
      </If>
      <If condition="ISNULL($SUM_CSM_FEE)">
         <Set>SUM_CSM_FEE=0</Set> 
      </If>
      <If condition="ISNULL($SUM_RVS_FEE)">
         <Set>SUM_RVS_FEE=0</Set> 
      </If>
      <If condition="ISNULL($SUM_RVS_AMT)">
         <Set>SUM_RVS_AMT=0</Set> 
      </If>
      <!-- 统计数据 -->  
      <Set>TOTAL_AMT=FSUB($SUM_CSM_AMT,$SUM_RVS_AMT,2)</Set>
      <Set>TOTAL_FEE=FSUB($SUM_CSM_FEE,$SUM_RVS_FEE,2)</Set>       
      <Exec func="PUB:GWASetMsg"> 
         <Arg name="MsgCd" value="LPS00000" />
      </Exec> 
      
	 </FlowCtrl>
	</Transaction>

</Application>