Bonjour,
Je souhaiterais qu'à chaque fois qu'une commande de vente est créée, un export de cette commande de vente se génère automatiquement sur mon poste client.
Y a-t-il une procédure simple à suivre pour générer un export silencieux?
Merci
Léa
L'astuce est de simuler un export effectué manuellement par un utilisateur via le menu Exploitation > Imports/Exports > Exports.
Il faut donc, avant de lancer l'export silencieux, ouvrir les écrans de la capture ci-dessous et les alimenter avec les bonnes données.
Plus précisément:
1. Choisir le modèle d'export à utiliser. Ici, on choisit SOH, qui est bien coché Export.
2. Dans le traitement spécifique des commandes SPESOH, rajouter une étiquette en APRES_CRE qui lance l'export.
Voici le traitement complet:
#------------------------------------------------------------------ # Etiquette de routage $ACTION Case ACTION When "APRES_CRE" : Call EXPORT_COMMANDE([M:SOH0]SOHNUM) Endcase Return #------------------------------------------------------------------------------------------- Subprog EXPORT_COMMANDE(YSOHNUM) Value Char YSOHNUM # Actions préliminaires à effectuer avant l'export silencieux Gosub YDECLARER_VARIABLES Gosub YCHARGER_MODELE # Définir la destination de l'export. Si 1 : Poste client [M:EXP2]TYPEXP = 1 # Ajouter dans le bloc des critères de sélection le filtre sur la commande. [M:EXP2]CRITERE(0)= "SOHNUM="+"'"+[L]YSOHNUM+"'" # Appeler l'export silencieux Call EXPORTSIL From GEXPOBJ # Gestion des erreurs s'il y en a. Gosub YDETECTER_ERREURS End #------------------------------------------------------------------------------------------- $YDECLARER_VARIABLES Local Integer NBERR : NBERR=0 Local Integer OK , STAT, IMPSTA, OPTCHA,CODDBA,ZKO,TENTATIVES Local Char MESSAGE(250) Local Char CRITERE(255) Local Char CRITERE1(255) Local Char FORMULE (GLONFOR) Local Integer TYPFOR, ZI Local Char NOMFIC(GDIMFIC), FICBAS(GDIMFIC) Local Char REPERT(GDIMFIC), NOMREP(GDIMFIC) Local Char MACHINE(GDIMFIC) Local Char MODELE(GLONAOE) Local Char FICBASTRA(GDIMFIC) Local Char NOMFICTRA(GDIMFIC) Local Char ZNOMFIC(100), ZNOMFICCLI(250) Return #------------------------------------------------------------------------------------------- $YCHARGER_MODELE # Choix du modèle à utiliser [L]MODELE = "SOH" # Ouverture et nettoyage des écrans et tables nécessaires à l'export Local Mask EXPOBJ [DIA] Raz [M:DIA] Gosub OUVRE From GEXPOBJ Raz [M:EXP2] Raz [M:AOE0], [M:AOE1], [M:AOE2] # Chargement du modèle dans les écrans d'export Call CHARGE_MODELE([L]MODELE, [L]IMPSTA) From GEXPOBJ If [L]IMPSTA : Gosub YGERER_ERREURS : Endif [M:EXP2]=[M:EXP1] Return #------------------------------------------------------------------------------------------- $YDETECTER_ERREURS [L]IMPSTA = [M:EXP2]STAT If GOK<1 : [L]IMPSTA = 11 : Endif If [L]IMPSTA : Gosub YGERER_ERREURS : Endif Return #------------------------------------------------------------------------------------------- $YGERER_ERREURS [L]NBERR+=1 Call YGERER_ERREURS([L]IMPSTA, MESSAGE) From GEXPOBJ Return
