Tracy, Good point....it's that long since I used 7 I forgot to notice that.
Did they distribute the XSource code with 7? I can't remember. Dave -----Original Message----- From: ProFox [mailto:[email protected]] On Behalf Of Tracy Pearson Sent: 08 October 2012 16:41 To: [email protected] Subject: RE: VFP9-Reporting Hi Kurt, Since you are working in VFP 7, I don't know that either of the blog entries will help. You're probably better creating a menu item, or prg to launch the report editor in VFP 7. If anyone wants to chime in about the code, please do so. Something like this: LPARAMETERS ReportName MODIFY REPORT (ReportName) USE FORCEEXT(ReportName, "FRX") IN 0 SHARED ALIAS FixReport LOCATE FOR ObjCode = 53 LOCAL ExprText, ExprLines[1], ExprLoop ExprText = "" FOR ExprLoop = 1 to ALINES(ExprLines, FixReport.Expr) IF UPPER(ExprLines[ExprLoop]) = "DEVICE=" LOOP ENDIF IF UPPER(ExprLines[ExprLoop]) = "DRIVER=" LOOP ENDIF IF UPPER(ExprLines[ExprLoop]) = "OUTPUT=" LOOP ENDIF ExprText = ExprText + ExprLines[ExprLoop] + CHR(13) + CHR(10) NEXT REPLACE FixReport.Tag WITH "", ; FixReport.Tag2 WITH "", ; FixReport.Expr WITH ExprText ; NEXT 1 IN FixReport USE IN SELECT("FixReport") [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 Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** 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.
