*================================================== * Remove the backlink to VSS *================================================== LParameter tcProject *----------------------------------------------- * Check parameter. This is an interactive tool. * Therefore we inform the user if something * went wrong. *----------------------------------------------- If Type("tcProject") # "C" Wait Window "Project name required!" Return Endif *----------------------------------------------- * Open the project file as a table. *----------------------------------------------- If not File(tcProject+".PJX") Wait Window "Project doesn't exist!" Return Endif Use (tcProject+".Pjx") Again ; Alias _PJX In 0 Shared Select _PJX *----------------------------------------------- * Remove all links to VSS *----------------------------------------------- Go Top Replace next 1 ; Local with .T.,; SccData with "" *----------------------------------------------- * Close the project file. *----------------------------------------------- Use in _Pjx Return