This example function first checks if an invoice contains an identifier field and, if so, displays the rectangle coordinates of the identifier field title and identifier field value in a dialog.

Public Function OnInvoiceInterpreted() As Long

			Dim left As Long

			Dim right As Long

			Dim top As Long

			Dim bottom As Long

			Dim result As Boolean

			Dim field As InvoiceField

			Dim invoice As Invoice   

			Set field = m_oEHCOMAPP.CurrentInvoice.IdentifierField(0)

			If field Is Nothing Then

				MsgBox "Identifier 1 not present"

			Else

				result = m_oEHCOMAPP.CurrentInvoice.IdentifierField(0).GetTitleRectBounds(left, right, bottom, top)

				MsgBox "Title rect for identifier 1: " + Str(left) + ", " + Str(right) + ", " + Str(bottom) + ", " + Str(top)

				result = m_oEHCOMAPP.CurrentInvoice.IdentifierField(0).GetValueRectBounds(left, right, bottom, top)

				MsgBox "Value rect for identifier 1: " + Str(left) + ", " + Str(right) + ", " + Str(bottom) + ", " + Str(top)

			End If

End Function

Related topics

The IdentifierField property

The CurrentInvoice property

The GetTitleRectBounds method

The GetValueRectBounds method