Run the import
Here how to execute an import
- Local Char PARAM(15)(1..4) , VALEUR(15)
- Gosub INIT From GIMPOBJ
- Gosub DEBUT From GIMPOBJ
- Gosub OK_SAI From GIMPOBJ
- Gosub CONTROLE From GIMPOBJ
- [M:IMP2]MODIMP = MODELE
- [M:IMP2]NOMIMP = FICHIER
- Gosub EXEC From GIMPOBJ
- Gosub TERMINE From GIMPOBJ
- If GERRTRACE = 1 and GERRTRACE = 3 Then
- Errbox "Si è verificato un errore in fase di importazione del ricevimento", "Controllare il file traccia " + GTRACE titled "Import Ricevimenti"
- Endif
- Call LECFIC("TRA",GTRACE,"tra") From LECFIC