Rick,
Just a follow-up thought to this: I don't use the Descriptions comment
for the files in the project much at all (perhaps 5% of the time). I
was looking at ProjectHook PEMs thinking that I could write something to
simply throw the current date/time into the Description comments field
for that file. I see the QueryModifyFile Event but that fires BEFORE
the file is edited. I don't see one that fires afterward. If there
was, I could add the code there and I'd get somewhat of what I wanted
(...it wouldn't show in timestamp sorted order, but at least clicking on
an object would show the timestamp from when last modified!).
What do you think....possible and worthwhile? Or even if we had some
sort of ability to add a right-click function to the project object to
show the last modified, or even extending that, showing the edits made
on that object from the source control system? Now that's getting a bit
involved, at that level.
--Michael
Rick Schummer wrote:
Michael,
Actually this would not be hard at all. AVCXCLASSES() will give you a list of
the classes
and some other details. One of the details missing is the datetime stamp. You
could then
open the VCX and locate the records and pull in the date time stamp for each of
the
classes and store this into a new column you add to the array returned by
AVCXCLASSES().
Here is the code to decode the timestamp column although I think you could just
sort the
list on the timestamp if you do not need the readable version:
LPARAMETER tnTimeStamp, tcStyle
LOCAL lcRetVal && Requested data returned from
procedure
IF TYPE('tnTimeStamp') != "N" && Timestamp must be numeric
WAIT WINDOW "Time stamp passed is not numeric"
RETURN ""
ENDIF
IF tnTimeStamp = 0 && Timestamp is zero until built in
project
RETURN "Not built into App"
ENDIF
IF TYPE('tcStyle') != "C" && Default return style to both date
and time
tcStyle = "DATETIME"
ENDIF
IF !INLIST(UPPER(tcStyle), "DATE", "TIME", "DATETIME")
WAIT WINDOW "Style parameter must be DATE, TIME, or DATETIME"
RETURN ""
ENDIF
lnYear = ((tnTimeStamp/(2**25) + 1980))
lnMonth = ((lnYear-INT(lnYear) )*(2**25))/(2**21)
lnDay = ((lnMonth-INT(lnMonth) )*(2**21))/(2**16)
lnHour = ((lnDay-INT(lnDay) )*(2**16))/(2**11)
lnMinute = ((lnHour-INT(lnHour) )*(2**11))/(2**05)
lnSecond = ((lnMinute-INT(lnMinute))*(2**05))*2 && Multiply by two to correct
&& truncation problem built in
&& to the creation
algorithm
&& (Source: Microsoft
Tech Support)
lcRetVal = ""
IF "DATE" $ UPPER(tcStyle)
lcRetVal = lcRetVal + RIGHT("0"+ALLTRIM(STR(INT(lnMonth))),2) + "/" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnDay))),2) + "/" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnYear))),2)
ENDIF
IF "TIME" $ UPPER(tcStyle)
lcRetVal = lcRetVal + IIF("DATE" $ UPPER(tcStyle), " ", "")
lcRetVal = lcRetVal + RIGHT("0"+ALLTRIM(STR(INT(lnHour))),2) + ":" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnMinute))),2) + ":" + ;
RIGHT("0"+ALLTRIM(STR(INT(lnSecond))),2)
ENDIF
RETURN lcRetVal
*: EOF :*
Let me know when you get this ready for beta testing <bg>.
Rick
White Light Computing, Inc.
www.whitelightcomputing.com
www.rickschummer.com
586.254.2530 - office
586.254.2539 - fax
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of MB
Software Solutions
Sent: Tuesday, June 20, 2006 04:59 PM
To: [EMAIL PROTECTED]
Subject: Ever wish this for VFP? Last modified class in VCX library
It'd be nice to see the classes listed in last modified date order, so that I
could easily
see what I worked on last. As it stands, it lists the classes in the VCX lib
in alpha
order.
Simple request, right? <g>
--
Michael J. Babcock, MCP
MB Software Solutions, LLC
http://mbsoftwaresolutions.com
http://fabmate.com
"Work smarter, not harder, with MBSS custom software solutions!"
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
