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

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

loadUser

Requêtes de Ça-déménage.com
Accès particulier
Chargement des données

Execer

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

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	Chargement des données — Extrait des enregistrements
toClient	Chargement des données — Construit le code JavaScript à retourner au client

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 '';
}