Tiptop CR报表axcr700采购入库月报增加tlf99“多角贸易序号”,部分资料无数据修复4gl文件bug

因使用单位需求希望在报表后面增加一个栏位“多角贸易序号”，查看此报表多数栏位调用的是tlf_file表的数据，查看到tlf_file表中正好有对应的栏位“多角贸易序号”tlf99，依惯例增加tlf99字段。

rz -y上传

r.c2编译

r.l2链接

CR报表中增加相应栏位，查看显示OK。让使用者使用，没想到过了一天使用者就反应有些采购单的多角贸易序号没显示，赶紧一查发现有些单据的tlf99中没有数据，但在收货单中显示又有，至于为何没传到tlf_file表中就未知了。

看来还是关连到入库单头表rvu_file表中去才行。

首先在FUNCTION axcr700()的后面定义rvu_99

   DEFINE l_rvu99    LIKE rvu_file.rvu99          #No.P2020044

 然后在FOREACH axcr700_curs1后面增加如下：

       
       #----------No.P2020044(s)----------#
       LET l_rvu99=''
       IF cl_null(sr.tlf99) THEN  
          LET l_sql="SELECT rvu99 FROM ",cl_get_target_table(m_plant[l_i],'rvu_file'),
                    " WHERE rvu01='",sr.tlf905,"' AND rvuconf='Y' "
        
         CALL cl_replace_sqldb(l_sql) RETURNING l_sql   
         PREPARE pre_rvu99 FROM l_sql 
         DECLARE dec_rvu99 CURSOR FOR pre_rvu99
         OPEN dec_rvu99
         FETCH dec_rvu99 INTO l_rvu99
         IF NOT cl_null(l_rvu99) THEN
           LET sr.tlf99=l_rvu99 
         END IF  
       END IF   
       #----------No.P2020044(e)----------#