>#IF ( .T. ) > * This builds just fine > lcOnF3Script = ; > "local lcTagName" + chr(13) + chr(10) + ; > "local lnTagHit" + chr(13) + chr(10) + ; > "gcHowExited='F3'" + chr(13) + chr(10) + ; > "select 'AltProvFacil'" + chr(13) + chr(10) + ; > "ATagInfo(laTheTags,'AltProvFacil')" + chr(13) + chr(10) + ; > "lnTagHit = ascan( laTheTags, 'SSN', -1, -1, 1, 15 )" + chr(13) + chr(10) + ; > "if ( empty( m.lnTagHit ) )" + chr(13) + chr(10) + ; > " lnTagHit=ascan( laTheTags, 'TIN', -1, -1, 1, 15 )"+ chr(13) + chr(10) + ; > "endif" + chr(13) + chr(10) + ; > "lcTagName=laTheTags[ m.lnTagHit, 1 ]" + chr(13) + chr(10) + ; > "lcTagName=iif(order()=='DISPLORDER', m.lcTagName, 'DisplOrder' )" ; > + chr(13) + chr(10) + ; > "set order to (m.lcTagName)" + chr(13) + chr(10) + ; > "KEYBOARD '{Esc}' plain" > * Inserting the parameter text using a varialble > on key label "F3" execscript( m.lcOnF3Script ) >#ELSE > * This crashes a build under both VFP 8 SP1 and VFP 9 SP1 > * > * Inserting the same text directly causes a C0000005 error when > * the project is built and yields no clue as to the cause! > * > * (Note: In a .PRG run from the command line the following > * will run without problem -- until a build is attempted.) > * > on key label "F3" execscript( ; > "local lcTagName" + chr(13) + chr(10) + ; > "local lnTagHit" + chr(13) + chr(10) + ; > "gcHowExited='F3'" + chr(13) + chr(10) + ; > "select 'AltProvFacil'" + chr(13) + chr(10) + ; > "ATagInfo(laTheTags,'AltProvFacil')" + chr(13) + chr(10) + ; > "lnTagHit = ascan( laTheTags, 'SSN', -1, -1, 1, 15 )" + chr(13) + chr(10) + ; > "if ( empty( m.lnTagHit ) )" + chr(13) + chr(10) + ; > "lnTagHit=ascan( laTheTags, 'TIN', -1, -1, 1, 15 )" + chr(13) + chr(10) + ; > "endif" + chr(13) + chr(10) + ; > "lcTagName=laTheTags[ m.lnTagHit, 1 ]" + chr(13) + chr(10) + ; > "lcTagName=iif(order()=='DISPLORDER', m.lcTagName, 'DisplOrder' )" ; > + chr(13) + chr(10) + ; > "set order to (m.lcTagName)" + chr(13) + chr(10) + ; > "KEYBOARD '{Esc}' plain" ) >#ENDIF >