函数
一：
sys_SendFormMessage(strUsers,strContent,strUrl)
在表单中调用此方法可以发送系统消息。
语法：
sys_SendFormMessage(strUsers,strContent,strUrl)
输入参数：
strUsers： 消息接收人，多人接收用“，”分隔。例：“001，002”
strContent： 消息内容。例“请查看XXX信息”
strUrl ：消息内容的链接地址，如果需要打开新窗口，则拼写新窗口的地址，否则为“”
一般打开表单的地址为：../JHSoft.Web.Module/fceform/common/djframe.htm?djsn=要打开表单的编号&djType=TT
输出参数：
返回“发送成功”表示成功，否则表示发送失败返回错误信息
sys_GetMessageUrl(moduletype,msgtitle)
通过信息发布类型和信息标题获取此信息的访问URL，在表单中查看某个规章制度时可以使用此方法。
语法：
sys_GetMessageUrl(moduletype,msgtitle)
输入参数：
moduletype：信息发布类型 例：“规章制度”、“公司新闻”等
msgtitle：信息标题 例：“总字(2009)第001号-费用管理制度”
输出参数：
返回访问此信息的URL地址。
二：
发表信息表单函数
function sendMessage(userid,content)
{
//alert(15);
txttime.value=sys_getDateTime();
var sql="insert into TechnologyMeetingAdvice (id,name,contents,time) values ('"+txtid.value+"','"+txtname.value+"','"+txtcontents.value+"','"+txttime.value+"')";
InsertSql(sql);
var bhlist=userid.split(',');
var sql="declare @temp int "
sql+="select @temp=maxid from idcreator where tbname='call' "
sql+="exec pt_CreateID @dbName='C6',@tbName='Call',@intOutput=1,@strID=@temp output "
sql+="exec pt_CallInsert @strXMLList='"
sql+=''
sql+="
for(var i=0;i
sql+="
sql+="declare @temp1 int "
sql+="select @temp1=maxid from idcreator where tbname='calltemp' "
sql+="exec pt_SendMessage @strXML='"
sql+=''
sql+="
for(var i=0;i
sql+="
// sql+="../JHSoft.Web.Module/fceform/common/djframe.htm?djsn=id&djType=TT";
SelectSql(sql,1,1);
alert("保存并发送成功");
//alert('保存成功')
}
三：
生产工作任务单函数
function test()
{
if(parent.toolbar.document.readyState=="complete")
{
//alert(sys_getAppAppCurDisposeName())
if(sys_getAppAppCurDisposeName()!="整理")
{
txtshowcode.value=txtcode.value.substring(0,4)+txtcode.value.substring(txtcode.value.length-5);
}
else
if(sys_getAppAppCurDisposeName()=="整理")
{
txtputt
ogether.value=sys_getUserName();
}
else
if(sys_getAppAppCurDisposeName()=="审核")
{
//alert(1);
txtexamine.value=sys_getUserName();
}
else
if(sys_getAppAppCurDisposeName()=="审批")
{
//alert(1);
txtchecks.value=sys_getUserName();
}
else
if(sys_getAppAppCurDisposeName()=="归档")
{
//alert(1);
txtkeeponfiles.value=sys_getUserName();
}
}
else
setTimeout("test()",1000);
}
function UserDefineAppEnd()
{
var MainID = DsMain.Fields.Field['MainID'].Value;
//审批结束标记:2，正在审批；1审批结束通过；0审批结束不通过；
var AppFlag = parent.toolbar.document.all.hidApproveFlag.value;
//alert(AppFlag);
if (AppFlag == "1")
{
strsql = "update DesignChecksReport set flag='1' where MainID='"+MainID+"'";
InsertSql(strsql);
}
if (AppFlag == "2")
{
strsql = "update DesignChecksReport set flag='2' where MainID='"+MainID+"'";
}
if (AppFlag == "0")
{
strsql = "update DesignChecksReport set flag='0' where MainID='"+MainID+"'";
InsertSql(strsql);
}
}
function LinkAdvice()
{
var id = txtcode.value;
DjOpen('jsgzhyjljyfb_1fc834cc-2380-49f0-ab87-34383b3b7a4d' ,id,'展现','无模式窗口',' 测试','');
}
/**
*函数名：initBlick
*功 能：得到自定义长度的流水号
*参 数：---- tcStr 填充的字符, 建议为 '0'
* ---- sumLen 填充字符总长度(最后结果的长度等于填充字符的长度+初始序列值的长度,建议为9位)
*返回值：---- blickStr 自定义长度的流水号
*创建时间：2008-6-20
*
*/
function initBlick(tcStr, sumLen){
//填充初始序列值
var tcValue = 1;
var tcStrTemp = "";
//循环并填充返回填充值
for(i = 0; i < sumLen; i++)
{
tcStrTemp += tcStr
}
blickStr = tcStrTemp + tcValue.toString();
return blickStr;
}
/**
*函数名：getDateStr
*功 能：得到系统当前时间的字符串，由年月日拼接而成
*参 数：无
*返回值：allValue 由年月日拼接的字符串，如"20080620"
*创建时间：2008-6-20
*
*/
function getDateStr()
{
var year,allValue;
var year=sys_getYear();
allValue = year.toString() ;
return allValue;
}
/**
*函数名：getAutoCode
*功 能：得到系统自动编号
*参 数：----strPrefix 编号的前缀
* ----dateFlag 是否需要加入日期字符串，1为需要，其他值为不需要
* ----blickDigit 后续流水号的总长度
* ----txtId 需要赋予编号的文本框控件ID
*返回值：无
*创建时间：2008-6-20
*
*/
function getAutoCode(strPrefix, dateFlag, blickDigit, txtId){
//当前时间临时变量
var dateTemp;
//默认填充的字符串
var tcStr = '0';
//初始化时间字符串的值
var currDate = '';
//得到控件对象
var t
xtObj = document.getElementById(txtId);
::::
//alert(1);
txtexamine.value=sys_getUserName();
}
else
if(sys_getAppAppCurDisposeName()=="审批")
{
//alert(1);
txtchecks.value=sys_getUserName();
}
else
if(sys_getAppAppCurDisposeName()=="归档")
{
//alert(1);
txtkeeponfiles.value=sys_getUserName();
}
}
else
setTimeout("test()",1000);
}
function initpage()
{
//var id=txtcode.value;
if(parent.Request.QueryString('id').toString()!=null)
{
txtcode.value=parent.Request.QueryString('id').toString();
}
else
{
txtcode.value=window.dialogArguments[1]
}
if (id!='')
{
var sql="select MainID,ID,Name,contents,time from TechnologyMeetingAdvice where id='"+txtcode.value+"'";
//alert(sql);
dataset3.Open(sql);
}
}