>*================================================== >* 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 >