1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| SI HOuvreConnexion(gcnxMaCnxSource) = Vrai ET HOuvreConnexion(gcnxMaCnxDestination) = Vrai ALORS
TANTQUE gsSousFichierSource <> EOT
gsSousFichierDestination = gsSousFichierSource
HChangeConnexion(gsSousFichierSource ,gcnxMaCnxSource)
HChangeConnexion(gsSousFichierDestination ,gcnxMaCnxDestination)
POUR TOUT {gsSousFichierSource, indFichier}
HCopieEnreg(gsSousFichierDestination, gsSousFichierSource, hCopieIdAuto )
HAjoute(gsSousFichierDestination,hFixeIdAuto)
FIN
gsSousFichierSource = ExtraitChaîne(gsListeFichier, rangSuivant,RC)
FIN |
Partager