User Tools

Site Tools


viewposition_store_the_current_record_position_vcr.htm
Navigation:  ABC Library Reference > FormVCRClass > FormVCRClass Properties >====== ViewPosition (store the current record position) C6H0009.jpg ====== Previous pageReturn to chapter overviewNext page
ViewPosition STRING(1024)

blk2blue.jpg

The ViewPosition property stores the unique position of the current record.

Implementation:

Position returns the POSITION of the primary key if there is one; otherwise it returns the file POSITION. See the Language Reference for more information on POSITION.

Example:

FormVCRClass.TakeEvent         PROCEDURE

VSP BYTE,AUTO

CODE

   SELF.Window.Update()

   IF EVENT()=EVENT:Accepted THEN

      CASE ACCEPTED()

      OF SELF.Window.OkControl

      OROF SELF.Window.SaveControl

          SELF.ViewPosition=POSITION(SELF.View)

          SELF.SaveRequired = True

          IF SELF.OnFirstRecord THEN

             SELF.MoveDirection = Event:ScrollDown

          END

      ELSE

         IF NOT 0{PROP:AcceptAll} THEN

            SELF.TakeAcceptedLocator()

         END

      END

viewposition_store_the_current_record_position_vcr.htm.txt · Last modified: 2021/04/15 15:57 by 127.0.0.1