#include  "#SYSPATHMANDRAGORE+\zInclude\includeChart.h" 
#include  "#SYSPATHMANDRAGORE+\zInclude\IncludeDisplay.h"   	
     <div  $IsVisible_lg :  /* visible only large (screen) */
		DrawWindow : "Win5" , actions : $WinCustom +  $WinMinimize + $WinMaximize  + $WinClose , position : 600,  350,750,960  TITLE : "  Window Web: MS4 script Rapid Developt" 
		 							 url :  UrlMs4Script   /* key word ms4script */
     >;
** ****************************************************************************************** *
** MANDRAGORE PLANETE  
** *******************************************************************************************

 ** <----Local_PC ------>
  text NewDb :="#WWWMANDRAGORE+\MyMANDRAGORE.db";
  integer msgsql;
   DBDelete{MS4DB}(NewDb);
    Display "------------------------------------------------------------------------- " ;
	Display "    Create DB                        " ;
	Display "------------------------------------------------------------------------- " ;
	 
			DBconnect{Ado:"xlsx"}("#DRIVERSYS+\MandragorePlanete\MANDRAGORE\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\1-IMPORT-MAKE\example.xlsx");
			  IMPORT : New Ms4Db   
		      BEGIN  
        		 	  DBconnect {Ms4DB} (NewDb)  , 
		    		  Create:Table("[mytable]") 
			  END 
				(" SELECT  who$.firstname, who$.name,  age$.age,age$.sex  " +
				 " from  [who$]  " +
				 " INNER join  [age$] ON who$.name =  age$.name  "  );
				 
				 	display "    Create View  1:  [viewage]  ";						  
	 	Ms4_SQL{Ms4DB}("CREATE VIEW IF NOT EXISTS [viewage] AS  " +
               "SELECT   name, age FROM  [Mytable]  ");

			Sql_DestroyEnv();
			
	  DBBackup{Ms4db}(NewDb) to( "#WWWMANDRAGOREBACKUP+\MyMANDRAGORE.db") return (msgsql);
  if(msgsql= 1)
  then
  display " BACKUP :  ok  #WWWMANDRAGOREBACKUP+  local WEB backup";
  else
  display " BACKUP :  ko #WWWMANDRAGOREBACKUP+  local WEB  backup"; 
  end_if; 
				
			
 ** <----Local_server ------>			
	DBconnect {Ms4DB} (NewDb) ;
	
Begin_Block_Rwd  :  full_page
 <notification : $Bts_Notif_success_Dismissable ,  " ###b Step 2  :  Build MS4 DB - Consolidation of 2 Excel files   ###b "> ; 
	   FormPlus :  DrawGrid,  title :"MS4 DB : MyMANDRAGORE.db table : mytable   "   use   table  ("[mytable]")  ;
	      FormPlus :  DrawGrid,  title :"MS4 DB : MyMANDRAGORE.db view : age   "   use   View  ("[viewage]")  ;

End_Block_Rwd ; 
** <----Local_PC ------>		
	 Display "    Create DB   : End                  " ;
	  SetColorText(Hwdisplay:green,black) ;
	  Display "   to continue,  Click here                  ";
    	 enter;