EXPORT

Description

Cette action est appelée pour chaque enregistrement des tables à traiter. On entend par "table à traiter" une table déclarée dans le tableau "identificateurs" de la fiche modèle d'Import / Export. Inversement, l'action "Export" ne s'exécutera pas, pour les tables seulement déclarées sur l'onglet des champs du modèle import / export. Dans ce cas, le superviseur tente de résoudre le lien entre la table avec celle définie pour le groupe en utilisant les liens décrits dans le dictionnaire. 

L'action EXPORT s'exécute donc après la lecture de chaque enregistrement de table à traiter ( la classe [F] est donc chargée ), et avant l'écriture de l'enregistrement à exporter.

Export OBJet

Simple, Tableau, Combiné et sans OBJet

Utilisation

Elle peut servir, par exemple :

    à éviter l'export d'un enregistrement en positionnant la variable [L]OK=0

    à mettre à jour un enregistrement. La séquence de mise à jour est à écrire entièrement dans cette action.

    à alimenter les variables GIMP(n) ( n étant un nombre de 1 à 99 ). Ces variables sont à renseigner lorsque les champs du modèle d'import / export sont nommés *n ( n étant un nombre de 1 à 99 ).

Les variables disponibles sont les suivantes :

    EXPFIC : Abréviation de la table à traiter. valeur sur 3 caractères.

 

Exemple

Dans l'export des tarifs de vente ou achat, on éclate le champ [F:SPL]PLICRI comprenant des informations différentes séparées par le caractère "~" sur cinq champs.

$EXPORT
# éclatement des critères
Local Integer JK, RG
Local Char MANIP (250)
MANIP=[F:SPL]PLICRI
For RG=1 To 5
   JK=instr(1,MANIP,"~")
   If JK
      Assign "GIMP("+num$(RG)+")" With left$(MANIP,JK-1)
      MANIP=(right$(MANIP,JK+1))
   Endif
Next RG
Return

 

---