从文档中取出当前用户的岗位和职责

原创 2004年08月12日 14:33:00

格式是这个样子的:岗位--职责;岗位--职责......

岗位中可能含有几个职责,一个人可以分别有几个不同有岗位。

1、将这个人的岗位列在一个列表框中,选中一个职责,另一个列表框中自动显示其对应的职责。

 不知道server出了什么问题,寡不执行代理,害得我连最简单的一个代理都调不过去,耽误了近一个小时!!!!

视图名子写错了,取不到值,活该!!

现在数据可以读出来了。可却是这个样子的:

程序员--编写程序代码;程序员--对完成的软件进行测试;程序员--对销售出去的产品和用户协调实施;财务总监--管理公司资产账目;

下面要进行对字符串的操作,同时可能要定义数组。

first 读出的数据中,前面的岗位有可能重复。重复的只取一个就可以了。

second 指定了一个岗位,要能将其下属的所有职责列出来,有点难度:(

先做个备份:
Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim curdoc,doc As NotesDocument
 Dim view As NotesView
 Dim htm,office As String
 Dim job,offi As String
 Dim jobs As Variant
 Dim excute As String
 excute =  "@Unique("
 Set curdoc = s.DocumentContext
 Set db = s.GetDatabase("TEST","renshiguanli.nsf",False)
 Set view = db.GetView("gangweizhize")
 Set doc = view.GetFirstDocument
 
 While Not doc Is Nothing
  
  If doc.name(0) = curdoc.thisuser(0) Then
   htm = htm & "您的岗位:" & doc.jobname(0) & "[
]"
   Dim b As String
   Forall a In doc.alloffice
    htm = htm & a & "[
]"
    b =Strleft(a,"--")
    excute = excute + "'" + b + "':"
   End Forall
  Else
   
  End If
  Set doc = view.GetNextDocument(doc)
 Wend
 htm = htm & excute & "'')"
 excute = excute & "'')"
 jobs = Evaluate(excute,curdoc)
 Forall c In jobs
  htm = htm + c
 End Forall
 curdoc.HTMLbody = htm
End Sub

通过以上的代理,现在显示的是这个样子:

程序员--编写程序代码
程序员--对完成的软件进行测试
程序员--对销售出去的产品和用户协调实施
财务总监--管理公司资产账目
@Unique('程序员':'程序员':'程序员':'财务总监':'')
您的岗位有:
程序员财务总监
可以将重复的岗位分检出来了:)

-------------------------------------------------------

以上显示的内容可以在主页显示,后面对于每条“岗位--职责” 的记录都加上一个“新建”

的操作,打开任务表单,直接将岗位和职责带到表单里面去。其实这是一个自己给自己下任务

的过程。当然,要是领导下任务的话要进行选择。

 

以上功能都已实现!

以下是完成给出选择职责列表的代码:

1、点"选择",打开selectjob?openform,后面加上username,标识被下任务的对象

在selectjob?openform打开时执行以下代理,给出列表:

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim curdoc,doc As NotesDocument
 Dim view As NotesView
 Dim htm,office As String
 Dim job,offi As String
 Dim jobs As Variant
 Dim excute As String
 excute =  "@Unique("
 Set curdoc = s.DocumentContext
 Set db = s.GetDatabase("TEST","renshiguanli.nsf",False)
 Set view = db.GetView("gangweizhize")
 Set doc = view.GetFirstDocument
 
 While Not doc Is Nothing  
  If doc.name(0) = curdoc.thisuser(0) Then
   htm = htm & curdoc.thisuser(0) & "的岗位职责列表:" & doc.jobname(0) & "[<br>]"
   Dim b,d As String
   If Not doc.alloffice(0)="" Then
    Forall a In doc.alloffice
     
     b =Strleft(a,"--")
     d =Strright(a,"--")
     htm = htm & {[<input type=radio name="selectjob" value="}
     htm = htm & {&job=}& b & {&office=} & d  &{">]}
     htm = htm & a & "[<br>]"
     excute = excute + "'" + b + "':"
    End Forall
   Else
    htm="此用户没有指定岗位及职责!"
   End If
  Else
   
  End If
  Set doc = view.GetNextDocument(doc)
 Wend
 If Not htm = "此用户没有指定岗位及职责!" Then
  excute = excute & "'')"
  jobs = Evaluate(excute,curdoc)
  'htm = htm & "[<br>]" & "您的岗位有:[<br>]"
  'Forall c In jobs
  ' htm = "[<br>]" & htm + c
  'End Forall
 End If
 curdoc.HTMLbody = htm
End Sub

和上面的一个代理差不多,只不过显示的不同。

通过选择某个记录,就可以将此记录的岗位和职责信息带到表单位中

系统运维部门各岗位职责说明

  • 2015年10月13日 23:26
  • 14KB
  • 下载

测试岗位标准与职责

   测试岗位标准与职责Author: Vince一、        测试工程师岗位要求1)       具备软件开发能力和软件开发经验;2)       熟悉基本的编程语言,比如C/C++等;3) ...
  • vincetest
  • vincetest
  • 2006-12-03 16:29:00
  • 3830

软件架构师的主要工作职责及能力要求

软件架构师的主要工作职责及能力要求,认证
  • huwei2003
  • huwei2003
  • 2016-05-13 08:22:32
  • 4285

软件开发岗位职责描述

软件开发岗位职责
  • wdeng2011
  • wdeng2011
  • 2017-05-24 10:49:01
  • 4118

监控维护人员职责

内容 时间 响应级别 1 监控平台值守 终端软件的监控 (含第三方) 对于监控报警第一时间响应 通过监控终端第一时间对异常进行响应 ...
  • wmnothing
  • wmnothing
  • 2013-09-23 04:40:08
  • 2291

软件项目开发中各岗位职责

岗位:项目经理   主要职责: 1、 计划: a) 项目范围、项目质量、项目时间、项目成本的确认。 b) 项目过程/活动的标准化、规范化。 c) 根据项目范围、质量...
  • JackieLiuLixi
  • JackieLiuLixi
  • 2014-07-25 09:22:27
  • 10227

一个正规软件公司工作职责划分

项目经理工作职责 主要职责: 1、 计划: a)项目范围、项目质量、项目时间、项目成本的确认。 b)项目过程/活动的标准化、规范化。 c)根据项目范围、质量、时间与成本的综合因素的考虑,进行...
  • EnterLly
  • EnterLly
  • 2017-02-08 18:19:54
  • 1033

项目经理 VS 产品经理 (工作职责和要求)

产品经理工作职责和要求 1  产品经理工作职责图 2.1  市场调研与分析  1、市场调查;  2、分析竞争状况;  3、自身资源与满足用户需求的匹配程度(技术、市场资源、营...
  • tantexian
  • tantexian
  • 2015-03-11 15:55:33
  • 6795

架构师的职责及工作描述

什么叫架构师      系统分析员属于Analyst角色组合,与其相比,架构师则是属于Developer 角色组里的一个角色,一个非常重要的角色。架构师的职责及工作描述The software arc...
  • rich1979
  • rich1979
  • 2005-12-26 13:19:00
  • 7962

项目管理工程师岗位职责

项目管理工程师是项目团队的领导者,其所担负的责任就是领导团队能够准时、优质的完成项目的全部工作,从而能够实现项目目标。项目管理工程师的工作就是对项目进行计划、组织以及控制,从而为项目团队完成目标提供领...
  • ziwen00
  • ziwen00
  • 2013-04-14 14:00:48
  • 7552
收藏助手
不良信息举报
您举报文章:从文档中取出当前用户的岗位和职责
举报原因:
原因补充:

(最多只允许输入30个字)