FXApp/ws_objects/app_cust_fx.pbl.src/f_chkfxfilemapwithmd5andupload.srf

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

forward prototypes
global function integer f_chkfxfilemapwithmd5andupload (string a_md5s[], string a_filepaths[], ref string arg_msg)
end prototypes

global function integer f_chkfxfilemapwithmd5andupload (string a_md5s[], string a_filepaths[], ref string arg_msg);// 提交待上传到fx_filemap的附件
// ChkFxFileMapWithMd5AndUpload
// a_md5s[] -- md5
// a_filepaths[] -- 文件全路径
int rslt = 1

if (IsNull(a_md5s)) then
	rslt = 0
	arg_msg = 'f_chkfxfilemapwithmd5andupload调用异常(0)'
	goto ext
end if
if (UpperBound(a_md5s) <= 0) then
	rslt = 0
	arg_msg = 'f_chkfxfilemapwithmd5andupload调用异常(1)'
	goto ext
end if
if (UpperBound(a_md5s) <> UpperBound(a_filepaths)) then
	rslt = 0
	arg_msg = 'f_chkfxfilemapwithmd5andupload调用异常(2)'
	goto ext
end if

long ll_i
oleobject parm, rsp, md5s, filepaths
parm = FXAppCom.CreatePbDictionary()
md5s = FXAppCom.NewPBArray()
filepaths = FXAppCom.NewPBArray()
for ll_i = 1 to UpperBound(a_md5s)
	md5s.AddString(a_md5s[ll_i])
	filepaths.AddString(a_filepaths[ll_i])
next

parm.SetString('token', app_token_fx)
parm.SetObject('md5s', md5s)
parm.SetObject('filepaths', filepaths)
rsp = FXAppCom.ChkFxFileMapWithMd5AndUpload(parm)
arg_msg = rsp.GetString('ErrMsg')
if (arg_msg <> '') then
	rslt = 0
	goto ext
end if

ext:
return rslt


end function