Q5/ws_objects/Ew_mainface.pbl.src/f_setliblist.srf

$PBExportHeader$f_setliblist.srf
global type f_setliblist from function_object
end type

forward prototypes
global function integer f_setliblist ()
end prototypes

global function integer f_setliblist ();Long rslt = 1
String ls_list
String ls_path

ls_list = getlibrarylist ()

ls_path = Trim(Mid(ls_list,1,Pos(ls_list,',') - 1))

Long ls_i
Long ll_loca = 0
//FOR ls_i = 1 To Len(ls_path)
//	IF Mid(ls_path,ls_i,1) = '\' THEN
//		ll_loca = ls_i
//	END IF
//NEXT

ll_loca = LastPos(ls_path, '\')

ls_path = Trim(Mid(ls_path,1,ll_loca))

String LS_TEMPADDLIB

DECLARE ADDLIB CURSOR FOR
	SELECT libname
	From u_setliblist;
	
OPEN ADDLIB;

FETCH ADDLIB Into :LS_TEMPADDLIB;

DO WHILE SQLCA.SQLCode = 0
	
	ls_list+= ','+ls_path+LS_TEMPADDLIB
	
	FETCH ADDLIB Into :LS_TEMPADDLIB;
LOOP

CLOSE ADDLIB;

//动态取消Ew_printbill.pbd, 因为用户添加的是Ew_printbill.pbl, 如果保留pbd,可能读取有影响
IF Pos(lower(ls_list), ls_path+ "ew_printbill.pbd,") > 0 THEN
	ls_list = replace(ls_list, Pos(lower(ls_list), ls_path+ "ew_printbill.pbd,"), len( ls_path+ "ew_printbill.pbd,"), '') //系统默认打印格式
	//messagebox('', ls_list)
elseIF Pos(lower(ls_list), "ew_printbill.pbd,") > 0 THEN
	ls_list = replace(ls_list, Pos(lower(ls_list),  "ew_printbill.pbd,"), len(  "ew_printbill.pbd,"), '') //系统默认打印格式
else
	//openwithparm(w_message_err, ls_list)
END IF


sys_dftpblname = "Ew_printbill.pbl"

//IF sys_version = 802001  THEN
//	sys_dftpblname = "Ew_printbill_bn.pbl"
//ELSEIF sys_version = 802002  THEN
//	sys_dftpblname = "Ew_printbill_ep.pbl"
//ELSEIF sys_version = 802003  THEN
//	sys_dftpblname = "Ew_printbill_ep+.pbl"
//END IF


IF Not Pos(ls_list, ls_path+ sys_dftpblname) > 0 THEN
	ls_list+= ','+ ls_path+ sys_dftpblname //系统默认打印格式
END IF
//IF Not Pos(ls_list, ls_path+ sys_pblname) > 0 THEN
//	ls_list+= ','+ ls_path+ sys_pblname //客户默认打印格式
//END IF
rslt = SetLibraryList(ls_list)

RETURN rslt




end function