** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de4 génération
** *******************************************************************************************
 
** Exemple  : SQL
** *****************************************************************************************
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"

char : Table1:255 := "c:\EndUser4gl\4gl\hlp\instructionsSql\Excel\DataBase\temp.xls";
integer : msgSql,x,MessagSql;
display "Cet exemple fusionne plusieurs fichiers Excel : Fichier commande.xls FIchier clients.xls ";
 
 SetVerSQL{XLS}("Excel 5.0/7.0");
 SetVerDriverSQL{XLS}("22");

** *****************************************************************************************
** SI CONSULTATION DE PLUSIEURS FICHIERS EXCEL :
**  Creer par INTO un nouveau fichier Excel qui englobera l'ensemble des fichiers Excel
**  Ensuite SELECT sur le nouveau fichier 
** ******************************************************************************************  
Tableexist(Table1)   returning (x) ;
	 
  /* 2 return codes */
** x = 0 : Ok , x = 1 Not ok */
         if (x  void) then
		Tabledelete (table1)  ;   
               display " TableDelete Ok " ,Table1 column 60; 
else
display "Table Delete Not find";
         end_if ;

** **********************************************************************************************
** Fichier 1 : Clients.XLs   feuille : [feuil1client$]  
** Copy par INTO dans fichier XLS: temp.Clients (nouvelle feuille!!New Sheet!!)
** **********************************************************************************************
 SetVerSQL{XLS}("Excel 5.0/7.0");
 SetVerDriverSQL{XLS}("22");

 SetEnvDataBaseSQL{XLS}("c:\EndUser4gl\4gl\hlp\instructionsSql\Excel\DataBase\clients.xls"); 
  
 ExecuteSQL{XLS}( " SELECT  * into  c:\EndUser4gl\4gl\hlp\instructionsSql\Excel\DataBase\temp.feuil1client
			 from [feuil1client$]")
			RETURNING(MessagSql);
  if (MessagSql  void) 
	then
		
               display " Into it's Ok " ; 
else 
display "Pb into ";
         end_if ;

** **********************************************************************************************
** Fichier2 : Commande.XLs   feuille : [feuil1cde ]
** Copy par INTO dans fichier XLS: temp.Commande (nouvelle feuille!!)
** **********************************************************************************************
 SetVerSQL{XLS}("Excel 5.0/7.0");
 SetVerDriverSQL{XLS}("22");

 SetEnvDataBaseSQL{XLS}("c:\EndUser4gl\4gl\hlp\instructionsSql\Excel\DataBase\commande.xls"); 

 ExecuteSQL{XLS}( " SELECT  * into  c:\EndUser4gl\4gl\hlp\instructionsSql\Excel\DataBase\temp.feuil1cde 
			from [feuil1cde$]");


** **********************************************************************************************
** Fichier 3 : temp.XLs   feuille : [feuil1client ] et feuille : [feuil1cde ]
** Select des info
** **********************************************************************************************
 SetVerSQL{XLS}("Excel 5.0/7.0");
 SetVerDriverSQL{XLS}("22");

 SetEnvDataBaseSQL{XLS}("c:\EndUser4gl\4gl\hlp\instructionsSql\Excel\DataBase\temp.xls"); 
    ExecuteQUERYDialog{XLS}("QUERY TABLE  :  [feuil1client$] , [feuil1cde$]     ");