The following AfterLineChange event procedure checks the Subtotal field in the Invoice Entry window when the user enters line item information in the Invoice Entry grid. If the invoice subtotal is greater than $1000, it assigns the transaction to an existing batch:
Private Sub Grid_AfterLineChange() 'Check the Invoice subtotal If CCur(InvoiceEntry.Subtotal) > 1000 Then 'Assign an existing batch InvoiceEntry.BatchID = "BIGSALES" InvoiceEntry.BatchID.Locked = True End If End Sub