Teste

IF lg-salva-xml-cte THEN DO:
    ASSIGN c-pasta-salva-cte = TRIM(ENTRY(2, c-param-salva-cte)).
    ASSIGN c-pasta-salva-cte = REPLACE(c-pasta-salva-cte, "/", "\").

    IF SUBSTRING(c-pasta-salva-cte, LENGTH(c-pasta-salva-cte), 1) <> "\" THEN
        ASSIGN c-pasta-salva-cte = TRIM(c-pasta-salva-cte) + "\".
END.