VS_NotZero()         VALID clause to ensure number is not zero

Description:

  VS_NotZero() provides the programmer with a cosmetically appealing
  "pop-up" validation box.

Syntax:     

  l_Valid = VS_NotZero( n_Value , [@l_Eating] )

Pass:       

  n_Value is a numeric value containing the number to ensure is not
  zero.

  l_Eating is an optional logical expression that can be used in
  place of VS_EatKeys().

Return:     

  l_Valid is a logical expression that will be set to .T. if
  n_Value is NOT zero, otherwise .F.  If l_Valid is .F.,
  VS_NotZero() will display a cosmetically appealing pop-up error box
  telling the user that the value cannot be zero.

Notes:      

  VS_NotZero() is non-screen destructive.

Example:    

  n_Value = 0.00
  @ 10,10 SAY "Enter a nmbr: " GET n_Value VALID VS_NotZero(n_Value)
  READ
  ...

Usage:      

  VS_NotZero() is used for the "art" of user interfacing. i.e. it
  provides a pleasant way of informing the user why the VALID clause
  failed.