FiveTech Software tech support forums

... Archivi(cDir)
local adir := DIRECTORY(cDir+ "*.*", "D" )
local i,cFile
FOR i = 1 to LEN( aDir )
cFILE := ALLTRIM( aDIR[i][1] )
IF FErase(cDir+cFile ) != 0
? FERROR()
endif
NEXT
return nil

Erased only some files ( 2 not) and the "?Ferror" give me this

https://i.postimg.cc/j2JWCZs1/ff.png

... If the ERASE command does not really erase an existing file, there can be a valid reason like the file is in use by some application or some other reason.

The best way to find out the reason is to
if FERASE( cFile ) != 0
? FERROR()
endif
FError() tells you the reason why the file is not erased

... that will be saved ?

Do I have to delete the items so now and then in a separate maintenance procedure where all deleted invoice items will be erased for sure ?

Before save this code is done in Yunus.

if ! Empty( oBrw:aDeleted )
AEval( oBrw:aDeleted, { |a| a[ 9 ] := -a[ 9 ] } )
IIT->( FW ...

... and finaly I saw a offer for this kind of machine :

Dell Precision 7920 for around 2.900 euro (here some hardware like to much nVidia could be erased.

Chassis
Dell Precision 7920
CPU
2x Intel Xeon Gold 6130 - 16C/24T, 2.70-3.70Ghz, 22MB Cache, 125W
Mem
256GB DDR4, 16x 16GB PC4-2666
RAID ...

... run-time
----------- ----------- ----------------------------------------
HB_TR_INFO HB_TR_ERROR All calls with levels HB_DEBUG are
or erased from the code, so they have no
HB_TR_LEVEL_INFO performance effect; only calls with
levels HB_TR_ERROR, HB_TR_FATAL and
HB_TR_ALWAYS are printed ...

... stops and the user must type in the password. This problem is solved.

NOT SOLVED!!
The picture-clause (in my case "@!") from a passwort-get is not respected on input and also overwrite is not functioning (also mark all and press any letter the old input is not erased)!!

I am looking into this.

... types in a char, the timer stops and the user must type in the password. This problem is solved.

NOT SOLVED!!
The picture-clause (in my case "@!") from a passwort-get is not respected on input and also overwrite is not functioning (also mark all and press any letter the old input is not erased)!!

... lactive,oTimer:deactivate(),)
and then it was functioning. But I use this for years. From 1912 on, this is so.

But the picture-clause from a passwort-get is not respected on input and also overwrite is not functioning (also mark all and press any letter the old input is not erased)!!

... skip()
EndDo
oPartRes:Gotop()

SET DELETED ON
oPartRes:SetOrder( 0 )
oPartRes:GoTo( 1 )
oPartRes:ArrayToDBF( aItems, cItemFlds, nil, .t., .t. )

it save goog but erased all records
I wish save on dbf with the condition alltrim(oPartRes:InvNum) == alltrim(nInvoice

Any solution please ...

Rith it's possible.
Now I erased all and re-write a test

PPlan.prg
function Planning() local nSplit := VAL(GetPvProfString("Browse", "StSplit","102", oApp():cIniUser)) Local oExBar //new local cDir := oApp():cDbfPath IF oApp():oDlg != NIL IF oApp ...

... 1: Depending on the setting of FW_SetRecycleDeleted(), a deleted record that can be locked is located. If found, the record is locked, data is erased, the record is RECALLed and the record number is returned.

Step-2: If not, attempts to append a new record by trying 4 times at an interval of 0 ...

Temporary (memory) indexes are automatically erased by the system. We need not manually delete them.

The real problem here is that there is a bug in the method CreateIndex(...) of TDatabase. Though you wanted to create Memory Index, the method is creating it is a normal index on the disk due to this ...

... 41; oDbfG:CreateIndex( nil,"BornNum", "DTOS(animals->Born) + animals->number" , nil, nil,.T.)...

Since the temporary index file is not erased at the end of the process, I forced it by adding the following code to erase it manually:

//1st function USE Clients Alias clients SHARED NEW ...

... there are some fields that need special save


then I'm used to loading the example fields into variables:

cName: = CU-> First
CCognome: CU => Last

and then to treat them in the dialog

example
@ 10.10 get aGet [1] var cName

and then to save them

Replace cu-> First with cName

But James erased all

... I can Have the possibility to use a mouse

I made this sample test
on oLbx must be allways 4 records and 5 columns
on olbx2 the items can be erased ( but not added to olbx)

With the mouse run perfectly
the button aBtnDropBrw[1] "Drop in"" run

the button aBtnDropBrw[2] "Drop out"" run bad ...