[back to Anatomy of a Domino e-commerce Web site (Part 3)]

The (OrderWebQuerySave) agent
Here is the code for the (OrderWebQuerySave) agent:

Sub Initialize

Dim s As New NotesSession, db As NotesDatabase
Dim doc As NotesDocument
Dim strOrderID As String, strCartID As String
Dim strDBPath As String, strErrorMessage As String, vCartID As Variant

Set db = s.CurrentDatabase
Set doc=s.DocumentContext

Dim vPath As Variant

'Set URL path for this database

vPath=Evaluate({@ReplaceSubstring (@Subset (@DbName; -1); "\\" : " "; "/" : "+")})

'Get the CartID and OrderID as calculated on the Order document

strCartID = doc.CartID(0)
strOrderID = doc.ID(0)

'Perform field validations. Any errors will result in this order being saved as a
'draft and then it will be redisplayed to user with error message.

Dim vFieldVal As Variant
Forall ReqField In doc.RequiredCustFields
vFieldval = doc.GetItemValue (ReqField)
If vFieldval(0) = "" Then
doc.Status = "Draft"
Call doc.Save (False, True)
Goto ReturnErrorMessage
End If
End Forall

'If we make it this far there are no field validation problems. Save the order
'and call the CreditCard agent

doc.Status = "ReadyToCharge"
Call doc.Save (False, True)

'We use a separate agent for the credit card processing so the LSX doesn't
'have to load each time the order form saves. Only when validation has
'passed do we actually want to perform the credit card procesing.

Print "[/" + vPath(0) + "/CreditCard?OpenAgent&CartID=" + strCartID + "&r=" + strOrderID + "]"

Exit Sub

ReturnErrorMessage:

'Since there were validatoin errors, redisplay the order

Print "[/" + vPath(0) + "/0/" + doc.UniversalID + "?EditDocument&CartID=" + strCartID + "&ValError]"

End Sub