Xailer & OZ Software

Hello Team
How to disappear empty records from a browser. With a pack a reindex after deleting? Please give me a layout how to use TDbfDataSet:pack and TdbfDataSet:Reindex methods on a multiuser environment. I call SET DELETED ON on the Initialization Form.

Many Thanks

Attached files

Dionisis Divaris escribió el sáb, 16 agosto 2014 07:30Hello Team
How to disappear empty records from a browser. With a pack a reindex after deleting? Please give me a layout how to use TDbfDataSet:pack and TdbfDataSet:Reindex methods on a multiuser environment. I call SET DELETED ON on the Initialization Form.

Many Thanks
Try oBrose:Refresh( .t. )
Regards,

Hello Ignacio
The oBrowse:Refresh (.t.) not help. Empty records continues to shown on the browser. Anything else?
Best Regards

Hi,
I've changed sample DataControlsDbfData2 with the following code:
METHOD Delete() CLASS TForm1
if MsgYesNo( "Delete actual Record?" )
(::oDataSet:Alias)->(__dbzap())
::oDataSet:Refresh( .t. )
// ::oDataSet:Delete()
endif
RETURN NI
And it worked perfectly. BTW, I needed to to open the file in exclusive mode to do the job.
Regards,
Note: In a multi-user environment you can not perform any pack or reindex operation if you do not open the file in exclusive mode. In that mode the file can only be opened once. I'm missing something? TIA.

Dionisis,
maybe the "for !deleted()" clause is missing from the index expression?
Regards,
José Lalí­n

Jose Ignacio
Many thanks for your help. The Jose solution (! Deleted() in Index command) do the job perfect.
Once again many thanks both of you.

Dionisis,
it was just a shoot in the dark
Regards,
José Lalí­n