Perl-JavaScript - Requêtes > load – Admin > baseAdmin

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

baseAdmin

Requêtes de Ça-déménage.com
Accès professionnel
Chargement de la base

Execer

Chargement de la base — 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.

cptLire	Lit le dernier message
wsRunVar	Paramètres de gestion des valeurs

getBase	Obtenir la base des résumés
toClient	Chargement de la base — 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 = '';
 if (($i=&cptLire($To,$nom,"User*",\$Num))!=0) {return 'Erreur lecture compta: '.$i.''};
 if (($i=&getBase($To,$nom,$val,\$Out))!=0) {return 'Erreur lecture compta: '.$i.''};
 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('');
 if ((i=cptLire(To,nom,"User*",Num))!=0) {return 'Erreur lecture compta: '+i.toString()};
 if ((i=getBase(To,nom,val,Out))!=0) {return 'Erreur lecture compta: '+i.toString()};
 if ((i=toClient(x,To,Out,RTN))!=0) {return 'Erreur export: '+i.toString()};
 return '';
}