鼎新Tiptop系统aemt100中增加打印功能串联aemr100功能

原先Tiptop系统aemt100设备检查记录维护作业的打印功能是灰色的，客制了一个报表aemr100，想要把两个串起来。直接在aemt100点打印就能出来。

一、在FUNCTION t100_menu()里面增加

         WHEN "output"
            IF cl_chk_act_auth() THEN
               CALL t100_out()
            END IF      

二、在FUNCTION t100_bp1(p_ud)下面增加

      ON ACTION output
         LET g_action_choice="output"
         EXIT DISPLAY 

三、接下来就是对应CALL t100_out()的FUNCTION t100_out()，内容如下：

FUNCTION t100_out()
 
   IF g_fiq.fiq01 IS NULL THEN RETURN END IF

    LET g_msg = 'fiq01="',g_fiq.fiq01,'" '
    LET g_msg = "aemr100 '",g_today,"' '",g_user,"' '",g_lang,"' ",
                " 'Y' ' ' '1' ", 
                " '",g_msg CLIPPED,"' '1' "   

   CALL cl_cmdrun(g_msg)

END FUNCTION

上传，编译，链接再点打印就可以直接串到aemr100的报表了。

如果提示没权限时，p_zz，维护Action。