| Sommaire | ||
|---|---|---|
|
...
En migration, il faut donc reprendre les localisations déjà existantes dans Weavy et les intégrer dans Infinity. Pour cela, il faut lancer un export.
Il est fortement conseillé de faire une sauvegarde de la base de données avant de lancer le traitement.
Voici les différentes étapes :
...
| Bloc de code | ||
|---|---|---|
| ||
public Procedure Composant_Chargement_Av (G6, G6T2_pere, &G6T1, Niveau, NiveauReel)
; Avant
Record GTFDD.dhsd G6
Record GTFDD.dhsd G6T2 G6T2_pere ; Le BA père du composé qui est en cours de traitement
Record GTFDD.dhsd G6T1 ; le composant qui est traité
1 Niveau > GTFDD.dhsd Niv ; Niveau de l'en-tête de production
1 NiveauReel > GTFDD.dhsd Niv ; Niveau en tenant compte des fictifs
beginp
; envoyer les données en ping
PingLocal("PM600_SQL_G6", G6)
PingLocal("PM600_SQL_G6T2_PERE", G6T2_pere)
PingLocal("PM600_SQL_G6T1", G6T1)
PingLocal("PM600_SQL_NIVEAU", Niveau)
PingLocal("PM600_SQL_NIVEAUREEL", NiveauReel)
; Appel de la procédure dans le TT
G3_Xmt_Call ("Composant_Utilisation_Av")
; recupérer les records modifiés par l'ouverture
PingLocalReceiveAndDelete("PM600_SQL_G6T1", G6T1)
endp |
...
| Bloc de code | ||
|---|---|---|
| ||
;* public procedure Composant_Utilisation_Av ; Ouverture pour le moteur de Composant_Utilisation_Av Record GTFDD.dhsd G6 Record GTFDD.dhsd BB ; Le composant Record GTFDD.dhsd BA BA_composant ; Si le composant est aussi un composé 1 Niveau > GTFDD.dhsd Niv ; Niveau de l'en-tête de production (y compris fictif) 1 NiveauReel > GTFDD.dhsd Niv ; Niveau en tenant compte des fictifs beginp ; Lire les enregistrements transmis par la procedure [ggtm600_sql.dhsp / Composant_Utilisation_Av] PingLocalReceive("PM600_SQL_G6", G6) PingLocalReceive("PM600_SQL_BB", BB) PingLocalReceive("PM600_SQL_BA_composantCOMPOSANT", BA_composant) PingLocalReceive("PM600_SQL_NIVEAU", Niveau) PingLocalReceive("PM600_SQL_NIVEAUREEL", NiveauReel) ; Modifier les données de BB et BA_Composant ici ; retourner les enregistrements modifiés à [ggtm600_sql.dhsp / Composant_Utilisation_Av] PingLocal("PM600_SQL_BB", BB) PingLocal("PM600_SQL_BA_composantCOMPOSANT", BA_composant) endp |
Le parcours des nomenclatures est réalisé en itératif (pas d’appel récursif) pour limiter les instructions SQL.
...