After I press a form buttion, when I click the document in the view , it appears “Warning : Ignoring portion of document that use a feature from another version of Notes”
The following script is detail inside the button:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim curdoc As NotesDocument
Dim docno As String
Dim stockinview As NotesView
Dim stockincon As NotesDocumentCollection
Dim stockindoc As NotesDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim user As String
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set curdoc = uidoc.Document
docno = curdoc.DocumentNumber(0)
If CheckIfUserIsUsingFingerPrint() Then
user = FingerIdentity()
If user = "" Then
Exit Sub
End If
Else
user = GetUserOfficialName()
End If
''''Update Stock In Records
Set stockinview = db.GetView("Internal Stock Transfer Item")
Call stockinview.Refresh
Set stockincon = stockinview.GetAllDocumentsByKey(curdoc.UniversalID, True)
Set stockindoc = stockincon.GetFirstDocument
While Not stockindoc Is Nothing
stockindoc.ZZ_ConfirmedInternalTransfer = "Confirmed"
Call stockindoc.save(True, False)
Set stockindoc = stockincon.GetNextDocument(stockindoc)
Wend
''''Update Stock Out Records
Call UpdateStockOutWithConfirmedField(curdoc, "Confirmed")
curdoc.ZZ_ConfirmedInternalTransfer = "Confirmed"
curdoc.ReceivedDate = Today
curdoc.ReceivedBy = user
Call curdoc.save(True, False)
Call uidoc.Close