Q5/ws_objects/Ew_datatran.pbl.src/f_synchronize.srf

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

forward prototypes
global function integer f_synchronize (ref transaction arg_transaction, ref string arg_msg)
end prototypes

global function integer f_synchronize (ref transaction arg_transaction, ref string arg_msg);//f_synchronize

datetime dtm_ntserver
date dat_ntserver
time tim_ntserver
s_SYSTEMTIME lpSystemTime
int int_rtn

//取得服务器时间
//如果是Sql Server数据库
select top 1 getdate() into :dtm_ntserver from sysusers using arg_transaction;


//如果是Oracle数据库
//select sysdate into :dtm_ntserver from dual;
//st_2.text=string(dtm_ntserver,'yyyy-mm-dd hh:mm:ss')

dat_ntserver=date(dtm_ntserver)
tim_ntserver=time(dtm_ntserver)

lpSystemTime.wYear=year(dat_ntserver)
lpSystemTime.wMonth=month(dat_ntserver)
lpSystemTime.wDay=day(dat_ntserver)
lpSystemTime.wHour=hour(tim_ntserver)
lpSystemTime.wMinute=Minute(tim_ntserver)
lpSystemTime.wSecond=Second(tim_ntserver)

//int_rtn=SetLocalTime(lpSystemTime)
//if int_rtn=0 then
//	arg_msg='往服务器时间同步设置失败！'
//	return 0
//else
	return 1
//end if

end function