20 Ago 2013 15:04
Function Exit()
CHK -> (OrdSetFocus(2))
If CHK -> (DBSeek(cUser))
If BloqueiaRegistroNaRede("CHK")
CHK -> (DBDelete())
Pack
EndIf
Main.Release
Return Nil
20 Ago 2013 15:12
20 Ago 2013 18:24
rcb2002 escreveu:Pela lógica, deveria existir um comando DBPack() - pra 'purgar' somente aquele arquivo
Use temp EXCLUSIVE NEW
USE cust EXCLUSIVE NEW
temp->( __DbPack() ) // O mesmo que emitir o comando PACK
Cust->( DbEval( { || temp->( DbAppend() ), temp->custId := cust->custId }, { || ! Deleted() } ) )
...
DbCloseAll()