//////////////////////////////////////////////////////////////////////

// CopyRight Ph Bergougnoux Consulting  ";
// EndUser4GL V.2.0A.00        "    ;
// Tous droits réservés      ";
//
// phone/ fax   : 00 33 2 47 28 58 19  
// Ph Bergougnoux        " ;
//     
// email:bergou@club-internet.fr      
// www.enduser4gl.comm

//////////////////////////////////////////////////////////////////////
 #include <AFXDAO.H>
 #include "EndUser4glwin.h" 
 #include "execute.h"
 #include "EndUser4gl.h" 
extern void OkMsgBox(char *szCaption, char *szFormat, ...);
extern int EU_Error_Code_Exe(long);
extern  int printfEU(const char *  , ...)  ;
extern int STOP(void);

 BEGIN_OBJECT_MAP(ObjectMap)
 END_OBJECT_MAP()

 CComModule _Module;
  
 long  EndUser4glApp::OPCExecute_user(long OPCcodeExe)
{ 
  MSG msg;	

/* ************** ***************************************** */
/* DEMO ENDUSER4GL COMPILER                               */
/************** ***************************************** */

    if((  OPCcodeExe == 20600)  ||  ( OPCcodeExe ==  70000)  )
    return OPCExecute_DemoEndUser4gl(OPCcodeExe) ;

/* ************************************************************************* */
/* Codes execution Analyseur syntaxique************************************* */
/* 1er cycle du pgm                                                          */
/* ************************************************************************* */
 
if((  OPCcodeExe >= 20000)  &&  ( OPCcodeExe <= 20010)  )
		 return OPCExecute_CreateVar(OPCcodeExe)  ;
else if((  OPCcodeExe >= 20040)  &&  ( OPCcodeExe <= 20045)  )
		 return OPCExecute_CreateProtoVar(OPCcodeExe);
else if((  OPCcodeExe >= 20050)  &&  ( OPCcodeExe <  20060)  )
		 return OPCExecute_Struct( OPCcodeExe);
else if((  OPCcodeExe >= 20060)  &&  ( OPCcodeExe <  20070)  )
		 return OPCExecute_Table(OPCcodeExe);
else if((  OPCcodeExe >= 20070)   &&  ( OPCcodeExe <  20079)  )
		 return OPCExecute_File(OPCcodeExe);

else if((  OPCcodeExe >= 20100)  &&  ( OPCcodeExe <=  20120)  )
		 return OPCExecute_SynWinPicture(OPCcodeExe);
else if((  OPCcodeExe >= 20121)  &&  ( OPCcodeExe <=  20150)  )
		 return OPCExecute_SynWinListView(OPCcodeExe);
else if((  OPCcodeExe >= 20151)  &&  ( OPCcodeExe <=  20170)  )
		 return OPCExecute_SynWinTreeView(OPCcodeExe);
else if((  OPCcodeExe >= 20171)  &&  ( OPCcodeExe <=  20200)  )
		 return OPCExecute_SynWinButtonBmp(OPCcodeExe);
else if((  OPCcodeExe >= 20201)  &&  ( OPCcodeExe <=  20220)  )
		 return OPCExecute_SynWinReBar(OPCcodeExe);
else if((  OPCcodeExe >= 20221)  &&  ( OPCcodeExe <=  20250)  )
		 return OPCExecute_SynWinToolBar(OPCcodeExe);
else if((  OPCcodeExe >= 20251)  &&  ( OPCcodeExe <=  20270)  )
		 return OPCExecute_SynWinButtonIcon(OPCcodeExe);

else if((  OPCcodeExe >= 20271)  &&  ( OPCcodeExe <=  20299)  )
		 return OPCExecute_SynWinSynGrid(OPCcodeExe);

else if((  OPCcodeExe >= 20380)  &&  ( OPCcodeExe <=  20399)  )
		 return OPCExecute_SynWinEdit(OPCcodeExe) ;
else if((  OPCcodeExe >= 20400)  &&  ( OPCcodeExe <=  20410)  )
		 return OPCExecute_SynBtree(OPCcodeExe) ;
else if((  OPCcodeExe >= 20420)  &&  ( OPCcodeExe <   20450)  )
		 return OPCExecute_SynWinTabControl(OPCcodeExe) ;
else if((  OPCcodeExe >= 20450)  &&  ( OPCcodeExe <   20470)  )
		 return OPCExecute_SynWinMenu(OPCcodeExe) ;
else if((  OPCcodeExe >= 20470)  &&  ( OPCcodeExe <   20480)  )
		 return OPCExecute_ExeSynStatusBar(OPCcodeExe) ;
/* windows */
else if((  OPCcodeExe >= 20500)  &&  ( OPCcodeExe <=  20599)  )
		 return OPCExecute_SynWinScreen(OPCcodeExe) ;

else if((  OPCcodeExe >= 21100)  &&  ( OPCcodeExe <=  21200)  )
		 return OPCExecute_SynWinStyle(OPCcodeExe) ;

else if(   OPCcodeExe == 20999)    return 0 ;   /* simule la pile lors du cycle syntaxe */

/* ************************************************************************* */
/* Codes execution interpreteur ******************************************** */
/* 2ème cycle du pgm                                                         */
/* ************************************************************************* */
else if((  OPCcodeExe >= 180)  &&  ( OPCcodeExe <  194)  )
		 return OPCExecute_Case(OPCcodeExe);
else if((  OPCcodeExe == 195)   )
		 return	OPCExecute_Break( OPCcodeExe);
else if((  OPCcodeExe >= 400)  &&  ( OPCcodeExe <=  410)  )
		 return OPCExecute_ContinueLeave( OPCcodeExe);
else if((  OPCcodeExe >= 700)  &&  ( OPCcodeExe <=  760)  )
		 return OPCExecute_For( OPCcodeExe)  ;
else if((  OPCcodeExe >= 1300)  &&  ( OPCcodeExe <=  1350)  )
		 return OPCExecute_Do( OPCcodeExe)  ;
else if((  OPCcodeExe >= 200)  &&  ( OPCcodeExe <=  250)  )
		 return OPCExecute_If( OPCcodeExe);
else if((  OPCcodeExe >= 150)  &&  ( OPCcodeExe <= 160)  )
		 return OPCExecute_Move( OPCcodeExe);
else if((  OPCcodeExe >= 300)  &&  ( OPCcodeExe <=  380)  )
		 return OPCExecute_While( OPCcodeExe);
else if((  OPCcodeExe >= 100)  &&  ( OPCcodeExe <= 120)  )
			 return OPCExecute_CalculSimple( OPCcodeExe);
else if((  OPCcodeExe >= 4000)  &&  ( OPCcodeExe <= 4050)  )
		 return OPCExecute_Display(OPCcodeExe);
else if((  OPCcodeExe >= 8000)  &&  ( OPCcodeExe <= 8050)  )
		 return OPCExecute_ProcFunction(OPCcodeExe);
else if((  OPCcodeExe >= 9000)  &&  ( OPCcodeExe <= 9050)  )
		 return OPCExecute_File(OPCcodeExe);
else if((  OPCcodeExe >= 10000)  &&  ( OPCcodeExe <= 10100)  )
		 return OPCExecute_KeyWord1( OPCcodeExe);
else if((  OPCcodeExe >= 40000)  &&  ( OPCcodeExe <=  40049)  )
		 return OPCExecute_KeyWord2String( OPCcodeExe);
else if((  OPCcodeExe >= 40050)  &&  ( OPCcodeExe <=  40070)  )
		 return OPCExecute_Btree_Interprete(OPCcodeExe) ;
/************** ***************************************** */
/* WINDOWS                                               */
/************** ***************************************** */
 
  if((  OPCcodeExe >= 50100)  &&  ( OPCcodeExe <=  50130)  )
		 return OPCExecute_WinIconBmp(OPCcodeExe) ;
 else if((  OPCcodeExe >= 50300)  &&  ( OPCcodeExe <=  50499)  )
	 return OPCExecute_WinObjectScreen(OPCcodeExe) ;
else if((  OPCcodeExe >= 50500)  &&  ( OPCcodeExe <=  50599)  )
	 return OPCExecute_WinColor(OPCcodeExe) ;

else if((  OPCcodeExe >= 50700)  &&  ( OPCcodeExe <= 50799)  )
	 return OPCExecute_WinButton(OPCcodeExe) ;
else if((  OPCcodeExe >= 50800)  &&  ( OPCcodeExe <=  50999)  )
	 OPCExecute_Apiwindow(OPCcodeExe);

else if((  OPCcodeExe >= 51000)  &&  ( OPCcodeExe <= 51099)  )
	  return OPCExecute_WinBox(OPCcodeExe) ;
else if((  OPCcodeExe >= 51100)  &&  ( OPCcodeExe <= 51199)  )
	  return OPCExecute_ListView(OPCcodeExe) ;
else if((  OPCcodeExe >= 51200)  &&  ( OPCcodeExe <= 51299)  )
   	  return OPCExecute_TreeView(OPCcodeExe) ;
else if((  OPCcodeExe >= 51300)  &&  ( OPCcodeExe <= 51399)  )
   	  return OPCExecute_WinFonts(OPCcodeExe) ;
else if((  OPCcodeExe >= 51400)  &&  ( OPCcodeExe <= 51499)  )
   	  return OPCExecute_TabControl(OPCcodeExe) ;
else if((  OPCcodeExe >= 51500)  &&  ( OPCcodeExe <= 51599)  )
   	  return OPCExecute_Menu(OPCcodeExe) ;
else if((  OPCcodeExe >= 51600)  &&  ( OPCcodeExe <=  51699)  )
		 return OPCExecute_WinGrid(OPCcodeExe);
else if((  OPCcodeExe >= 52000)  &&  ( OPCcodeExe <=  52099)  )
		 return OPCExecute_PopFile(OPCcodeExe) ;
else if((  OPCcodeExe >= 65000)  &&  ( OPCcodeExe <=  65200)  )
	 return OPCExecute_SynWinStyle(OPCcodeExe) ;  
else if((  OPCcodeExe >= 68000)  &&  ( OPCcodeExe <=  68199)  )
	 return OPCExecute_StatusBar(OPCcodeExe) ;  
 
/************** ***************************************** */
/* SORT                                                   */
/************** ***************************************** */

 else if((  OPCcodeExe >= 60001)  &&  ( OPCcodeExe <= 60500)  )
	  return OPCExecute_Sortin(OPCcodeExe);
 else if((  OPCcodeExe > 60500)  &&  ( OPCcodeExe <= 60600)  )
		 return OPCExecute_Select(OPCcodeExe);
			  else
				 if((  OPCcodeExe > 60600)  && ( OPCcodeExe <= 60900) )
				 return OPCExecute_Merge(OPCcodeExe);
					 else
						if((  OPCcodeExe > 61000)  &&  (OPCcodeExe <=  61500) )
						  return OPCExecute_Sort(OPCcodeExe);
						else
							if( ( OPCcodeExe > 61500)    &&  (OPCcodeExe <=  62000) )
							return OPCExecute_Sortout(OPCcodeExe);
							else
								 if( (  OPCcodeExe  >= 63000)     &&  (OPCcodeExe <=  64999) )
										 return OPCExecute_HeaderReport(OPCcodeExe);
/************** ***************************************** */
/* SQL et ODBC  et QUERY                                  */
/************** ***************************************** */
	 else  	if( ( OPCcodeExe >= 66000)    &&  (OPCcodeExe <=  66999) )
			  return OPCExecute_Sql(OPCcodeExe); 
   else  	if( ( OPCcodeExe >= 67000)    &&  (OPCcodeExe <=  67999) )
 			  return OPCExecute_Query(OPCcodeExe);
/************** ***************************************** */
/* WINDOWS  INTERNET                                      */
/************** ***************************************** */
else if((  OPCcodeExe >= 68200)  &&  ( OPCcodeExe <=  68400)  )
	 return OPCExecute_Internet( OPCcodeExe);
/************** ***************************************** */
/* MAPI                                      */
/************** ***************************************** */
else if((  OPCcodeExe >= 69000)  &&  ( OPCcodeExe <=  69299)  )
	 return OPCExecute_Mapi( OPCcodeExe);
/************** ***************************************** */
/* MsEXCEL8                                                  */
/************** ***************************************** */

else if((  OPCcodeExe >= 69300)  &&  ( OPCcodeExe <=  69399)  )
	 return OPCExecute_Excel( OPCcodeExe);
else if((  OPCcodeExe >= 69400)  &&  ( OPCcodeExe <=  69499)  )
	 return OPCExecute_Calendar( OPCcodeExe);
/************** ***************************************** */
/* MsWord8                                                  */
/************** ***************************************** */
else if((  OPCcodeExe >= 69500)  &&  ( OPCcodeExe <=  69599)  )
	 return OPCExecute_Word( OPCcodeExe);

   else { 
		EU_Error_Code_Exe(OPCcodeExe)  ;
		return   EUError; 
   }
}