Dokumente umhängen

Der Server wurde ausgewechselt und die Laufwerke nicht mehr haargenau gleich gemappt. Das ehemalige Verzeichnis war „Y:“, jetzt ist es „M:“. Nun müssen alle Dokumente der gesamten Datenbank umgehängt werden.
//Das Skript durchsucht die ganze DB nach Dokumenten im Pfad Y: und ersetzt diesen mit M:.
//Ausführen sollte man du es, indem man 1 Dokument-Datensatz markiert, nicht mehrere.
//Wie immer zuerst ein Backup der Daten vornehmen!!!
READ WRITE([x0_Dokument])
QUERY([x0_Dokument];[x0_Dokument]s_Speicherpfad=“Y:@”)
For (lCount;1;Records in selection([x0_Dokument]))
GOTO SELECTED RECORD([x0_Dokument];lCount)
[x0_Dokument]s_Speicherpfad:=Replace string([x0_Dokument]s_Speicherpfad;“Y:”;“M:”)
SAVE RECORD([x0_Dokument])
End for
UNLOAD RECORD([x0_Dokument])
REDUCE SELECTION([x0_Dokument];0)