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 :