hi,
i think LUpdate() does not work any more, so how can i find out if Data was updated ?
greeting,
Jimmy
Jimmy
Board index FiveWin for Harbour/xHarbour how to find out if a Record was updated ?
// C:\FWH\SAMPLES\JIMMYUPD.PRG
#include "FiveWin.ch"
FUNCTION Main()
SET CENTURY ON
SET DATE BRITISH
SET EPOCH TO YEAR( DATE() ) - 30
USE CUSTOMER NEW
? LUpdate()
CLOSE DATABASES
? Date()
USE Sales NEW
? LUpdate()
APPEND BLANK
? LUpdate()
CLOSE DATABASES
USE Sales NEW
? LUpdate()
/* This example uses an aliased expression TO access LUpdate()
FOR a DATABASE FILE opened in an unselected work area: */
USE Sales NEW
USE Customer NEW
? LUpdate(), Sales->( LUpdate() )
RETURN NIL
// Library is rdd
// FIN / ENDJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
hi,
thx for working Sample
i have forgot that i need to CLOSE DBF and reOPEN it to get it work
but Lupdate() just return a Date, but no Time so it work just once a Day to inform that DBF have changed.
so my Question was wrong : how to find out if a Record was now (!) updated ?
i want to inform other User, if they use same DBF, that e.g. a Browse Display refresh() is need
greeting,
Jimmy
Jimmy
Dear Jimmy,
You have to create two fields in every table by yourself.
Every dbf table I use in my program has two fields UTEMODI C3 and DATMODI C14
When I modify even one single fields in a record I also write user code and date time
For instance
REPLACE field->utemodi WITH "001" , ;
field->datmodi WITH DTOS(DATE())+STRTRAN(TIME(),":","")
Very very useful for many things I can do that I'm not here to write. You can imagine it.
I even create an index for this two fields 8)
Someone who read this my post would think is not useful but Jimmy believe me.
In many years this two simple fields permit to me to understand some strange problems in user report.
Have a nice day
Marco
You have to create two fields in every table by yourself.
Every dbf table I use in my program has two fields UTEMODI C3 and DATMODI C14
When I modify even one single fields in a record I also write user code and date time
For instance
REPLACE field->utemodi WITH "001" , ;
field->datmodi WITH DTOS(DATE())+STRTRAN(TIME(),":","")
Very very useful for many things I can do that I'm not here to write. You can imagine it.
I even create an index for this two fields 8)
Someone who read this my post would think is not useful but Jimmy believe me.
In many years this two simple fields permit to me to understand some strange problems in user report.
Have a nice day
Marco
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
Jimmy, simples:
Regards, saludos.
// C:\FWH\SAMPLES\JIMMYDTH.PRG
#include "FiveWin.ch"
FUNCTION JimmyDtH()
LOCAL cFile, aDir, dDBF, dDBF2, dDBF3, dDBF4 // etc...
SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET EPOCH TO YEAR( DATE() ) - 30
IF FILE( "CUSTOMER.DBF" )
cFILE := "CUSTOMER.DBF"
aDIR := Directory( cFILE )
dDBF := aDIR[ 1 ][ 3 ] // date
dDBF2 := aDIR[ 1 ][ 4 ] // Hours
? "Date: ", dDBF, "Hours:", dDBF2
ENDIF
RETURN NIL
// FIN / ENDJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Jimmy
All you need to do is add two fields to your database table
cUser := WNetGetUser() // FiveWin function
cUser := UPPER( cUser )
"LastUpdate" "D" 8 and "UpdatedBy" "C" 15
When you add or save a record just update the lastupdate field with Date() and UpdatedBy by the person logged into the computer with the above example using WNetGetUser()
You can even create a USer Table and assign user rights like User Admin Super Write ReadOnly
Lipkinrm Y Y N N
This is the way I use WNetGetUser() like Single Sign On ..
Rick Lipkin
hi,
DBF was not Update immediately when Data have changed, it take some Minutes before Directory show it ?
seems i have to include a Timestamp Field into every DBF which i want to check.
karinha wrote:Jimmy, simples:i had same Idea, but it take some Time before i got Result.
// C:\FWH\SAMPLES\JIMMYDTH.PRG
DBF was not Update immediately when Data have changed, it take some Minutes before Directory show it ?
seems i have to include a Timestamp Field into every DBF which i want to check.
greeting,
Jimmy
Jimmy
Jimmy,
and what about to write in another dbf all these timestamp?
Have a nice day
Marco
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
Hello Jimmy,
Have you read this thread? I think this is the same topic as your problem.
Have a nice weekend,
Otto
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43815&p=264715&hilit=commit&sid=3186b6f54fda099a61d78ae8e9958702&sid=8728c4d990f9d85d3869ed22b7300231#p264715
Have you read this thread? I think this is the same topic as your problem.
Have a nice weekend,
Otto
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43815&p=264715&hilit=commit&sid=3186b6f54fda099a61d78ae8e9958702&sid=8728c4d990f9d85d3869ed22b7300231#p264715
hi Otto,
Otto wrote:Have you read this thread? I think this is the same topic as your problem.THX for the link, i will read it
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43815&p=264715&hilit=commit&sid=a9b493c30fe2a83c1ea7cdf13c1b86dd&sid=a9b493c30fe2a83c1ea7cdf13c1b86dd#p264715
greeting,
Jimmy
Jimmy
Jimmy,
Regards, saludos.
COMMIT
UNLOCKJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341