Hi All: When I open 2019 I get this error. "Error: Access denied: C:\Program Files (x86)\dBASE\dBASE2019\dBLClasses\ReportControls\REPORT.Co ".
When I click on "fix" the code shown below appears. I don't have a clue why or what caused the error.
/------------------------------------------------------------------------
//
// report.cc -- Custom Control Library for Reports
//
// PageNumber - Text control showing the current page number.
//
// dBASE Samples Group
// $Revision: 1.5 $
//
// Copyright (c) 1997-1998, Borland International, Inc.
// Copyright (c) 2000, dBASE, Inc.
// All rights reserved.
//
//------------------------------------------------------------------------
//
class pageNumber(ParentObj) of Text(ParentObj) custom
SET TALK OFF
with ( this )
height := 200
width := 1000
metric := 1
fontSize := 8
text := class::pageValue
endwith
function pageValue
// returns 0 if placed on form
local nPage
nPage = 0
if TYPE("this.form.reportPage") == "N"
nPage := this.form.reportPage
endif
return ( nPage )
endclass
Clicking "fix" displays this code with the curser in the blank space below the code "end of class" .
Any help to fix this would be appreciated,,,,,,,,,,Bob
|