how to find out if a Record was updated ?

[Jimmy]

hi,

i think LUpdate() does not work any more, so how can i find out if Data was updated ?

[karinha]

Code: Select all  Expand view  RUN

// 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 / END
 

Regards, saludos.

[Jimmy]

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

[MarcoBoschi]

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
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

[karinha]

Jimmy, simples:

Code: Select all  Expand view  RUN

// 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 / END
 

Regards, saludos.

[Rick Lipkin]

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

[Jimmy]

hi,

Jimmy, simples:
// C:\FWH\SAMPLES\JIMMYDTH.PRG

i had same Idea, but it take some Time before i got Result.
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.

[MarcoBoschi]

Jimmy,
and what about to write in another dbf all these timestamp?
Have a nice day
Marco

[Otto]

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

[Jimmy]

hi Otto,

Have you read this thread? I think this is the same topic as your problem.
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43815&p=264715&hilit=commit&sid=a9b493c30fe2a83c1ea7cdf13c1b86dd&sid=a9b493c30fe2a83c1ea7cdf13c1b86dd#p264715

THX for the link, i will read it

[karinha]

Jimmy,

Code: Select all  Expand view  RUN

   COMMIT
   UNLOCK
 

Regards, saludos.