Load Method
Object: frmbehindsc
Expand/Collapse source code of procedure Load Source Code
LOCAL lcForm
IF FormIsObject()
  lcForm = _screen.Activeform.Caption
  *-- Special handling for Order History and forms that
  *-- support multiple instances
  IF ":" $ lcForm
    lcForm = LEFT(lcForm, AT(":", lcForm) - 1)
  ELSE
    IF "HISTORY" $ UPPER(lcForm)
      lcForm = LEFT(lcForm, AT(" ", lcForm, 2) - 1)
    ENDIF
  ENDIF
  thisform.cCurrentForm = lcForm
ENDIF

IF EMPTY(thisform.cCurrentForm) OR ;
    thisform.cCurrentForm = _screen.Caption
  thisform.cCurrentForm = "No starting form"
ENDIF