FiveTech Software tech support forums

Solved by subclassing TDataBase class TDataX from TDataBase  data cFile  method new()endclassmethod new() class TDataX  ::super:new()  ::cAlias := alias()  ::nArea  := select()return self  We advise you to open the dbf using the methods of TDatabase only. Sti...

Thanks for verifying it for me James

Does that mean a dbf can be opened only once? Apparently not-see sample test code below. Each is opened in a different workarea. That comment is either misleading or leftover from a previous version. James #include "fivewin.ch"Function Main()   Local oCustomers,oCustomers2      oC...

Yup. If any of it failed to be opened there's no point proceeding because all of them are required, at least that's what I think. If this is a multi-user app, then all databases need to be opened in shared mode, so why would they fail to open? I also would like to use net_use() to open dbfs in netw...

You can open multiple copies of the same database... But I notice the following comment in TDatabase:use() James,   if Empty( ::nArea ) // 2017-09-04: Prevent re-opening same dbf in multiple workareas      if Empty( ::cAlias )         ::c...

It appears that you are opening all the files at once, and setting your own aliases. Yup. If any of it failed to be opened there's no point proceeding because all of them are required, at least that's what I think. I also would like to use net_use() to open dbfs in network environment as it'll atte...

.

Hua, I think you may be shooting yourself in the foot. It appears that you are opening all the files at once, and setting your own aliases. Granted this is how we used to do it before using database objects. We also were limited to 255 work areas but we are no longer. Although, you don't need many w...

Solved by subclassing TDataBase

Code: Select all  Expand view

class TDataX from TDataBase
  data cFile
  method new()
endclass
method new() class TDataX
  ::super:new()
  ::cAlias := alias()
  ::nArea  := select()
return self
 

... endif  select (oldarea)return lRet  2. The first error I got when trying to upgrade this to Harbour+FWH19.03 is direct assignment to :cFile is no longer allowed. So I tweaked o:&(a_[i,1]) := TDataBase():new() o:&(a_[i,1]):cFile := a_[i,2] to ...

Hi,
While testing FWH19.03+Bcc7.3+Harbour, I found out if I click the email button at print preview it will cause my exe to silently terminate.

Is there a neat way for me to remove this button without having to customized rpreview.prg for all of my reports?

TIA

1) Please use buildx.bat provided with FWH19.03.
This batch file contains the line :
"echo %hdirl%\hbzebra.lib + >> b32.bc"
Please check this
2) Please ensure that your \xharbour\lib folder contains hbzebra.lib

If you are using FWH19.01, the DATA bTrigger already exists in both XBrowse and DataRow. If you are using any version upto FWH1812, the DATA bTrigger does NOT exist in either XBrowse or DataRow. You might have got the above problem ...