/* CopyRight 2001 EndUser4gl */
/* Ph Bergougnoux            */

#include "EndUser4glwinX.h" 
#include "executex.h"

void EU_Value_Char(char *zone1);
 extern long
OPCExecute_If(long OPCcodeExe)
{
  char zone1[C_CMP_TAILLE_NOM_DICT] = "\0";
  char zone2[C_CMP_TAILLE_NOM_DICT] = "\0";
  char valeur1 [MAXBUFLENSTRING] = "\0";
  char valeur2 [MAXBUFLENSTRING] = "\0" ;

   int ReturnOpc = 0  ;
  int Ival=0,d,x = 0  ;
  double Dval ;
  float Fval = 0  ;
  long  Lval = 0  ;
  float FloatValOpe = 0;
  /* variables p/STRUCT */
  short vasizeof=0, nbelem=0,longueur=0,offsetdebut=0,offsetfin=0;
  float valeur=0;

	switch( OPCcodeExe)
   {

 /* ********* I F  NUMERIQUE(int,long,Float  ************************** */
 /*         GlobalSaveDoubleValResult   : calcul.c                      */
 /* ******************************************************************* */
	   case      CodexIfET          : GlobalIfAnd++ ;    break ;
	   case      CodexIfOU          : GlobalIfOr ++ ;    break ;
       case      CodexIfNumEGAL      : 
						GlobalDoubleValResult = Function_Type_Numeric();  /* calcul.C */
						OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
						GlobalAttrsIf = 1;    break ;
	  case      CodexIfNumINF          :
				  GlobalDoubleValResult = Function_Type_Numeric();
				 OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
				 if(!strlen(zone1))   GlobalDoubleValResult= GlobalSaveDoubleValResult; /* voir Function_Type_Numeric();  calcul.C */
 //printf("  CodexIfNumINF  : %f  %s ", GlobalDoubleValResult,zone1); STOP();
				GlobalAttrsIf = 2 ;   break ;
	  case      CodexIfNumSUP        :
					 GlobalDoubleValResult = Function_Type_Numeric();
					 OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
					 if(!strlen(zone1))   GlobalDoubleValResult= GlobalSaveDoubleValResult;
// printfEU("  CodexIfNumSUP: %f zone1 : %s ", GlobalDoubleValResult,zone1); STOP();
 					 GlobalAttrsIf = 3 ;   break ;
      case      CodexIfNumESUP      : 
				 GlobalDoubleValResult = Function_Type_Numeric();
				  OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
				 if(!strlen(zone1))   GlobalDoubleValResult= GlobalSaveDoubleValResult;
				GlobalAttrsIf = 4 ;   break ;
      case      CodexIfNumEINF        : 
					GlobalDoubleValResult = Function_Type_Numeric();
				  OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
				 if(!strlen(zone1))   GlobalDoubleValResult= GlobalSaveDoubleValResult;
				  GlobalAttrsIf = 5 ;   break ;
	 case      CodexIfNumNEGAL      : 
					GlobalDoubleValResult = Function_Type_Numeric();
				  OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
				  if(!strlen(zone1))   GlobalDoubleValResult= GlobalSaveDoubleValResult;
					GlobalAttrsIf = 6 ;   break ;
	 case      CodexIfNumVOID      :
							 OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
							 if(strlen(zone1))	GlobalDoubleValResult = Function_Type_Numeric();
							  else   GlobalDoubleValResult= GlobalSaveDoubleValResult;
//printf(" CodexIfNumVOID    : %lf %s",  GlobalDoubleValResult,zone1);

							GlobalAttrsIf = 7 ;   break ;
		case      CodexIfNumNVOID    :
							 OPCF_Pile_Depile( P_NAMEVAR, (void *)zone1);
							 if(strlen(zone1)) 	GlobalDoubleValResult = Function_Type_Numeric();
							  else   GlobalDoubleValResult= GlobalSaveDoubleValResult;
//printf(" CodexIfNumNVOID    : %lf",  GlobalDoubleValResult);
						  GlobalAttrsIf = 8 ;   break ;
........Si acquisition d'une license