[AP] 相關調閱 open other dbDoc

SubFm approve Send
'//---------20121129 update SerialNumber to ClaimDoc by Mesha----------
If Ucase(SourceDoc.isFromClaim(0)) = "Y" And SourceDoc.ClaimUniqueID(0) <> ""  And SourceDoc.pwcUniqueID(0) <> ""Then
Dim cldb As NotesDatabase, clvi As NotesView, cldoc As NotesDocument
Set cldb  = New NotesDatabase(SourceDB.Server, "ap\office\ap406.nsf")
If cldb Is Nothing Then Print "not found Claim db!!" : Exit Sub
Set clvi = cldb.GetView("View-pwcUniqueID")
If clvi Is Nothing Then Print "not found ClaimDB's view: View-pwcUniqueID!!" : Exit Sub
Set cldoc = clvi.GetDocumentByKey(SourceDoc.ClaimUniqueID(0), True)
If Not cldoc Is Nothing Then
Call cldoc.ReplaceItemValue("CAR_Y", SourceDoc.SerialNumber(0))
Call cldoc.ReplaceItemValue("RMADocNo", SourceDoc.SerialNumber(0))
Call cldoc.ReplaceItemValue("RMAUniqueID", SourceDoc.pwcUniqueID(0))
Call cldoc.Save(True, True)
End If
End If
'------------------------------------------------------------------------------------------------------


Function CM_OpenClaimDoc() As Integer
'//調閱Claim申請單
On Error Goto errorhandler
'Call jmcf_SetNewUIVars()
Dim jmcuiws As New NotesUIWorkspace
Dim jmcss As NotesSession
Dim uidoc As NotesUIDocument
Dim jmcdoc_Source As NotesDocument
Dim jmcdb As NotesDatabase
Dim jmcuidoc As NotesUIDocument
Dim jmcstr_ClientType As String

Set jmcss = New NotesSession
Set jmcdb = jmcss.CurrentDatabase
Set jmcuiws = New NotesUIWorkspace
Set jmcuidoc = jmcuiws.CurrentDocument
If Not (jmcuidoc Is Nothing) Then
Set jmcdoc_Source = jmcuidoc.Document
End If

CM_OpenClaimDoc = True
'
Dim tgdb As NotesDatabase, tgvi As NotesView, tgdoc As NotesDocument, tgcol As NotesDocumentCollection
Dim tmpuidoc As NotesDocument
Dim ws As New NotesUIWorkspace
'
Set tgdb = New NotesDatabase(jmcdb.Server, "ap\office\ap406.nsf")
If tgdb Is Nothing Then Error 997, "not found Claim & Deviation sys. db!!"
Set tgvi = tgdb.GetView("View-pwcUniqueID")
If tgvi Is Nothing Then Error 997, "not found Claim view: View-pwcUniqueID!!"
'Set tgdoc = tgvi.getdocumentbykey(jmcdoc_Source.GetItemValue("claimuniqueid")(0),True)
Set tgdoc = tgvi.GetDocumentByKey(jmcdoc_Source.ClaimUniqueID(0), True)
If tgdoc Is Nothing Then
Messagebox "not found Claim document!!"
Else
Call ws.EditDocument (False,tgdoc)
End If



TheEnd:
Exit Function
ErrorHandler:
CM_OpenClaimDoc = False
Print "SubFm: Approval: CM_OpenClaimDoc() error line = " + Cstr(Erl) + ", error = " + Error$
Resume TheEnd
End Function