** ****************************************************************************************** *
** MANDRAGORE 
** *******************************************************************************************

#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4.h"
** GLOBAL VAR
  
text    : ZName,Zname2,LpathDataBaseExcel,LCurrentDir,lsetWintext;	
INTEGER : Msgsql,X ,no:=0,yes:=1,row ,i;
Long : color1,color2,color3; 


** ****************************************************************************************** *
** (ms4 script) - MS4 BI PROFESSIONAL for WINDOWS & WEB- :   MAKE DATABSE
** *******************************************************************************************
 
CHAR  :ldirApp:128, lenvSqlstring:120 := "\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\99-DATABASE\VersionADO\Ms4BI-DemoExcelCube.db", LEnvDemoExcelDB:256 ;
 
		 
		BEGIN ** environnement DB
		** retrieve Dir Application MS4
  			GetDirSysPathMS4BI(lDirApp);
			Concatene  lDirApp,lenvSqlstring into LEnvDemoExcelDB ;
		 	
 			DBexist{Ms4DB}(LEnvDemoExcelDB) return (X) ;
		/*   return codes */
		** x = 1 : Ok , x = 0 Not ok */
		 if (x  void) then
                  Display "DB not found ", LEnvDemoExcelDB;
					enter;		
					 Exit;
          End_if;
	         END;
	 	       BEGIN ** Call function
                 call : function ("LoadDbWin")
                  exporting : LEnvDemoExcelDB
		           exporting : "DBDemoExcel";
               END;