Q5/ws_objects/Ew_eb_import.pbl.src/uo_comhelper.sru

$PBExportHeader$uo_comhelper.sru
forward
global type uo_comhelper from nonvisualobject
end type
end forward

shared variables
//oleobject ComMrpProxy

//oleobject sv_FXAppCom // 协同模块使用

//oleobject sv_ErpAppCom // 暂时用于ERP成品预测单的异步处理

//oleobject sv_P1ClientCom // 后台服务连接

//oleobject sv_DingTalkCom // 钉钉考勤机读数

oleobject sv_RegCom // 注册后台服务连接

oleobject sv_YunRegCom // 云注册后台服务连接
end variables

global type uo_comhelper from nonvisualobject
end type
global uo_comhelper uo_comhelper

forward prototypes
public subroutine uf_regalldll (ref string arg_msg)
public function oleobject uf_get_regcom (ref string arg_msg)
public function oleobject uf_get_yunregcom (ref string arg_msg)
end prototypes

public subroutine uf_regalldll (ref string arg_msg);Int rslt = 1

datastore ds_objs
ds_objs = Create datastore

uo_reghelper lo_helper
lo_helper = Create uo_reghelper

arg_msg = ''

IF Not lo_helper.pf_isadmin() THEN
	GOTO ext
END IF

ds_objs.DataObject = 'ds_commap'
Long i
String ls_msg

FOR i = 1 To ds_objs.RowCount()
	ls_msg = ''
	IF lo_helper.tryreg(ds_objs.Object.objname[i], ds_objs.Object.dllname[i], Ref ls_msg, False) <> 1 THEN
		IF arg_msg <> '' THEN
			arg_msg += '~r~n'
		END IF
		arg_msg += '['+ds_objs.Object.objname[i]+']['+ds_objs.Object.dllname[i]+']'+ls_msg
	END IF
NEXT

ext:
Destroy ds_objs
Destroy lo_helper


end subroutine

public function oleobject uf_get_regcom (ref string arg_msg);arg_msg = ''
IF IsValid(sv_RegCom) THEN
	RETURN sv_RegCom
END IF

Int rslt = 1
IF sys_reg_port = 0 THEN
	arg_msg = "此版本的注册后台服务不支持此功能"
	rslt = 0
	GOTO ext
END IF
uo_reghelper lo_helper

lo_helper = Create uo_reghelper
sv_RegCom = Create oleobject

IF lo_helper.ConnectToNewObject("SanrossDll.P1ClientCom", "SanrossDll.dll", Ref sv_RegCom, Ref arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

Boolean lb_inited
lb_inited = sv_RegCom.Init(sys_reg_ip, sys_reg_port, Ref arg_msg)

IF Not lb_inited THEN
	rslt = 0
	GOTO ext
END IF

ext:
Destroy lo_helper
IF rslt = 0 THEN
	Destroy sv_RegCom
END IF
RETURN sv_RegCom

end function

public function oleobject uf_get_yunregcom (ref string arg_msg);arg_msg = ''
IF IsValid(sv_YunRegCom) THEN
	RETURN sv_YunRegCom
END IF

Int rslt = 1
IF sys_yunreg_port = 0 THEN
	arg_msg = "获取云注册服务连接信息失败"
	rslt = 0
	GOTO ext
END IF
uo_reghelper lo_helper

lo_helper = Create uo_reghelper
sv_YunRegCom = Create oleobject

IF lo_helper.ConnectToNewObject("SanrossDll.P1ClientCom", "SanrossDll.dll", Ref sv_YunRegCom, Ref arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

Boolean lb_inited
lb_inited = sv_YunRegCom.Init(sys_yunreg_ip, sys_yunreg_port, Ref arg_msg)

IF Not lb_inited THEN
	rslt = 0
	GOTO ext
END IF

ext:
Destroy lo_helper
IF rslt = 0 THEN
	Destroy sv_YunRegCom
END IF
RETURN sv_YunRegCom

end function

on uo_comhelper.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_comhelper.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on