To add an alternative to a script locator you have to set the text of the alternative and the confidence. The code snippet shows the script to add an alternative from a script locator named 'LocatorName'. The text of the alternative is "text of alternative" and the confidence is set to 20%.

Private Sub LocatorName_LocateAlternatives(ByVal pXDoc As CASCADELib.CscXDocument, ByVal pLocator As CscXDocField)

   Dim oAlt As CscXDocFieldAlternative

   Set oAlt = pLocator.Alternatives.Create()
   oAlt.Text = "text of alternative"
   oAlt.Confidence = 0.2

End Sub

To find the most recent date on a document, a format locator and a script locator can be combined. The format locator finds all possible dates on the document as alternatives. The script locator loops over all alternatives of the format locator (all possible dates) and picks the newest date and copies this as its own alternative. A date formatter is used to get the actual date value from the date string.

This might be useful to find the invoice date on a document, which is after the order and ship date, but before the due date. Of course it works only for current invoices, not for old documents.

Please take care to adjust the name of the format locator, the script locator and the date formatter before running the script.

Private Sub NewestDate_LocateAlternatives(pXDoc As CASCADELib.CscXDocument, pLocator As CscXDocField)

   Dim pDate As CscXDocField
   Dim pDateAlt As CscXDocFieldAlternative
   Dim i As Long
   Dim count As Long
   Dim MaxDate As Date
   Dim CurDate As Date
   Dim pTmpFeld As CscXDocField
   Dim MaxDateIndex As Long
   Dim pNewAlternative As CscXDocFieldAlternative

   MaxDate = Now - 3000
   MaxDateIndex = -1

   ' use actual Name of Format-Locator here, from where you want to take alternatives
   Set pDate = pXDoc.Locators.ItemByName("Date")
   count = pDate.Alternatives.Count

   For i = 0 To count - 1

      Set pDateAlt = pDate.Alternatives(i)
      Set pTmpFeld = New CscXDocField
      Set pTmpFeld = New CscXDocField

      pTmpFeld.Text = pDateAlt.Text
      StandardDatumsFormatierer.FormatField pTmpFeld

      If pTmpFeld.DateFormatted = True Then
         ' look for newest date before today
         If pTmpFeld.DateValue > MaxDate And pTmpFeld.DateValue <= Now Then
            ' remember this value
            MaxDateIndex = i
            MaxDate = pTmpFeld.DateValue
         End If
      End If

   Next i

   ' copy alternative with newest date before today
   If MaxDateIndex > -1 Then

      Set pDateAlt = pDate.Alternatives(MaxDateIndex)
      pNewAlternative = pLocator.Alternatives.Create

      ' copy all values            
      pNewAlternative.Text = pDateAlt.Text
      pNewAlternative.Left = pDateAlt.Left
      pNewAlternative.Top = pDateAlt.Top
      pNewAlternative.Width = pDateAlt.Width
      pNewAlternative.Height = pDateAlt.Height
      pNewAlternative.PageIndex = pDateAlt.PageIndex
      pNewAlternative.Words.Append(pDateAlt.Words(0))
      pNewAlternative.Confidence = pDateAlt.Confidence

   End If

End Sub