关于会签

zhengy123 2003-02-24 02:33:02
这是一个并发的文件会签程序,请帮我看看问题出在哪?会签人员接到文档后,在视图中看到文档标题,但无法点开连接,批阅文档,点击视图中的标题就出现“该页无法显示”
Sub Initialize

On Error Goto Errhandle
Dim session As New NotesSession
Dim doc As NotesDocument
Dim Maildoc As NotesDocument
Dim doc1 As NotesDocument
Dim docConfigure As NotesDocument
Dim vfldNextUsersCount As Variant
Dim vfldNextUsers As Variant
Dim mdocid As String
Dim item As NotesItem
Dim k As Integer
Dim CurDb As NotesDatabase
Dim MailDb As NotesDatabase
Dim gwsendform, gwsendto As Variant
Set doc = session.DocumentContext
Set CurDb = session.CurrentDatabase
Set db = session.GetDatabase( "", "oaconfig.nsf" )
Set view = db.GetView( "viewFwConfigure" )

' note.SaveOptions = 0
'If doc.HasItem("$$Return") Then
' doc.RemoveItem("$$Return")
'End If
Dim vfldNextStep As Variant
Dim vfldCurrStep As Variant
vfldNextStep = doc.fldNextStep

vfldCurrStep = doc.fldCurrStep

Set docConfigure = view.GetDocumentByKey( vfldCurrStep(0))
i = 0
While (i < Cint(doc.tempSelectIndex(0)))
Set docConfigure = view.GetNextDocument( docConfigure )
i = i + 1
Wend

Dim vtmpfldNextNo0 As Variant
Dim vtmpfldNo0 As Variant
vtmpfldNextNo0 = docConfigure.fldNextNo
vtmpfldNo0 = docConfigure.fldNo
doc.fldPrevStep = doc.fldCurrStep
doc.nextdbsxdatabase = doc.dbsxdatabase
Messagebox("2")
If (vtmpfldNextNo0(0) = "0") Then
doc.Form = "delete"
Else
Messagebox("3")
Set docConfigure1 = view.GetDocumentByKey( vtmpfldNextNo0(0))
Dim vtmpTypeSubject As Variant
Dim vtmpTypeContent As Variant
Dim vtmpTypeAttachment As Variant
Dim vtmpTypeComment As Variant
Dim vtmpfldNo As Variant
Dim vtmpfldNextNo As Variant

vtmpTypeSubject = docConfigure1.fldTypeSubject
vtmpTypeContent = docConfigure1.fldTypeContent
vtmpTypeAttachment = docConfigure1.fldTypeAttachment
vtmpTypeComment = docConfigure1.fldTypeComment
vtmpfldNo = docConfigure1.fldNo
vtmpfldNextNo = docConfigure1.fldNextNo
Messagebox("4")
doc.open_type_subject = vtmpTypeSubject
doc.open_type_content = vtmpTypeContent
doc.open_type_attachment = vtmpTypeAttachment
doc.open_type_comment = vtmpTypeComment
doc.fldCurrStep = vtmpfldNo
doc.fldNextStep = vtmpfldNextNo

gwsendfrom = doc.LoginUser
gwsendto = doc.fldNextUsers
vfldNextUsers=doc.fldNextUsers
Messagebox("5")
vfldNextUsersCount=doc.fldNextUsersCount

k=Val(vfldNextUsersCount(0))-1
'增加流程
result = AddFWTrace(doc.docauthor , doc.fldSelectOperation(0), doc.fldNextUsers )
If Not result Then
Exit Sub
End If
'vfldNextUsersCount=vfldNextUsersCount+1
'added by ljc 2002,5,27 以下是并发处理,将主文档复制n份,并把子文档的作者姓名添加到主文档的作者域中,而子文档的
'读者域也是它本人,发送链接至各人,然后改变主文档的角色
Set item = doc.GetFirstItem( "docauthor" )
Set item1=doc.GetfirstItem("docreader")
Dim newDoc As NotesDocument
Messagebox(k)
For i=0 To k
Messagebox("7")
Set doc1 = CurDb.CreateDocument
Call doc.CopyAllItems( doc1, True )
doc1.docauthor=vfldNextUsers(i)
doc1.docreader=vfldNextUsers(i)
doc1.mdocid=doc.UniversalID
doc1.fldDocID="f"+doc1.UniversalID
Call item.AppendToTextList(vfldNextUsers(i))
item.IsAuthors=True
Call item1.AppendToTextList(vfldNextUsers(i))
item1.IsReaders=True
doc1.childflag="1"
doc1.fldNextUsersCount="1"
doc1.oldcomment = ""
doc1.fldNextUsers = ""
doc1.tempSelectRole = ""
doc1.fldSelectUser = ""
'置发送时间
doc1.fldCurrDate = doc1.fldFsSj(0)
'会签子文档的邮件文档(void)
Set newDoc = New NotesDocument(CurDb )
doc1.dbsxformid = "d" + newDoc.UniversalID '会签子文档记录邮件ID
Call doc1.save(True,True)
'向接受人的邮箱发送链接
newDoc.Form = "index"
newDoc.Subject = doc1.subject(0)
newDoc.Principal = gwsendfrom
newDoc.SendTo = vfldNextUsers(i)
newDoc.dbn = "gzl1.nsf"
newDoc.viewname = "viewFwDocID"
newDoc.docid = doc1.fldDocID
newDoc.api_wb_wdlx = doc.form_type(0)
'Messagebox(vfldNextUsers(i)+"="+doc1.fldDocID)
newDoc.Send(False)
Messagebox("8")

Next
'end ljc 2002,5,27
''''将主文档置于下一个状态,等待子文档的答复begin

Set docConfigure1 = view.GetDocumentByKey( vtmpfldNextNo(0))

doc.fldPrevStep = doc.fldCurrStep

vtmpTypeSubject = docConfigure1.fldTypeSubject
vtmpTypeContent = docConfigure1.fldTypeContent
vtmpTypeAttachment = docConfigure1.fldTypeAttachment
vtmpTypeComment = docConfigure1.fldTypeComment
vtmpfldNo = docConfigure1.fldNo
vtmpfldNextNo = docConfigure1.fldNextNo

doc.open_type_subject = vtmpTypeSubject
doc.open_type_content = vtmpTypeContent
doc.open_type_attachment = vtmpTypeAttachment
doc.open_type_comment = vtmpTypeComment
doc.fldCurrStep = vtmpfldNo
doc.fldNextStep = vtmpfldNextNo

'''end将主文档置于下一个状态,等待子文档的答复
'向当前人的邮箱发送链接
If doc.dbsxformid(0) <> "" Then
Set MailDb = session.GetDatabase( "", doc.dbsxdatabase(0) )
Set MailView = MailDb.GetView( "viewIndexDocid" )
Set Maildoc = MailView.GetDocumentByKey( doc.dbsxformid(0) )
If Not (Maildoc Is Nothing ) Then
Maildoc.api_wb_wdlx="会签待答复"
Call Maildoc.Save( True ,True)
End If
Else
Set newDoc = New NotesDocument(CurDb )
doc.dbsxformid = "d" + newDoc.UniversalID
newDoc.Form = "index"
newDoc.Subject = doc.subject(0)
newDoc.Principal = gwsendfrom
newDoc.SendTo = doc.loginUser
newDoc.dbn = "gzl1.nsf"
newDoc.viewname = "viewFwDocID"
newDoc.docid = doc.fldDocID
newDoc.api_wb_wdlx = "会签待答复"
'Messagebox(vfldNextUsers(i)+"="+doc1.fldDocID)
newDoc.Send(False)
End If
doc.fldCurrDate = doc.fldFsSj(0)
Messagebox("end")
End If
Exit Sub
Errhandle:
Print "<br>"
Print "parallel Agent Error In Line:" & Str(Erl) & " " & Str(Err) & ": " & Error$
End Sub
...全文
111 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
阿古 2003-02-26
  • 打赏
  • 举报
回复
把数据库签个名 应该可以解决!!
zhengy123 2003-02-24
  • 打赏
  • 举报
回复
看看呀,很急的。搞了2天了,没进展,帮帮忙
zhengy123 2003-02-24
  • 打赏
  • 举报
回复
to chunlai80:可不可以说得明白点,我没看懂,"表单里有关查询的地方"?没有呀
to agu:不是。就是在视图中将某一列显示的属性中选择了,“将列值显示为连接”
阿古 2003-02-24
  • 打赏
  • 举报
回复
你的试图的连接地址是你自己写的么?(你是不是将试图保存为HTML格式了?)


chunlai80 2003-02-24
  • 打赏
  • 举报
回复
你的表单里的有关查询的地放有问题。你仔细检查一下。
zhengy123 2003-02-24
  • 打赏
  • 举报
回复
控制台显示的代理运行没有错。但是在点开文档连接时,出现如下说法:HTTP Web Server: Lotus Notes Exception - Entry not
found in index
[/oa/gzl1.nsf/viewFwDocID/fDA8CCF54274FE60F48256CD7001423C0?OpenDocument&k]
阿古 2003-02-24
  • 打赏
  • 举报
回复
看看服务器工作台有什么提示!!

估计是权限不够!!
文件控制程序(7)全文共4页,当前为第1页。文件控制程序(7)全文共4页,当前为第1页。文件控制程序 文件控制程序(7)全文共4页,当前为第1页。 文件控制程序(7)全文共4页,当前为第1页。 目的 质量、环境、职业健康安全管理体系文件的批准、发布、传递、更改、作废和保管均处于受控状态,确保在管理体系的运行场所均能获得适用文件的有关版本。 适用范围 公司及公司属各二级单位与质量、环境、职业健康安全管理体系有关的文件和资料的控制,包括外部提供的有关文件。 3. 术语 外来文件:与质量、环境、职业健康安全管理体系运行有关的国家法律、法规、标准等;行业、地方颁布的条例、标准、规程、办法等;上级主管部门颁发的管理办法、规定等文件。 4. 职责 4.1公司总经理负责审批、发布《管理手册》。 4.2管理者代表审核《管理手册》及发放范围。 4.3工程管理部负责组织《管理手册》的编写、修改、换版。 4.4公司总经理工作部负责对全公司性文件实施监控和相关文件的发放、回收销毁。 4.5公司各个部门负责对本部门起草下发的文件实施监控和督办。 4.5标准、规范及技术性外来文件由工程管理部实施控制。 4.6公司机关各部门和公司属各单位负责业务范围内文件的拟定和保管,并参与管 体系文件的编写。 4.7公司档案室负责全公司所有存档文件资料的收集、整理、归档、保管。 5. 工作程序 5.1文件管理工作流程示意图: 文件控制程序(7)全文共4页,当前为第2页。文件控制程序(7)全文共4页,当前为第2页。 文件控制程序(7)全文共4页,当前为第2页。 文件控制程序(7)全文共4页,当前为第2页。 总(副)经理会签、签发有关部门拟稿、校稿相关部门会签总经理工作部校稿外来文件总经理工作部收文登记总(副)经理批示总经理工作部传递职能部门传阅、承办档案室存档总经理工作部编号上报、外发拟稿部门执行单位、部门外来文件内部文件总(副)经理会签、签发有关部门拟稿、校稿相关部门会签总经理工作部校稿外来文件总经理工作部收文登记总(副)经理批示总经理工作部传递职能部门传阅、承办档案室存档总经理工作部编号上报、外发拟稿部门执行单位、部门外来文件内部文件 总(副)经理会签、签发 有关部门拟稿、校稿 相关部门会签 总经理工作部校稿 外来文件 总经理工作部 收文登记 总(副)经理批示 总经理工作部传递 职能部门 传阅、承办 档案室存档 总经理工作部编号 上报、外发 拟稿部门 执行单位、部门 外来文件 内部文件 总(副)经理会签、签发 有关部门拟稿、校稿 相关部门会签 总经理工作部校稿 外来文件 总经理工作部 收文登记 总(副)经理批示 总经理工作部传递 职能部门 传阅、承办 档案室存档 总经理工作部编号 上报、外发 拟稿部门 执行单位、部门 外来文件 内部文件 定期销毁定期销毁 定期销毁 定期销毁 5.2文件和资料的分类 a.管理体系文件; b.技术文件(包括技术标准、规范图纸等)和工艺文件(包括作业指导书、工艺操作规程等); c.外来文件(包括国家、地方、上级主管部门发布的与质量、安全、环保相关的法律、法规、标准); d.管理性文件(各种管理制度、条例、办法、规定); e.其他类文件(上级主管部门、顾客、工程监理及其他方面往来的文件)。 5.3文件的编写与审批 文件控制程序(7)全文共4页,当前为第3页。文件控制程序(7)全文共4页,当前为第3页。5.3.1《管理手册》由工程管理部负责组织有关责任部门编写,管理者代表审核,公司总经理审批发布。 文件控制程序(7)全文共4页,当前为第3页。 文件控制程序(7)全文共4页,当前为第3页。 5.3.2公司内管理性文件和作业指导书的拟定由各有关部门负责,填写"中国水利水电第六工程局有限公司发文办理单(10.1-1)"后,由公司主管领导审批。 5.3.3文件原稿和发文稿纸交公司总经理工作部存档。 5.4文件的编号 5.4.1《管理手册》及公司管理性文件经审批后,由公司总经理工作部编号登记后由责任部门予以发放。 5.4.2公司管理性文件的编号方法:按《中国水利水电第六工程局有限公司公文处理暂行规定》和《关于规范公文处理程序和公文办理有关要求的通知》(局长办字〔2007〕3号)的规定执行。 5.5文件的收发登记、归档和借阅 5.5.1公司内管理性文件和外来文件由公司总经理工作部负责收发、登记、立卷归档。需要存档的文件,由公司档案室按《企业档案管理规定》负责归档与借阅。 5.5.2文件在发放时,由总经理工作部文书通过办公系统发放。 5.5.3公司属各单位、机关各部门须建立完善文件收发登记制度。 5.6外来文件的控制 外来文件的识别、发放、更新执行《法律法规及其他要求程序》 5.7文件更改 5.7.1《管理手册》更改时由原编写部门提出更改意见,工程管理部汇
天津联美化学工业有限公司程序文件 Q/RC GKKZ-06 与顾客有关过程控制程序 2011-01-15 发布 2011-01-15 实施 天津联美化学工业有限公司 发 布 "程序文件 "与顾客有关过程控制程序 " "文件编号:Q/RC "文件版本:1.00 "生效日期:201101"共 4 页 第 2 页 " "GKKZ-06 " "15 " " " " "1 目的 " "为确保充分识别并确定与产品有关的要求,充分了解顾客的要求和期望,对其实施" "有效的评审,确保本公司有满足这些要求的能力,以达到顾客的满意。 " "2 范围 " "本程序规定了对于顾客有关的过程控制原则和方法。本程序适用本公司承担的产品" "对顾客要求的识别、对产品要求的评审及与顾客的沟通。 " "3 定义(无) " "4相关文件 " "4.1 Q/RC WJKZ-03文件控制程序; " "4.2 Q/RC JLKZ-04记录控制程序; " "4.3 Q/RC GKMY-11顾客满意度测量控制程序。 " "5 职责 " "5.1销售部是本程序主管部门,负责合同评审的组织实施,并参与顾客沟通。 " "5.2技术服务部、品控部参与合同评审及会签。 " "5.3销售部会同技术服务部、品控部与顾客进行合同洽谈并参与评审及会签,向公 " "司和顾客提供合同洽谈、评审所需有关技术资料,对重大关键技术问题提出意见," "确定产品的有关要求。 " "6 流程图(见下页) " "7 工作程序 " "7.1与顾客有关要求的确定 " "技术服务部根据顾客提出的要求,包括合同草案、已会签的技术规格书、技术协议" "、研制任务书及口头定单等确定顾客的要求,并由销售部填写"合同评审表"或"产 " "品订单",将结果形成记录并提供评审。顾客的要求包括: " "顾客规定的要求,以及支付、服务、价格等方面的要求; " "产品规定的用途或已知的预期用途所必要的要求; " "与产品有关的法律法规要求以及关于交付、运输、售后服务的承诺等附加要求。 " "7.2与产品有关要求的评审 " "7.2.1合同评审应在签订合同之前进行。 " "7.2.2合同评审分级别采用审签、会签和会议评审三种方式进行。 " "程序文件 "与顾客有关过程控制程序 " "文件编号:Q/RC "文件版本:1.00 "生效日期:201101"共 4 页 第 3 页 " "GKKZ-06 " "15 " " " " " " "与顾客有关过程控制流程图 " " " "程序文件 "与顾客有关过程控制程序 " "文件编号:Q/RC "文件版本:1.00 "生效日期:201101"共 4 页 第 4 页 " "GKKZ-06 " "15 " " " " "7.2.3当合同中没有特殊要求,经鉴定和定性后的常规性、重复性产品时,填写"合" "同评审表"由销售部审签。 " "7.2.4当合同中有特殊要求,如采用新材料、新工艺导致生产周期延长时, " "填写"合同评审表",采用会签方式评审。 " "7.2.5当新产品研制合同要求技术含量高、难度大、协作单位多、风险大时,采用 " "会议方式进行评审,填写"合同评审报告"。 " "7.2.6技术服务部负责评审输入材料的准备,提供有关技术协议、合同草案、技术 " "规格书或研制任务书等已确定的顾客要求。评审应确保: " "a) 产品要求得到了规定,并形成了文件; " "b) 与以前表述不一致的合同或订单的要求已予解决; " "c) 有能力满足规定的有关产品要求。 " "7.2.7评审后销售部向顾客沟通并最后得到确认实施合同,正式列入生产计划。 " "7.2.8销售部负责保存合同评审记录和生效的合同文本,并在项目完成后归档。 " "7.3 合同的修订 " "7.3.1在合同签订前、履行合同过程中及产品交付后,技术服务部应就产品信息、 " "合同修改、顾客反馈等事项不断与顾客沟通,与顾客达成共识。 " "7.3.2需对合同进行修订时,应由技术服务部填写"合同修改单",并按有关要求重 " "新评审。 " "7.3.3销售部负责合同修订的审核,并与顾客沟通。 " "7.3.4合同修订后,应确保相关文件得到修改,并确保有关人员知道已变更的要求 " "。 " "8 应用表格 " "8.1 合同评审报告(QMS-06-01); " "8.2 合同评审表(QMS-06-02); " "8.3 合同修改单(QMS-06-03)。 " "附加说明 " "编制: " "校对: " "审核: " "批准: " ----------------------- 程序文件06-与顾客有关过程控制程序全文共4页,当前为第1页。 程序文件06-与顾客有关过程控制程序全文共4页,当前为第2页。 程序文件06-与顾客有关过程控制程序全文
汽车电器有限公司 文件编号:JQP0101 文件名称:产品开发控制程序 编写小组: 批 准: 批准: 日期: 部门 会签/日期 部门 会签/日期 分 发 修改单号 修改状态 修改摘要 生效日期 执行人 修 改 记 录 文件编号 版次 拟制 审核 批准 页号 CJQP0101 D/0 汽车电器有限公司 2/6 产品开发控制程序 目的: 引导资源使用户满意, 促进对所需更改的早期识别从而避免晚期更改, 以最低的成本生产出用户满意的产品。 适用范围:适用于本公司所有产品的质量策划。 阶 段 工作流程 输 入 输 出 责任部 门/人 配合部 门/人 说明 一、 计 划 和 确 定 项 目 试制协议/开 发协议 开发任务书/ 设 计 输 入 评 审资料 初 始 设 计 方 案/评审报告 产 品开发 可行 性分析报告/产 品 成本估 算清 单/报价单 开发任务书 传真/产品材料 特性、光特性、 电气性能、 机械 性能汇总表/初 始设计方案/设 计输入汇总表/ 评审报告 产 品开发 进度 计划 设计方案/评审 报告/初始材料 清单 管代/销 售科 管代 项 目 经 理 产 品 开 发 项 目 组长 产 品 开 发 项 目 组长 工程部 工程部 工程部 项 目 小 组 项 目 小 组 1.1 产品开发可行性分析 1.1.1 销售科负责收集顾客要求开 发的产品要求/进度/产能/成本/ 市场分析等资料; 1.1.2 工程部负责产品成本估算; 1.1.3 销售科负责组织相关人员进 行开发可行性评审及拟制报价单, 交管代审批。 1.2 开发批准 1.2.1 管代负责与主机厂签定试制 协议、 技术协议等, 归档于资料室, 并指定项目经理(项目经理原则上 由设计科科长/电子开发室主任/ 组长担任) ; 1.2.2 项目经理根据试制协议、技 术协议等填写开发任务书,确定设 计目标、可靠性目标、质量目标, 产品开发/过程开发/产品确认各 阶段项目组长及项目小组成员,提 交管代批准。 1.3 设计输入汇总与评审 项目经理根据管代下达的开发任 务书启动项目并组织结构负责人、 电路负责人(根据需要)和工艺负 责人对设计输入资料进行收集和 评审,初始设计方案提交给用户前 必须经过管代的批准。来样开发的 产品可根据实际情况由项目经理 确定是否需要初始设计方案。 1.4 制定开发计划 开发计划由产品开发项目组长制 定,项目小组成员会签,项目经理 审核,管代批准。开发计划在实施 过程中的变动,由项目经理动态调 整,相关人员评审/审批。 1.5 设计方案制定/评审/批准 1.5.1 产品开发项目组长组织产 品的设计方案, 结构负责人、 电路 负责人(根据需要)负责实施。 1.5.2 来样测绘改进的开发仅需 提交改进方案, 经相关部门评审后 随产品开发进度计划一起提交给 管代批准。 1.5.3 自行设计开发的产品,原则 上出具两种以上的设计方案。经相 关部门评审后提交给管代批准。注 意:自行开发的产品外形设计一般 都需要经过用户的批准。 开发可行性分析 制定开发计划 开发批准/ 成立项目小组 设计输入汇总 与评审 设计方案制定/ 评审/批准 A 文件编号 版次 拟制 审核 批准 页号 CJQP0101 D/0 汽车电器有限公司 3/6 产品开发控制程序 目的: 引导资源使用户满意, 促进对所需更改的早期识别从而避免晚期更改, 以最低的成本生产出用户满意的产品。 适用范围:适用于本公司所有产品的质量策划。 阶 段 工作流程 输 入 输 出 责任部 门/人 配合部 门/人 说明 二、 产 品 设 计 和 开 发 设 计 方 案 / 评审报告 DFMEA/ 设 计 说明书 产品开发责任 书 ( QFD ) /DFMEA/DVP&R /设计说明书 线路板绘制通 知 单 / 设 计 文 件入档登记表 / 产 品 和 过 程 特殊特性清单 /设计文件/设 计 验 证 / 评 审 报告 项 目 小 组 设计科/ 电 子 开 发室 项 目 小 组 2.1 产品设计分析 2.1.1 结构负责人、 电路负责人 (根 据需要)和工艺负责人在产品设计 初期开始制订产品开发责任书(设 计输入—产品要求—零件要求— 工艺要求) 。产品开发责任书多阶 段输出,设计输入—产品要求—零 件要求由产品开发项目组长组织 完成,零件要求—工艺要求由过程 开发项目组长组织完成。 2.1.2 结构负责人、 电路负责人 (根 据需要)根据产品开发责任书制定 DFMEA,并形成 DVP&R。DFMEA 贯穿 于整个产品开发过程及随后的生 产、销售、使用过程中,是一个动 态的技术文件。 2.1.3 结构负责人、 电路负责人 (根 据需要)编制设计说明书,应着重 于结构的合理设计、尺寸链的计 算、电子元器件的合理选型等。设 计

535

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧