SP_VERTVIEW

VERTVIEW()

  Short:
  ------
  VERTVIEW() Pops up a vertical view of the current record

  Returns:
  --------
  Nil

  Syntax:
  -------
  VERTVIEW([aFields,aFDescr],[cColor],[cTitle],[cFooter])

  Description:
  ------------
  Pops up a vertical view of the current record's
  values. Memos are displayed as "(memo - Enter to View)" and pressing CR
  will view them.

  Pressing ESCAPE exits.

  The popup box is displayed centered on the screen. If
  all fields do not fit into the box, scrolling is allowed with the
  arrow keys.

  [aFields] and [aFDescr] are optional fields and field
  descriptions.

  Default is all fields, with field names as
  descriptions.

  [cColor] is the optional box color. Default is
  sls_popcol()

  [cTitle] is an optional title string displayed at
  top,left+1

  [cFooter] is a footer displayed at bottom,left+1.
  Default footer is "ESCAPE to quit"

  Examples:
  ---------
   if nLastkey = K_ALT_V
     VERTVIEW()
   endif

  Source:
  -------
  S_VVIEW.PRG

 

SP_MFIELDSTYPE

MFIELDSTYPE()

  Short:
  ------
  MFIELDSTYPE() Pops up a list of fields of given type(s)

  Returns:
  --------
  <cFieldName> => name of selected field

  Syntax:
  -------
  MFIELDSTYPE(cType,[cTitle],[nTop,nLeft,nBottom,nRight])

  Description:
  ------------
  <cType> is a string containing 1 or more field TYPE
  symbols:

       C   Character
       N   Numeric
       D   Date
       L   Logical
       M   Memo

  Only fields of this type(s) are presented for the
  picklist. If no fields of this type(s) are present, a "" is returned.

  [cTitle] is a string placed at the top of the popup
  box for a title

  [nTop,nLeft,nBottom,nRight] are the coordinates of
  the box

  Examples:
  ---------
   // this selects memo field to edit

   use customer

   cField := mfieldstype("M")

   if !empty(cField)
      memoedit(FIELDGET(FIELDPOS(cField)),0,0,24,79)
   endif

  Source:
  -------
  S_MFLDT.PRG