T100的程序错误提示方法

Posted sctrkb

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了T100的程序错误提示方法相关的知识,希望对你有一定的参考价值。

 

方法一:

#此方法适用于excel导入数据到系统

#定义一个数组     
DEFINE lr_err  DYNAMIC ARRAY OF RECORD
       line    STRING,
       key1    STRING,
       err     STRING
       END RECORD 
                
#先清空数组                
   CALL lr_err.clear()                
   
   IF g_success = ‘N‘ THEN 
      LET lr_err[li_k].line = i
      LET lr_err[li_k].key1 = ls_imp.pmdj002
      LET lr_err[li_k].err  = ‘不允许出现重复的料号,请检查!‘ #这里加报错内容 也可以cl_getmsg(SQLCA.sqlcode,g_lang)使用系统的标准报错,azzi920维护的
      LET li_k = li_k + 1   
      #这里可以加事务回滚,循环跳行
   END IF  


#完毕后,判断数组有无内容,有则通过函数展现出来,这个不要放在循环内
   IF lr_err.getLength() > 0 THEN
      CALL cl_show_array(base.TypeInfo.create(lr_err),cl_getmsg("lib-314",g_lang),"Line|Key1|Error")

   END IF  

方法二:

   INITIALIZE g_errparam TO NULL
   LET g_errparam.code   = SQLCA.sqlcode   #这里使用标准的报错代号,如果不想用标准就用‘!‘
   LET g_errparam.extend = "UPDATE xmdc012,xmdc013"  #补充内容
   LET g_errparam.popup  = FALSE  #true是弹窗,false是右下角提示
   CALL cl_err()

方法三:

   #第三种方法与第一种功能一致,但是是系统标准的功能,而且相对于tiptop有一个较大的改善,
   #就是如果函数内有cl_err的强制弹窗内容,也不会弹窗,会等所有程序跑完了再统一报错
   CALL cl_err_collect_init()  #启用函数前调用

   #中间放第二种方法的报错方法,是不是强制弹窗无所谓,因为都不会弹窗
   
   CALL cl_err_collect_show()  #使用函数后调用
————————————————

以上是关于T100的程序错误提示方法的主要内容,如果未能解决你的问题,请参考以下文章

T100——r类 凭证报表 打印

T100——查询 r类 报表开发流程

小程序调用提示h5错误

安卓系统安装程序提示解析包错误…

vmware workstation 提示程序包可能有错,错误代码 29141 & 提示不可恢复错误: (vcpu-0)

Photoshop储存为psd出现程序错误提示怎么办?程序错误解决教程