学步园

Sub Initialize
 On Error Goto errormsg
 '表单最后保存时执行LotusScript代码
 Dim  sql as string,fldLst as new lcfieldList,sql2 as string ,rowlen as string,uid as string
 dim MyCon as Lcconnection
        dim doc  as notesdocument
        dim titles as string,serialno as string,processNum as string,department as string,workdates as string,workNumber as string
        dim names as string ,overTime as string,overTimeQuantity as string,reason as string,record as string,ratifyTime as string,HRAssistant as string,ratify as string,audit as string,proposer as string
     
                   
 
 
 rowlen = cint(WF_document.rowcount(0))
 uid  = WF_document.WF_DocUNID(0)
 Msgbox rowlen +"   whil qh rowlen "
 Msgbox "id:   " +uid 
         sql = |SELECT * FROM dbo.BPM_MainData where WF_DocUNID ='| + uid+ |'|

      
       Msgbox "sql      .... "+sql
 set MyCon=rdb.GetNewConnect()

   call rdb.connect()
 call WF_Con.Execute(sql,fldLst)
 
 
 while WF_Con.fetch(fldLst)
  set doc=rdb.GetTmpDoc(fldLst)
  Msgbox "in in i nin in in in ......."
  if rowlen = 2 then
          Msgbox "row ==2"
          
   titles =  doc.title(0)
   serialno  = doc.serialno(0)
   processNum = doc.processNum(0)
   department = doc.department(0)
   workdates = doc.workdate(0)
   workNumber  = doc.workNumber_1(0)
   names  = doc.name_1(0)
   overTime = doc.overTime_1(0)
   overTimeQuantity = doc.overTimeQuantity_1(0)
   reason  = doc.reason_1(0)
   record = doc.record_1(0)
   ratifyTime = doc.ratifyTime_1(0)
   HRAssistant = doc.HRAssistant(0)
   ratify = doc.ratify(0)
   audit = doc.audit(0)
   proposer = doc.proposer(0)
 
   sql2 = "INSERT INTO [ce-linkOA].[dbo].[OVERTIME_REQUEST](serialno,title,department,overTime,overTimeQuantity,workdate)  values ('"+serialno+"','"+titles+"','"+department+"','"+overTime+"','"+overTimeQuantity+"','"+workdates+"') "
   call MyCon.execute(sql2,nothing)
   
   '要查询整表的SQL
   'sql = | INSERT INTO [ce-linkOA].[dbo].[OVERTIME_REQUEST] ( title, serialno, processNum, department, [date], workNumber, name,overTime, overTimeQuantity, reason, record, ratifyTime, HRAssistant, ratify, audit, proposer, XmlData)|
                 'sql = sql + |values('"+titles +"','"+serialno  +"','"+processNum +"','"+department +"','"+dates +"','"+workNumber  +"','"+names  +"','"+overTime +"','"+overTimeQuantity +"',)|
  end if
  
  
  if rowlen >2 then
         Msgbox "row > 2"
   For  i = 1 to rowlen
    workNumber  = doc.getitemvalue("workNumber_" & i)(0)
    titles =  doc.title(0) 
    serialno  = doc.serialno(0) 
    department = doc.department(0)
    names  = doc.getitemvalue("name_" & i)(0) 
    overTime = doc.getitemvalue("overTime_" & i)(0)
    overTimeQuantity =  doc.getitemvalue("overTimeQuantity_" & i)(0)
    reason  =  doc.getitemvalue("reason_" & i)(0)
    record = doc.getitemvalue("record_" & i)(0)
    ratifyTime = doc.getitemvalue("ratifyTime_" & i)(0)
           sql2 = "INSERT INTO [ce-linkOA].[dbo].[OVERTIME_REQUEST](serialno,title,department,overTime,overTimeQuantity,workdate)  values ('"+serialno+"','"+titles+"','"+department+"','"+overTime+"','"+overTimeQuantity+"','"+workdates+"') "
    call MyCon.execute(sql2,nothing)
   Next
  end if
  
  wend
  
 
 
 Exit Sub
errormsg:
 Msgbox "Form WebQuerySave Rule Error:" & Str(Erl) & "  " & Error
End Sub