Q5/ws_objects/ljnc.pbl.src/f_ljnc_sync_db.srf

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

forward prototypes
global subroutine f_ljnc_sync_db (string arg_version)
end prototypes

global subroutine f_ljnc_sync_db (string arg_version);
OLEObject o_ljnc_program   //连接ljnc.dll的OLE对象
o_ljnc_program=create OLEObject
int return_code
return_code = o_ljnc_program.ConnectToNewObject("LJNC.LJNCProxy")            //连接ljnc.dll类LJNCProxy
IF return_code<>0 THEN RETURN

string lnc_type 
lnc_type= arg_version

datetime lastmodifydt

SELECT
Max(dbo.lnc_notice.modifydt)
INTO :lastmodifydt
FROM
dbo.lnc_notice;

IF IsNull(lastmodifydt) THEN lastmodifydt=datetime(date('1900-01-01'),time('00:00:00'))

o_ljnc_program.GetNoticeList(sys_ServerName,sys_Database,sys_LoginID,f_psw_bczh(sys_LoginPwd,1,sys_power_key),lnc_type,lastmodifydt)   //调用LJNCProxy类方法GetNoticeList获取数据   

o_ljnc_program.disconnectobject( )   //释放连接
end subroutine