/* BestStart(ApplikationsName)
*/
#include "Common.ch"

PROCEDURE Main( ApplikationsName )
   LOCAL n
   DEFAULT ApplikationsName TO AppName()
   FOR n:=Asc("Z") TO Asc("A") STEP -1
      IF FExists(Chr(n)+":\HDBE\MWSTDAT.DBF") .AND. FExists(Chr(n)+":\HDBE\"+ApplikationsName)
         CurDir(Chr(n)+":\HDBE")
         DbUseArea( ,,"mwstdat",,.F. )
         mwstdat->datver := Chr(n)+":\HDBE\"
         IIf(mwstdat->(IsFieldVar("netver")),mwstdat->netver := Chr(n)+":\HDBE\",)
         DbCloseArea()
         ? RunShell( "", ApplikationsName, .T. )
         n:=1000
         EXIT
      ENDIF
   NEXT
   IF n!=1000
      ? "Das hat wohl nicht geklappt"
      WAIT
   ENDIF
RETURN

PROCEDURE AppSys()
RETURN

/*
*/