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(