InputContact Scripted Form Example

The following example code uses a scripted form to prompt for a Customer, then set the lists of contacts to match the customer.

Dim eCustomer as Object, eContact as Object
Sub OnCustomerExit(Sender as object)
  If eCustomer.Value <> "" Then
    eContact.SetSubset(eCustomer.Value)
  End If
End Sub
Dim scForm1 as Object
scForm1 = CreateObject("Accredo.ScriptedForm")
eCustomer = scForm1.InputCode("eCust","ARCUST","Customer Code","",True,False,True)
eContact = scForm1.InputContact("eContactID", "ARCONTCT", "","Contact","",false,true)
eCustomer.OnExit = AddressOf(OnCustomerExit)
'DocumentObject(eContact)
'Print eContact.IndexName
Do
  If scForm1.Execute Then
    scForm1.BringtoFront
    eCustomerCode = scForm1.GetValue("eCust")
    eContactID = scForm1.GetValue("eContactID")
    Exit Do
  Else
    'Cancelled
    Abort("",true)
  End If
Loop