Object: | frmbehindsc |
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