pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


L'exemple suivant utilise une procédure W-Langage lors de la réplication. Cette procédure FiltreRéplica permet de filtrer les enregistrements à prendre en compte lors de la réplication, mais aussi de gérer les conflits lors de la réplication.



SI HSynchroniseRéplica("C:\Données", "D:\Temp", RPLVersAbonné , FiltreRéplica) ALORS
   Info("Réplication effectuée")
FIN

Procédure FiltreRéplica()
Jauge(RPL.NumOperation,RPL.MaxOperation)
// ******************************** Filtrage des enregistrements ********************************
// Exemple : Exportation du catalogue des produits en promotion
SI RPL.Sens=rplVersAbonne ET RPL.Opération=rplHAjoute ALORS
    SI RPL.Fichier="Produit" ET {RPL.AliasSource+".PROMO"}=Faux ALORS
        // L'enregistrement ne doit pas être copié
        RENVOYER Faux
   FIN
FIN
// ************************************** Gestion des conflits ***********************************
// Exemple : Test si le produit existe déjà
// HLitRecherche(PRODUIT,CodeProduit,{RPL.AliasSource+".CodeProduit"})
// SI HTrouve() ALORS
// // L'enregistrement ne doit pas être copié
// RENVOYER Faux
// FIN
// Pas de pb détecté
RENVOYER Vrai