Re: frx not found by WT
WT
Wed Sep 12 20:12:00 PDT 2007
Hi Adam, thanks for your reply.
I also suspect the the COPY FILE statement fail me . I tried to change it
with your correction, however it didn't go thru either.
error shows 'File does not exists!'
* Original code
*COPY FILE "r_loc.frx" TO &cTmpFrx
*COPY FILE "r_loc.frt" TO &cTmpFrt
*New code
=strtoFile(FileToStr("r_loc.frx"), cTmpFrx )
=strtoFile(FileToStr("r_loc.frt"), cTmpFrt )
Either I use m.cTmpFrx or cTmpFrx cause the same error.
Any idea?
"Gregory Adam" wrote:
> If it's the COPY FILE that fails - as I expect it to - see correction inline
>
> "WT" <WT@discussions.microsoft.com> wrote in message
> news:12D5DF70-6F64-4946-A171-B5615CD25285@microsoft.com...
> > Thanks for both of your replies.
> > Below is my coding model and hope to get you further advice,
> >
> > *!* Pass to standard class
> > ***Temporary public variable for the report header
> > ** Parameter for report header and tmporary cursor
> > **
> > Public mCodeFrom , mCodeTo, cTmpFrx, cTmpFrt As String
> > mCodefrom =Alltrim(Thisform.code1.Text)
> > mCodeTo = Alltrim(Thisform.code.Text)
> >
> > cTmpSysVal = ALLTRIM(SYS(03))
> > *
> > cTmpFrx = ALLTRIM(_tempOutPut)+"tmp"+cTmpSysVal+".frx"
> > cTmpFrt = ALLTRIM(_tempOutPut)+"tmp"+cTmpSysVal+".frt"
>
>
>
>
> > COPY FILE "r_loc.frx" TO &cTmpFrx
> > COPY FILE "r_loc.frt" TO &cTmpFrt
>
> =strtoFile(FileToStr("r_loc.frx"), m.cTmpFrx )
> =strtoFile(FileToStr("r_loc.frt"), m.cTmpFrt )
>
>
>
> > ** Localize report to selected language
> > ** SET PROCEDURE TO cRptLocalize ADDITIVE
> > =cRptLocalize( cTmpFrx , cTmpFrt )
> >
> > **Set Procedure To cReportClass Additive
> > ** Either Preview, Print or create Pdf file will be done in this procedure
> > =PrintFunction(Thisform, cTmpFrx)
> >
> > If Used(cTmpDB)
> > Select(cTmpDB)
> > Use
> > Endif
> >
> > IF FILE(cTmpFrx )
> > DELETE FILE &cTmpFrx
> > DELETE FILE &cTmpFrt
> > ENDIF
> >
> > TIA
> >
> > **====================================================
>
>