LPARAMETER lcAction, lcParm2
#INCLUDE WCONNECT.H

SET EXCLUSIVE OFF
SET SAFETY OFF
SET DELETED ON
SET EXACT OFF

lcOldProcs = SET("PROCEDURE")
lcOldLibs = SET("CLASSLIB")

IF !EMPTY(lcAction)
   lcAction = UPPER(lcACtion)
ELSE
   lcAction = ""
ENDIF

IF lcAction = "SPLASH"
   SET PROCEDURE TO wwAPI ADDITIVE
   DO FORM SPLASH
ENDIF

DO LOAD_CONSOLE
DO PATH WITH ".\classes"
DO PATH WITH ".\tools"



ACTI SCREEN   

DO CASE
   CASE lcAction = "SQLCONFIG"
      oSQLConfig = CREATEOBJECT("SqlConfiguration")
	  oSQLConfig.Show()
   CASE lcAction = "SPLASH"
      *** Do nothing - just exit
   CASE lcAction = "GOURL"
      GoUrl( lcParm2 )
   CASE lcAction = "BUSOBJECT"
      loBusObjBuilder = CREATEOBJECT("wwBusinessBuilder")
	  loBusObjBuilder.Show()
   
   OTHERWISE
      DO FORM Console
      READ EVENTS
ENDCASE

SET PROCEDURE TO 
SET CLASSLIB TO 
