Description

Use IsahRecordpointers object to read or set the current record pointer of a table within a script. This can be particularly useful when you want to set default values in selection fields based on the record pointer. This would primarily concern reports. For example, in the case of invoices, the number of the last invoice opened can be entered as the invoice number by default.

Example

sub Main()

rem Reads the record pointer of the customer table

msgBox IsahRecordpointers.RecordPointerValue("customer","custid")

rem Sets the record pointer of the customer table

IsahRecordpointers.RecordPointerValue("customer","custid") = "00000"

rem Reads the record pointer of the customer table

rem Notice it has changed

msgBox IsahRecordpointers.RecordPointerValue("customer","custid")

end sub

function getDefaultValue()

getDefaultValue = IsahRecordpointers.RecordPointerValue("customer","custid")

end function

IsahRecordpointers and Reports

If you want to use the IsahRecordpointers object to enter a default value as the report selection, you should use the getDefaultValue function within that report selection script. A report containing the report selection method 'From customer' and 'To customer' could have the following report selection script:

function getDefaultValue()

getDefaultValue = IsahRecordpointers.RecordPointerValue("customer","custid")

end function

IsahRecordpointers and Presets

If you want to use the IsahRecordpointers object to enter a default value as a preset parameter, you should use the getDefaultValue function within that recordpointer script.

function getDefaultValue()

rem This procedure returns the customer ID of the sales record that was last

rem viewed by the user concerned.

rem If no value can be found this function will return an emty string.

if IsahRecordpointers.RecordPointerValue("DossierMain","DossierCode") <> "" then

Dim Query

Dim SQL

SQL = " SELECT CustId" &_

" FROM T_DossierMain " &_

" WHEREDossierCode = """ & IsahRecordpointers.RecordPointerValue("DossierMain","DossierCode") & """"

Set Query = Application.DataBase.CreateQuery( SQL )

Query.Open

getDefaultValue = Query("CustId")

Query.Close

else

getDefaultValue = ""

end if

end function