sub Execer {local($x,$To,$date,$nom,$val,$RTN) = @_; 
 local($i,$In,$Out,$Num,$Mail); 
 $In = ''; $Out = ''; $Num = ''; $Mail = '';
 $wwNum = '';
 &printLog("Load",'Log','/#T(Appel):'.$x.' '.$To.$nom.' '.$val.'');
 if (($i=&fromDBase($To,\$In,$date,$nom,""))!=0) {return 'Erreur lecture: '.$i.''};
 if ($In=~/\/#T\(gloEtat\):1\/#T/) {return "4"}
 local($i1); local $Area = ''; 
 if (($i=&getArea($To,\$In,\$Area))!=0) {if ($i>0) {return 'Erreur lecture: '.$i.''}}; $i1 = $i;
 if (($i=&cptLire($To,$nom,"User*",\$Num))!=0) {return 'Erreur lecture compta: '.$i.''};
 if (($i=&wsRun("runImport",$To,\$In,\$Out))!=0) {return 'Erreur export: '.$i.''};
 if (($i=&getBase($To,$nom,"1",\$Out))!=0) {return 'Erreur lecture compta: '.$i.''};
if ($i1==0) {
 $Out .= &wsImportVar('gloArea',$Area,"");
}
 if (($i=&toClient($x,$To,\$Out,$RTN))!=0) {return 'Erreur export: '.$i.''};
 return '';
}

function Execer(x,To,date,nom,val,RTN) { 
 var i,In,Out,Num,Mail; 
 In = Array(''); Out = Array(''); Num = Array(''); Mail = Array('');
 wwNum = Array('');
 printLog("Load",'Log','/#T(Appel):'+x+' '+To+nom+' '+val+'');
 if ((i=fromDBase(To,In,date,nom,""))!=0) {return 'Erreur lecture: '+i.toString()};
 if (In[0].match(/\/#T\(gloEtat\):1\/#T/)) {return "4"}
 var i1; var Area = Array(''); 
 if ((i=getArea(To,In,Area))!=0) {if (i>0) {return 'Erreur lecture: '+i.toString()}}; i1 = i;
 if ((i=cptLire(To,nom,"User*",Num))!=0) {return 'Erreur lecture compta: '+i.toString()};
 if ((i=wsRun("runImport",To,In,Out))!=0) {return 'Erreur export: '+i.toString()};
 if ((i=getBase(To,nom,"1",Out))!=0) {return 'Erreur lecture compta: '+i.toString()};
if (i1==0) {
 Out[0] += wsImportVar('gloArea',Area[0],"");
}
 if ((i=toClient(x,To,Out,RTN))!=0) {return 'Erreur export: '+i.toString()};
 return '';
}