LPARAMETERS toFoxCode IF toFoxcode.Location = 0 RETURN toFoxCode.UserTyped ENDIF toFoxcode.valuetype = "V" LOCAL lcTxt, lcName, lcComment lcName = Inputbox('Input the name of procedure you wish to use: ') lcVersion = "Visual FoxPro" + VERSION(4) TEXT TO lcTxt TEXTMERGE NOSHOW *********************************************************************** * Program....: <<UPPER(lcName)>> * Date.......: <<DATETIME()>> * Compiler...: <<lcVersion>> * Purpose....: ~ *********************************************************************** FUNCTION <<Upper(lcName)>>() RETURN .T. ENDFUNC ENDTEXT RETURN lcTxt>
>LPARAMETERS toFoxCode > >IF toFoxcode.Location = 0 > RETURN toFoxCode.UserTyped >ENDIF > >toFoxcode.valuetype = "V" > >LOCAL lcTxt, lcName, lcComment >STORE "" TO lcTxt, lcName, lcComment >#DEFINE CRLF CHR(13)+CHR(10) > >lcName = Inputbox('Input the name of procedure you wish to use: ') >lcVersion = "Visual FoxPro" + VERSION(4) > >TEXT TO lcTxt NOSHOW >*********************************************************************** >* Program....: <<UPPER(lcName)>> >* Date.......: <<DATETIME()>> >* Compiler...: <<lcVersion>> >* Purpose....: ~ >*********************************************************************** >FUNCTION <<Upper(lcName)>>() > > RETURN .T. >ENDFUNC >ENDTEXT >RETURN TEXTMERGE(lcTxt)