ITPub博客

首页 > 数据库 > 国内数据库 > 访视日期转抄方案版本号、eCRF版本号

访视日期转抄方案版本号、eCRF版本号

原创 国内数据库 作者:wenjunheyixiao 时间:2018-01-18 13:35:38 0 删除 编辑

1

访视日期转抄方案版本号、eCRF版本号  (表单附加HTML

 

var yn = va_getLinkValue('projectinfo','yn','1=1');

var visitnum = va_getValue('visitnum');

//alert(visitnum);

if(yn=='N'){

if(visitnum == '1'){

var visdat = va_getValue('visdtc');

//alert(visdat);

var siteid = va_getValue('siteid');

//alert(siteid);

var where1 = "obj.siteid = '" +siteid+"' and obj.versiondate <'" +visdtc+"'";

//alert(where1);

var proversion = va_getLinkValue('ethicsversion','proversion',where1,'obj.versiondate desc');

va_setValue('proversion',proversion);

var where2 = "obj.createtime <'" +visdtc+"' and obj.note != 'Auto save version'";

//alert(where2);

var versionname = va_getLinkValue('version_management','versionname',where2,'obj.createtime desc');

//alert(versionname);

va_setValue('ecrfversion',versionname);

}

}else{

var visdat = va_getValue('visdtc');

//alert(visdat);

var siteid = va_getValue('siteid');

//alert(siteid);

var where1 = "obj.siteid = '" +siteid+"' and obj.versiondate <'" +visdtc+"'";

//alert(where1);

var proversion = va_getLinkValue('ethicsversion','proversion',where1,'obj.versiondate desc');

va_setValue('proversion',proversion);

var where2 = "obj.createtime <'" +visdtc+"' and obj.note != 'Auto save version'";

//alert(where2);

var versionname = va_getLinkValue('version_management','versionname',where2,'obj.createtime desc');

//alert(versionname);

va_setValue('ecrfversion',versionname);

}

 

 

 

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/30606702/viewspace-2150288/,如需转载,请注明出处,否则将追究法律责任。

上一篇: INS-10013
请登录后发表评论 登录
全部评论

注册时间:2015-12-02

  • 博文量
    117
  • 访问量
    161253