DEF VAR ii      AS INT                                  NO-UNDO.
    DEF VAR cAlt    AS CHAR INIT '\\SBSHUBER\HP Dispo'      NO-UNDO.
    DEF VAR cNeu    AS CHAR INIT '\\DWKRFS001\HBKRPR049'    NO-UNDO.
    DEF VAR Firma   AS CHAR INIT '1000'                     NO-UNDO.

    DEF BUFFER BSchrift FOR Schrift.

    FOR EACH Hilfstab WHERE Firma = Firma :
        ii = INDEX(Hilfstab.Zeichen_1, cAlt).
        IF ii = 0 THEN NEXT.
        Hilfstab.Zeichen_1 = REPLACE(Hilfstab.Zeichen_1, cAlt, cNeu).
    END.

    FOR EACH LiDruck WHERE Firma = Firma :
        ii = INDEX(LiDruck.Listdru, cAlt).
        IF ii = 0 THEN NEXT.
        LiDruck.Listdru = REPLACE(LiDruck.Listdru, cAlt, cNeu).
    END.

    FOR EACH Tabel WHERE Firma = Firma :
        ii = INDEX(Tabel.Bez1, cAlt).
        IF ii = 0 THEN NEXT.
        Tabel.Bez1 = REPLACE(Tabel.Bez1, cAlt, cNeu).
    END.

    FOR EACH Schrift WHERE Schrift.Schname = cAlt:
        FIND BSchrift NO-LOCK
                WHERE BSchrift.Schname = cNeu
                AND   BSchrift.Schbild = Schrift.Schbild NO-ERROR.
        IF AVAILABLE BSchrift THEN NEXT.
        Schrift.Schname = cNeu.
    END.