Biocontrol HHR 3000 PRO, Руководство программиста

Страница: 60 / 75

The first circumstance of using Sorting function is presented in example above and
to make second one work it is enough to change parameters in Sorting function to :
Sorting(table.*)
To help you better understand Log and Table integration look back at the Flow
chart 1 at the begging of this appendix.
The “A” relation connects two R-type columns, the Sorting function will organize
sequence of displaying records from Log. For the “B” relation two D-type columns
are connected and again displaying date will be organized by Sorting function.
For each of relation above Sorting after some column in Table is available, then
you could change current record number in table without changing current record
number in Log.
Example:
MACRO
begin_macro:VIEWLOG
begin_action_area
ReadSeek(log.MOTHEREID)
Sorting(log.*)
Join(table.MOTHEREID,log.MOTHEREID)
end_action_area
begin_screen
PrintText(0,0,0,"LOG:")
PrintExp(21,0,0,noofrec(log))
PrintText(105,0,0,"3.2.1")
PrintText(53,0,0,"OF:")
PrintExp(69,0,0,count(log.*))
DrawLine(0,6,127,6)
PrintText(0,7,2,"Table EID:")
PrintField(40,7,2,table.MOTHEREID)
IconFindCol(75,50,table.MOTHEREID,0)
PrintText(0,17,2,"Log EID:")
PrintField(40,17,2,log.MOTHEREID)
PrintText(0,27,2,"Event:")
EditGlobalField(40,27,2,log.EVENT)
PrintText(0,37,2,"Value:")
EditMaskedField(40,37,2,log.VALUE)
PrintText(0,47,2,"Time:")
EditTimeField(40,47,2,log.DATE)
IconDelete(100,50,log,0)
IconAddRec(53,50,log,0)
DrawLine(0,63,127,63)
end_screen
begin_control_area
end_control_area
end_macro
END
D01B2.4 HHR 3000 PRO Manual 60/75