Perl-JavaScript - Requêtes > load – User > Execer

Naviguation dans :	Perl	JavaScript	Détail	- load.cgi?Appel=loadUser
présentée :	par cas d'appel par traitements

Execer

Requêtes de Ça-déménage.com
Accès particulier
Exécution de la requête

loadUser

Exécution de la requête — Chargement des données

Syntaxe

Execer(x,To,date,nom,val,RTN)

Paramètres

nom	type	Description
x	IN	Cas d'appel
To	IN	Cas d'appel
date	IN	Date de clôture de la base (éventuellement vide)
nom	IN	Identifiant d'appel
val	IN	Valeur fournie à l'appel
RTN	OUT	Code JavaScript retourné au client Perl : scalaire passé par référence – JavaScript : tableau à 1 élément
retourne	OUT	= "" : Traitement correct = chaîne non vide : Message d'erreur

Fonctions util.

printLog	Ecriture de la log
getArea	Construit la région (départements limitrophes)
cptLire	Lit le dernier message
wsRunVar	Paramètres de gestion des valeurs
wsRun	Paramètres de gestion des enregistrements
wsImportVar	Importer une variable (serveur –> client)

fromDBase	Extrait des enregistrements — Chargement des données
toClient	Construit le code JavaScript à retourner au client — Chargement des données

Code Perl



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.''};
 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 ($i1==0) {
 $Out .= &wsImportVar('gloArea',$Area,"");
}
 if (($i=&toClient($x,$To,\$Out,$RTN))!=0) {return 'Erreur export: '.$i.''};
 return '';
}

Code JavaScript



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()};
 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 (i1==0) {
 Out[0] += wsImportVar('gloArea',Area[0],"");
}
 if ((i=toClient(x,To,Out,RTN))!=0) {return 'Erreur export: '+i.toString()};
 return '';
}