AP_IMPORT

Description

Cette action est appelée pour chaque enregistrement de chaque table déclarée dans le 1er onglet du modèle. Cette action intervient lorsque la classe [F] a été chargée par les zones déclarées dans le modèles. Elle contient donc, à ce niveau, l'enregistrement à importer . Elle servira ensuite pour la simulation de la saisie ; elle sera donc basculée dans la classe [M] pour tous les champs saisissables. La classe [M] sera ensuite basculée dans la classe [F] définitive.

Action appelée depuis le traitement généré par l'import WWIxxxxxxx.

Import OBJet

Simple, Tableau, Combiné

Cette action est aussi appelée lors d'un import pour lequel il n'y a pas d'OBJet.

Utilisation

Elle peut servir, par exemple :

    à compléter la classe [F] de l'enregistrement à importer

Quelques variables utiles dans cette action :

[L]TRTMSK : traitement généré de l'écran
[L]IMPFIC
  : abréviation de la table courante
[L]SEPNUM : niveau d'imbricationde la table courante ( de 1 à 8 )

Exemple

Dans l'import de tarif vente ou achat, les écrans de saisie sont générés en fonction du paramétrage de chaque code tarif. C'est pour cela que dans cette action AP_IMPORT, on ferme l'écran ouvert, pour ouvrir l'écran correspondant au code tarif. On modifie le code traitement lié à l'écran.

$AP_IMPORT
If GNBIMP=0 | RUPT
    If [L]TRTMSK <> "W0WB1"+num$([F]PLI)+"1"
       [L]TRTMSK="W0WB1"+num$([F]PLI)+"1"
       GFLTPLI=[F]PLI : GFLAG=[F]PLI
       Close Mask [SPLW] : Local Mask ="WB1"+num$([F]PLI)+"1" [SPLW]
       Read [F:SPC]SPC0=[F]PLI
    Endif
Endif
Return

$AP_IMPORT
Local Integer I1
Case IMPFIC
  When "SOH"
     If G_GIMP6
        I1=instr(1,GIMP(6),"~")
        If I1 [F:SOH]BPCORD=left$(GIMP(6),I1-1) Else [F:SOH]BPCORD=GIMP(6) Endif
     Endif
  When Default
Endcase
Return

Dans l'import de commande de vente, on peut être amené à importer un champ contenant le numéro de client suivi du caractère "~" suivi d'autres données. Pour charger le numéro de client dans la classe [F], on utilise l'action AP_IMPORT suivante :