Hal:
So I took this one step I think to the better (or at least to minimize my
paranoia).
Although this is not eloquent it seems to work as I backed up my project then deliberately sabotaged the objcode and it
found all instances where I had done the damage. Check out:
*****************************************************************
LOCAL i, lnCount, lnProblems
LOCAL ARRAY laScxs(1,5)
CLOSE ALL
SET SAFETY OFF
lnProblems = 0
lnCount = 0
lnCount = adir(laScxs,"*.scx")
if lnCount > 0 then
FOR i = 1 to ALEN(laScxs,1)
USE (laScxs(i,1))
SELECT parent as tParent, ;
objname as tObj_name ;
WHERE LENC(methods) > 0 AND LENC(objCode) = 0 ;
FROM ALIAS() ;
INTO CURSOR tProblems
IF USED('tProblems') THEN
IF RECCOUNT('tProblems') > 0 THEN
lnProblems = lnProblems + 1
REPORT FORM rptProblems TO PRINTER NOCONSOLE &&simple report to show
the 2 fields selected
SELECT tProblems
USE
ENDIF
ENDIF
ENDFOR
WAIT WINDOW "Problems In " + alltrim(transform(lnProblems, "99,999")) + "
Forms..." timeout 5
else
WAIT WINDOW "No Forms In This Folder..." timeout 2
endif
SET SAFETY ON
CLOSE ALL
*****************************************************************
I hope this saves me from the next time...
BTW, when I rebuilt the project all instances of the objcode missing was
restored...
Thanks again for your input.
Regards,
Jack Skelley
Hal Kaplan wrote:
=> Hal:
=> Thanks for the suggestion.
=> So if I understand this technique I could define a variable
=> (say gnCode_verify) as public and in every click() event I
=> could say gnCode_verify = 0. I would need know how many
=> times I used it and have a list of where it is so when the
=> 'Code Reference Tool' tells where it is I could cross
=> reference the list. And when the 2 don't match I have a
=> reference of where I need to put the code back in.
=> I hope the order for VFP9 gets here soon...
=> Regards,
=>
=> Jack Skelley
=>
Exactly. And there could very well be something that is already there that you
can use.
Is the tool available in version 8?
You probably won't need it in 9 but it might be worthwhile for quality control.
HALinNY
[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.
