Click above to get retro games delivered to your door ever month!

 FUNCTION CALCVALID()

  Short:
  ------
  CALCVALID() Uses GETCALC() calculator function as a GET VALID
  clause

  Returns:
  --------
  <lValid> => valid condition

  Syntax:
  -------
  CALCVALID([bValid])

  Description:
  ------------
  This sets up the popup GETCALC() calculator for use
  in a GET VALID clause. (the post validation block). If a value
  is selected, it is assigned to the get. (if ESCAPE is pressed,
  it is not) The Calculator function will pop up upon exit from a
  GET field.

  [bValid] If you pass a validation codeblock, it will
  be checked first. If the GET is already valid, according to the
  codeblock, the calculator will not be popped up. The codeblock
  must return a logical value.

  Examples:
  ---------

   proc test

   v1 := 10
   v2 := 10
   v3 := 10
   v4 := 10

   @10,10 get v1
   @11,10 get v2 when calcwhen(.f.)
   @12,10 get v3 valid calcvalid( {||v3>0}  )   // note the valid                                           // block
                                                 // IF V3 > 0, the calculator
                                                  // will not be called
   @13,10 get v4

   read

  Notes:
  -------
  You might want to look at CALCWHEN() and CALCKSET()
  for other options.

  Source:
  -------
  S_CALCVW.PRG