=> 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
=>
Very nice, Jack. And you're welcome.
HALinNY
_______________________________________________
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.
