Discussion :

[x3erp]

Bonjour à tous,
j'ai crée une table spécifique, avec un objet spécifique. Dans cette table je souhaite faire un import silencieux des données.
J'ai donc écrit un spé qui lance mon import avec IMPORTSIL.
Mes enregistrements sont bien crées mais le soucis est que j'ai une petite boite d'information qui s'affiche à chaque enregistrement importé.
Sachez que je n'ai fait aucunement un infbox dans mon traitement.
Mon modèle d'import est un modèle qui utilise l'objet spécifique que j'ai crée.
Comment faire pour ne pas que cette petite boite s'affiche à chaque enregistrement importé.
NB: J'ai des centaines d'enregistrements dans chaque fichier et donc si je doit faire OK chaque fois pour fermer la boite ....
Merci de tous apport

[BF0509]

Bonjour,

Moi j'ai dans un de mes traitements le code suivant pour faire de l'import et je n'ai pas de fenêtre (sauf les traces que j'ai codé)

Gosub OUVRE From GIMPOBJ
[M:IMP2]MODIMP=ZPOH
[M:IMP2]NOMIMP=XFIC
GSERVEUR=1
Gosub EXEC From GIMPOBJ
GSERVEUR=0

[x3erp]

Merci. ça marche

[bimiman]

Attention à la modification de GSERVEUR en mode "non batch".
Je conseillerais plutôt GSILENCE=1 puis =0

[obelix3]

Un sous-programme standard existe pour les imports silencieux : IMPORTSIL dans le traitement GIMPOBJ

Pour ne pas avoir de message de création à chaque enregistrement :
- utiliser GSILENCE
- ouvrir une TRACE

Personnellement la TRACE me parait plus judicieux ... cela permet de savoir ce qui a été importé ou bien rejeté par l'import.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# ATTENTION des variables Globales sont modifiées par ce Call IMPORTSIL
#  
# VARIABLES écrasées par IMPORTSIL
#
      Local Char   ZSV_GFLAG , ZSV_GFONC1 , ZSV_GBOITE
      Local Integer ZSV_GETABOU(1..45) , ZSV_GETAMEN(1..60)
 
      Call OUVRE_TRACE("Trace de Mon Import ...") From LECFIC
 
      [L]ZSV_GFLAG=GFLAG
      [L]ZSV_GFONC1=GFONC1
      [L]ZSV_GBOITE=GBOITE
      [L]ZSV_GETABOU=GETABOU
      [L]ZSV_GETAMEN=GETAMEN
 
      Call IMPORTSIL("ZMONMODELE","MONLECTEUR:\MONCHEMIN\MONFICHIER_A_IMPORTER") From GIMPOBJ
 
# restitution des variables écrasées par IMPORTSIL
      GFLAG=[L]ZSV_GFLAG
      GFONC1=[L]ZSV_GFONC1
      GBOITE=[L]ZSV_GBOITE
      GETABOU=[L]ZSV_GETABOU
      GETAMEN=[L]ZSV_GETAMEN
 
     Call FERME_TRACE From LECFIC
 
# Pour une visualisation de la TRACE en fin de l'import ... sinon , TRACE consultable dans "Impression > Lecture Trace"
    Call LEC_TRACE From LECFIC