Today, I run this program. Very good
Notice to read file on the intranet, multi-user. In line 92 of file dbfview.prg :
Code: Select all
IF !Empty(aNewFile)
Use (aNewFile[1]) New /*Note */
_DBULastPath := curdrive()+':\'+CurDir()+'\'
If !Used(aNewFile[1])
/* MsgInfo("Unable open file: "+aNewFile[1],PROGRAM) */
Use (aNewFile[1]) New shared /* Note */
oWndBase.Title := PROGRAM+VERSION+COPYRIGHT+aNewfile[1]
cBase := Alias()
nCamp := Fcount()
aEst := DBstruct()
aNomb := {'iif(deleted(),0,1)'} ; aJust := {0} ; aLong := {0}
For i := 1 to nCamp
aadd(aNomb,aEst[i,1])
aadd(aJust,iif(aEst[i,2]=='N',1,0))
aadd(aLong,Max(100,Min(160,aEst[i,3]*14)))
Next
CreaBrowse( cBase, aNomb, aLong, aJust, .F. )
Else
oWndBase.Title := PROGRAM+VERSION+COPYRIGHT+aNewfile[1]
cBase := Alias()
nCamp := Fcount()
aEst := DBstruct()
aNomb := {'iif(deleted(),0,1)'} ; aJust := {0} ; aLong := {0}
For i := 1 to nCamp
aadd(aNomb,aEst[i,1])
aadd(aJust,iif(aEst[i,2]=='N',1,0))
aadd(aLong,Max(100,Min(160,aEst[i,3]*14)))
Next
CreaBrowse( cBase, aNomb, aLong, aJust, .F. )
Endif
Else
cBase := ''
Endif
This application is useful and convenient but there is a weakness of HMG3 system are:
For files with multiple records, use the command "SET FITLER TO..." displayed on the screen very slowly.
Because the workstations can be Win9x, RAM and CPU is less
Hopefully, the developers of HMG4, note to the application can work in general, many users not only in handling cases of personal computers.