神州数码易拓TIPTOP ERP集成扫描仪、高拍仪程序

4gl调用web程序代码

#扫描  
WHEN "scanning"
    IF  cl_chk_act_auth()  THEN
        IF  cl_null(g_oga.oga01)  THEN
            CALL cl_err('',-400,0) #请先选取欲处理的资料!
        ELSE
            LET l_url = "http://IP地址:端口号/Scan/
            ajax.html?
            user=",g_user CLIPPED,
            "&prog=cxmt620&order=",g_oga.oga01
            IF NOT cl_open_url(l_url) THEN
                CALL cl_err_msg(NULL,"lib-052",g_prog 
                CLIPPED||"|"|| g_lang CLIPPED,10)
            END IF
        END IF
    END IF

作业特点说明：
1. 通过J2EE实现；
2. 不免费，需购买scanonweb扫描控件去水印；

java代码下载地址：http://download.csdn.net/detail/wahaa591/8645973