Example: IdentifierField property

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