Soit 2 programmes s'exécutant dans deux processus clients différents :
Le programme 1 envoie des données (champ de saisie texte) au programme 2.
Les données sont automatiquement réceptionnées par le programme 2.
************PROGRAMME 1***********
** Envoi des données
|
Déclaration
NUM_BIN_4 |
CodeRetour |
ALPHA(15) |
VarAdelia |
NUM_BIN_4 |
NbDonnees |
BOOL |
ReceptDonnees |
Programme
* Nom de l'objet Echange de données : EDD_01 * Nom des données : DONNEES_01 * * 1 étape : Connexion * ReceptDonnees = *vrai APPELER_METHODE EDD_01 CONNECTER ReceptDonnees CodeRetour * * 2ème étape : Charge les données * VarAdelia = 'Données à envoyer' NbDonnees = 1 APPELER_METHODE EDD_01 ECRIRE VarAdelia NbDonnees CodeRetour * * 3ème étape : Valide les données (active l'événement « ChangementDonnées ») * du programme 2 * APPELER_METHODE EDD_01 VALIDER CodeRetour *
************PROGRAMME 2***********
** Réception des données |
Déclaration
ALPHA(15) |
VarAdelia |
NUM_BIN_4 |
Indice |
NUM_BIN_4 |
NbDonnees |
NUM_BIN_4 |
CodeRetour |
BOOL |
ReceptDonnees |
Programme
* Nom de l'objet Echange de données : EDD_02 * Nom des données : DONNEES_01 * |
INITIALISATION
* * Connexion * ReceptDonnees = *vrai APPELER_METHODE EDD_02 CONNECTER ReceptDonnees CodeRetour GESTION_EVENEMENTS EDD_02 EDD_02:ChangementDonnées * * Lire (événement déclenché par la méthode Valider de l'objet EDD_01 du * Indice = 1 NbDonnees = 1 APPELER_METHODE EDD_02 LIRE VarAdelia Indice NbDonnees CodeRetour * ZZ_DONNEES01 = VarAdelia
|
